CSV-Datei aus Stringlist in StringGrid bringen

[quendolineDD]

Hallo Community,

also ich hab ein Problem beim laden einer CSV-Datei in mein StringGrid ...
zwar werden die SEMIKOLIONS als Trennzeichen festgelegt, jedoch auch die LEERZEICHEN ...

Siehe folgenden Code:

Delphi-Quellcode:

procedure TForm1.Laden1Click(Sender: TObject);
var i: integer; open: TOpenDialog; load: TStringList;
begin
//Initialisierung
open := TOpenDialog.Create(Self);
load := TStringList.Create;
i:=0;
//Dialogfeld zum Öffnen der Datei
IF open.Execute THEN BEGIN
    load.LoadFromFile(open.FileName);

// ! Problemzone !
for i:=1 to load.count-1 do begin
   Stringgrid.Rows[i].Delimiter := ';';
   StringGrid.Rows[i].QuoteChar := ' ';
   StringGrid.Rows[i].DelimitedText := load[i];
   StringGrid.RowCount := StringGrid.RowCount+1;
end;

// !Problemzone ende!

for i:=1 to StringGrid.RowCount do begin
 if StringGrid.Cells[0,i] = '1' then
        StringGrid.Cells[0,i] := 'Eingang'
 else
   if StringGrid.Cells[0,i] = '2' then
        StringGrid.Cells[0,i] := 'Ausgang'
 else
   if StringGrid.Cells[0,i] = '3' then
        StringGrid.Cells[0,i] := 'nicht entgegengenommen'
end;

END //Error-Handling
  ELSE ShowMessage('Keine Datei ausgewählt!');

//De-Initialisierung
load.free; open.free;
end;

Ich hab die Problemzone mal markiert
Die CSV-Datei ist von meiner FirtzPhone!Box, und ich wollte die gespeicherten Daten der CSV-Dateien in ein Programm laden...

Weiß einer die Lösung für mein Problem?

Selbst mit StringGrid.Rows[i].QuoteChar := ';'; ging es nicht ...

Danke im Vorraus,
mit freundlichen Grüßen

[mkinzler]

Leerzeichen sind immer trenner in Stringlisten. U.U würde der Einsatz eines CSV-Datasets und Visulaisierung per DBGrid gehen.

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, quendolineDD.

Du kannst mit Rows.CommaText arbeiten, wenn du deine CSV-Daten vorher in Form bringst: klick

Delphi-Quellcode:

begin
  // ...
  for i := 1 to Pred(load.count) do 
  begin
    Explode(load[i], ';', StringGrid.Rows[i]);
    StringGrid.RowCount := StringGrid.RowCount + 1;
  end; 
  // ...
end;

Freundliche Grüße

[quendolineDD]

Recht herzlichen Dank, für die rasche und kompetente Hilfe

Mit freundlichen Grüßen