Hallo Zusammen
mein Programmfragment speichert StringGrids in eine
CSV datei auf einem
FTP-Server nur leider gibt er mir einen Fehler aus obwohl es in einer anderen
unit ohne probleme läuft hier einmal die beiden teile und anschließend die Fehlermeldung
Procedure
Delphi-Quellcode:
Procedure Save(Grid : TStringGrid; GridMem : TMemoryStream; FileName :
String;
CSV : TStringList);
Var I : Integer;
Begin
// Vorbereitung zum speichern der Datenbanken
GridMem := TMemoryStream.Create;
CSV := TStringList.Create;
//Speichern der Grids in Streams
For I:=0
To Grid.RowCount -1
Do
Begin
Grid.Rows[i].Delimiter:='
;';
CSV.Add(StringReplace(Grid.Rows[i].DelimitedText,'
','
;',[rfReplaceAll]));
End;
// Speichern der Streams als Datei auf einem FTP Server
CSV.SaveToStream(GridMem);
Datenmodul1.IdFTP1.Put(GridMem,FileName);
CSV.Free;
GridMem.Free;
End;
Aufruf
Save(KNDT.StringGrid1, Grid1,'KundenStamm.CSV',CSV1); // EDIT !!! Im aufruf tritt der fehler auf
Fehlermeldung(en):
[DCC Fehler] Regin.pas(210): E2066 Operator oder Semikolon fehlt
[DCC Fehler] Regin.pas(210): E2014 Anweisung erforderlich, aber Ausdruck vom Typ 'TMemoryStream' gefunden
Kann mir vill jemand sagen woran das liegt ?
schonmal vielen dank
5etH
[edit=Admin]Beitrag neu in den Cache eingetragen. Mfg, Daniel[/edit]