Hallo bart57,
kleine Starthilfe - nur schnell hier getippt und nicht getestet:
Delphi-Quellcode:
procedure LoadFromText(table: TTable; filename: string);
var
line: string;
sl: TStringList;
i: integer;
begin
AssignFile(input, filename);
Reset(input);
sl := TStringList.Create;
sl.Delimiter := '!';
while not Eof do begin
ReadLn(line);
sl.DelimitedText := line;
table.Append;
for i := 0 to sl.Count - 1 do
table.Fields[i].AsString := Trim(sl[i]);
table.Post;
end;
sl.Free;
CloseFile(input);
end;
Das ist ein naiver Ansatz, eventuell kannst du mit TTable.BatchMove() die Laderate deutlich erhöhen.
Grüße vom marabu