Mega Code Archive

 

Categories / Delphi / String

 

Replace substring to any string

Title: Replace substring to any string Use Replace function to replace SubStr string to Str string in Dest string. In other words, if you have Dest is '1234567890' and SubStr is '345' and Str is 'ABCDE', then you will receive Dest as '12ABCDE67890' This function use Pos function, Delete and Insert procedures. function Replace(Dest, SubStr, Str: string): string; var Position: Integer; begin Position:=Pos(SubStr, Dest); Delete(Dest, Position, Length(SubStr)); Insert(Str, Dest, Position); Result:=Dest; end;