Einzelnen Beitrag anzeigen

HolgerCW

Registriert seit: 28. Nov 2006
Ort: Marl
1.207 Beiträge
 
Delphi XE7 Enterprise
 
#1

CSV-Datei die mit Semikolons getrennt ist einlesen

  Alt 27. Jun 2007, 10:44
Hallo zusammen,

habe folgenden Code hier im Forum gefunden:

Delphi-Quellcode:
sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');
sCols := TStringList.Create;
sCols.CommaText := sRows[0];
FormCSV.StringGridCSV.ColCount := sCols.Count;
sCols.Free;
FormCSV.StringGridCSV.RowCount := sRows.Count;
for i := 0 to Pred(sRows.Count) do
 FormCSV.StringGridCSV.Rows[i].CommaText := sRows[i];
 sRows.Free;
Diese trennt aber die Spalten bei einem Komma, wie stelle ich das um auf Semikolon ?

Gruss

Holger
  Mit Zitat antworten Zitat