Einzelnen Beitrag anzeigen

HolgerCW

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

Re: CSV-Datei die mit Semikolons getrennt ist einlesen

  Alt 27. Jun 2007, 14:16
Habe nun die Lösung:

Delphi-Quellcode:
sRows := TStringList.Create;
sRows.LoadFromFile('Datei.csv');

sCols := TStringList.Create;
sCols.DelimitedText := sRows[0];

FormCSV.StringGridCSV.ColCount:=sCols.Count;
sCols.Free;

FormCSV.StringGridCSV.RowCount := sRows.Count;

for i := 0 to Pred(sRows.Count) do
begin
 FormCSV.StringGridCSV.Rows[i].Delimiter := ';';
 FormCSV.StringGridCSV.Rows[i].StrictDelimiter := true;
 FormCSV.StringGridCSV.Rows[i].DelimitedText := sRows[i];
end;
sRows.Free;
Habe da noch ein abschliessende Frage:

- Wie kann ich die Daten aus der CSV-Datei von Spalte 1 bis ... in das StringGrid schreiben. Heisst: Spalte 0 soll leer bleiben.

Gruss

Holger
  Mit Zitat antworten Zitat