aber sag mal, weshalb nimmste nicht die funktion von bitsetter? die funktioniert ja auch unter D5
Delphi-Quellcode:
function LastString(aSTring: pChar; aLeftDelimiter, aRightDelimiter: string): string;
begin
result := ''; //Rückgabewert Leerstring, falls Fehler aufgetreten
inc(aString, LastDelimiter(aLeftDelimiter, aString));
result := trim(copy(aString, 1, pos(aRightDelimiter, aString)-1));
end;
Aufruf:
DeinZielString := LastString('D: { 59789999999999 {555aaa666bbb777ccc}}', '{', '}');