Remy Lebeau
2020-11-29 01:47:06
You already know what to use - Pos() and Delete(). Just tweak how you use them:
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;
热门帖子
热门github
6
Maybe add code to handle the case where delimiter is not found.
@fpiette if the delimiter is not found,
Pos()will return 0, and soDelete(S, 1, 0)won't delete anything. This actually works better when deleting in the left than the right, where 0 would have to be handled special to avoid clearing the whole string.thanks @Remy Lebeau