Warm tip: This article is reproduced from serverfault.com, please click

其他-删除[Delphi]中剩余的多个字符串

(其他 - Delete multiple string left in [Delphi])

发布于 2020-11-28 17:42:43

你好,我需要一个简单的函数来删除左侧的文本字符串,请参见以下示例:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := 'Hello test test test [delimitator] goodby.. test teest test';
  Delete(S, Pos('[delimitator]', S), MaxInt);
  RichEdit1.Text := S;
end;

即使我不知道有多少个字符,此功能也会清除右侧的所有字符。

问题是,如何反向操作,删除左侧的所有字符?

Questioner
delphiticks
Viewed
11
Remy Lebeau 2020-11-29 01:47:06

你已经知道要使用什么-Pos()Delete()只要调整如何使用它们:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := 'Hello test test test [delimitator] goodby.. test teest test';
  Delete(S, 1, Pos('[delimitator]', S));
  RichEdit1.Text := S;
end;