Registriert seit: 27. Mai 2004
Ort: Bad Sooden-Allendorf
240 Beiträge
Delphi 6 Professional
|
Re: Gründe für Zeilenumbruch bei *.csv -Datei?
15. Feb 2007, 08:42
Mit dem klassischen writeln!
Delphi-Quellcode:
try
filename := 'daten.csv';
assignfile(f_daten, filename);
{$i-}
append(f_daten);
{$i+}
if IOResult <> 0 then begin
ShowMessage('Fehler');
exit;
end;
wert := memo1.text;
writeln(f_daten, wert + ';' + wert2 usw)
closefile(f_daten);
except
ShowMessage('Fehler');
end;
|