Danke FAlter für den Hinweis mit CommaText und DelimitedText.
Schau Dir mal folgendes an:
http://www.delphipraxis.net/164041-c...ntdataset.html
Das ist ein einfacher Classhelper um
CSV Dateien mit einem TClientDataset Lesen / Schreiben zu können.
Das habe ich dort auch mit 2 TStringList gemacht.
Delphi-Quellcode:
...
// folgender Quelltext ist nur im Editor der DP geschrieben, nicht getestet ;)
slFile := TStringList.Create;
slRow := TStringList.Create;
try
slRow.Delimiter := '
;';
slRow.QuoteChar := '
"';
slRow.StrictDelimiter := True;
slFile.LoadFromFile('
C:\TEMP\TEST.CSV');
for i := 0
to slFile.Count - 1
do
begin
slRow.DelimitedText := slFile[i];
for j := 0
to slRow.Count - 1
do
begin
myArray[i,j] := slRow[j];
end;
end;
finally
slFile.Free;
slRow.Free;
end;
...
Das habe ich vor über 6 Jahren gemacht um leicht auf meine Logfiles zugreifen zu können.
Für die CodeLib hab ich dann noch das Schreiben implementiert.
Das Ganze dient aber auch als nettes Beispiel für einen ClassHelper
