hallo crowbar!
hier hab ich meine einlese-routine für stringgrids schnell für tables umgebaut - hoffe, es sind nicht zu viele fehler drinnen du kannst was damit anfangen.
Delphi-Quellcode:
{$UNTESTED}
var
T: TextFile;
inString: String;
aValue: String;
TrennPos, i: SmallInt;
begin
AssignFile(T,'Adressen.csv');
Reset(T);
while not EOF(T) do begin
Readln(T,instring);
instring:= instring + ';';
AdressTable.Append;
for i:= 0 to AdressTable.Fields.Count-1 do begin
TrennPos:= Pos(';',instring);
aValue:= Copy(instring,1,TrennPos-1);
Delete(instring,1,TrennPos);
AdressTable.Fields[i].AsString:= Value;
end;
AdressTable.Post;
end;
CloseFile(T);
end;
mfg, stefan