.txt von einem ftp server auslesen

[Klaus01]

Code:

6 <- colcount 
3 <- rowcount 
KundenNr 
1 
2 
Name 
müller 
fischer 
Vorname 
peter 
hans 
Email 
[email][e-mail][/email] 
[email][e-mail][/email] 
Key 
5673325273-7456766323-7433227665 
5437767477-3652344723-5633225447 
Regestriert 
0 
0

Ich würde vorschlagen die Datei etwas anders zu gestalten:
1. Zeile KundenNr;Name;Vorname;Email;Key;Registriert
2. Zeile 1;müller;peter;[e-mail];56...;0
...

Dann fällt die Sache mit dem Einlesen deutlich leichter:


Ein StringGrid In ein csv Format zu speichern geht so:

Delphi-Quellcode:

var
  csv : TStringList;
begin
  csv := TstringList.create;
  csv.Delimiter:=';';
  for i:=0 to StringGrid1.RowCount -1 do
    begin
      StringGrid1.Rows[i].Delimiter:=';';
      csv.Add(StringReplace(StringGrid1.Rows[i].CommaText,',',';',[rfReplaceAll]));
    end;
  csv.SaveToFile(<FileName>);
  csv.Free;
end;

Ein Import sollte so gehen:

Delphi-Quellcode:

var
  csv : TStringList;
begin
  csv := TStringList.create;
  csv.loadfromStream(DB);
  stringGrid1.rowCount := sl.count;
  
  for i:=0 to sl.count -1 do
    begin
      StringGrid1.Rows[i].Delimiter:=';';
      StringGrid1.Rows[i].Commatext:=sl[i];
    end;
  csv.free;
end;

Grüße
Klaus