Datei von ftp in Grid laden Fehler: Gridgröße

[5etH]

Hallo Zusammen,

ich habe folgendes Problem. Ich würde gerne von einem FTP server eine CSV-Datei einlesen was auch fast klappt... er soll die datei in einen Stream laden und diesen in ein Grid schreibel. Leider überträgt er mir die anzahl an Cols nicht sodas ich sie nicht im Grid definieren kann . Könnt ihr mir villeicht bei diesem Problem helfen..

hier mein Bisheriger Code:

Delphi-Quellcode:

  datenmodul1.idftp1.Host:='xxx.xxx.xxx.xxx';
  datenmodul1.idftp1.Username:='xxx';
  datenmodul1.idftp1.Password:='xxx';

  datenmodul1.idftp1.Connect();
  datenmodul1.idftp1.Changedir('/Kunden/' + accountnick + '/');

  grid11 := TMemoryStream.Create;
  datenmodul1.idftp1.Get('Kundenstamm.csv',grid11);


  csv11 := TStringList.create;
  grid11.Position:=0;
  csv11.loadfromStream(grid11);
  kndt.stringGrid1.rowCount := csv11.count;
  if csv11.count > 0 then
    for i:=0 to csv11.count -1 do
      begin
        kndt.StringGrid1.Rows[i].Delimiter:=',';
        kndt.StringGrid1.Rows[i].Commatext:=csv11[i];
      end;

  csv11.free;
  grid11.Free;

Wäre super wenn ihr mir weiter helfen könntet

schonmal vielen Dank
euer Manu

[mkinzler]

Ist der Trenner wirklich ,?

[5etH]

ja -.-"

[mkinzler]

Delphi-Quellcode:

var
  sl: TString;
if csv11.count > 0 then
begin
    sl := TStringList.Create;
    sl.CommaText := csv11[0];
    kndt.stringGrid1.ColCount := sl.Count;
    sl.Free; 
    for i:=0 to csv11.count -1 do
      begin
        kndt.StringGrid1.Rows[i].Commatext:=csv11[i];
      end;
end;

[shmia]

Zitat von 5etH:

Leider überträgt er mir die anzahl an Cols nicht sodas ich sie nicht im Grid definieren kann

Stringliste csv11 Zeile für Zeile durchgehen und die Anzahl der Trennzeichen ermitteln und das Maximum merken.
Anzahl der Gridspalten = Maximum Trennzeichen + 1