parse textfile to paradox

[bart57]

Hallo,

danke an alle !Ich habe jetzt folgende Funktion benutzt:


procedure StrTokenToStrings(S: AnsiString; Separator: AnsiChar; const List: TStrings);
var
Token: AnsiString;
begin
Assert(List <> nil);

if List = nil then
Exit;

List.Clear;
while S <> '' do
begin
Token := StrToken(S, Separator);
List.Add(Token);
end;
end;


function StrToken(var S: AnsiString; Separator: AnsiChar): AnsiString;
var
I: Integer;
begin
I := Pos(Separator, S);
if I <> 0 then
begin
Result := Copy(S, 1, I - 1);
Delete(S, 1, I);
end
else
begin
Result := S;
S := '';
end;
end;



Nach ein paar Test-Tagen war die bei mir am schnellste !