obwohl sie gegen ende umständlicher aussieht, ist diese
Delphi-Quellcode:
function ExtractToken(
const Text:
string;
Index: Integer;
const Separator: Char = '
'):
string;
var S,D: PChar;
begin
S := PChar(Text);
while (S^ <> #0)
and (
Index > 0)
do begin
if S^ = Separator
then Dec(
Index);
Inc(S);
end;
D := S;
while (D^ <> #0)
and (D^ <> Separator)
do Inc(D);
SetLength(Result,D-S);
D := Pointer(Result);
while (S^ <> Separator)
and (S^ <> #0)
do begin
D^ := S^;
Inc(S);
Inc(D);
end;
end;
funktion auf meinem system bei 10000000 wiederholungen ca. 600 millisekunden schneller, bitte um test deinerseits
edit: nur noch zur info, zeitversuch nach dem GetTickCount-prinzip