Hallo Leute,
ich habe folgendes Problem:
Der Export einer XLS-Tabelle nach
CSV soll eingelesen werden. (Kein Problem) Da die Tabelle aber sehr viele Spalten hat, haben einzelne Zeilen in
CSV mehr als 254 Zeichen. Damit fehlt im nachfolgenden Quelltext von diesen Zeilen immer ein Stück.
Code:
var
txf : TextFile;
begin
....
AssignFile(txf, filename);
Reset(txf);
while not eof(txf) do begin
readln(txf, s);
// mache etwas sinnvolles mit den Daten
i := length(s);
if i > 254 then ShowMessage('Text größer als String'); <-- in diesem Fall gibt's Datenverlust
end;
CloseFile(txf);
....
end;
Hat jemand eine Lösung für mich?
mfg
eddy