procedure Split(const str1:string; const sep:string; LT:TStringList);
var
i:Integer; {Holds the Real Pos}
t:AnsiString; {Holds the String}
i2:integer; {Holds the second pos}
begin
i:=1;
t:=str1;
repeat
t:=AnsiRightStr(t,Length(t)-i-Length(sep)+1);{Gets the right of the the string at the pos of the separator}
i:=AnsiPos (sep,t);{Gets the pos(Holds it)}
i2:=AnsiPos(sep,t); {The real pos(USes it)}
if AnsiLeftStr(t,i2-1)= ” then {Checks if the string is empty}
begin{Do nothing if is}
end
else
begin
LT.Add(AnsiLeftStr(t,i2-1)); {Adds to the TStringList}
end;
until i=0;{^Does above until the no more seperators}
end;

Incoming search terms:

• delphi split string
• delphi split
• split delphi
• split delphi uses
• delphi splitstring
• split string delphi
• splitstring delphi
• split in delphi
• split string delphi without stringlist
• string parse example delphi

function ReplaceText(const S,ReplacePiece,ReplaceWith: String):String;
Var
Position: Integer;
TempStr: String;
begin
Position := Pos(ReplacePiece,S);
if Position > 0 then Begin
TempStr := S;
Delete(TempStr,1,Position-1+Length(ReplacePiece));
Result :=
Copy(S,1,Position-1)+ReplaceWith+ReplaceText(TempStr,ReplacePiece,ReplaceWith)

End else Result := S;
end;

Incoming search terms:

• delphi replace
• replacetext delphi
• delphi replace text
• delphi replacetext
• delphi text replace
• delphi string replace
• replace txt delphi
• replace word delphi
• replacetext delphi sample
• replasetext delphi