Wozu erst ersetzen? Einfach direkt verwenden:
Delphi-Quellcode:
Function Split(Var S: String; Del: String): String;
Var
p: Integer;
Begin
p := pos(Del, S);
If p = 0 Then Begin
Result := s;
s := '';
End
Else Begin
Result := Copy(s, 1, p - 1);
s := Copy(s, p + length(Del), length(s));
End;
End;
...
var
s,teilString : string;
begin
s := 'L99522621@@99@@05652s8@@85zzs81@@r-77 1564@@20082014@@22082014@@@@@@';
while s<>'' do begin
teilString := Split(s,'@@');
TuWasMitDem(teilString);
end;
end;
Und wenn es schnell gehen soll:
http://www.delphipraxis.net/82268-[optimiert]-explode-prozedur-reloaded-ersatz-fuer-codelib.html
Eine unicodefähige Variante ist weiter hinten zu finden.