Problem: Procedure zum speichern eines grids auf FTP server

[5etH]

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

Delphi-Quellcode:

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]

[Luckie]

Was in Rundenklammern hinter dem Unitnamen steht, sind die Zeilen, in der der Fehler aufgetreten ist.

Und der Threadtitel istauch nicht sehr aussagekräftig. :roll:

[rollstuhlfahrer]

es wär mal ganz interessant, wenn du noch die Zeilen markierst, bei denen der Fehler auftritt

[Mikender]

Mal ne Frage (vielleicht denke ich auch gerade total falsch) aber warum übergibst du der procedure ne StringList die du zuerst createst und dann mit Free "zerstörst" wäre es nicht sinnvoller die nicht als Parameter sondern einfach als var zu vereinbaren :?: :?: :?:

Ach ja welche Zeile ist denn 210

[5etH]

keiner mehr eine idee ?

[RavenIV]

Der Compiler motzt die Zeile 210 an.

Falls diese Zeile gemeint ist:
Datenmodul1.IdFTP1.Put(GridMem,FileName);
dann legt es vermutlich daran, dass das Datenmodul1 nicht bekannt ist.

P.S.
Datenmodul1 und IdFTP1 sind keine tollen Namen für Komponenten.

[tomsel]

Zitat:

Aufruf

Delphi-Quellcode:

Save(KNDT.StringGrid1, Grid1,'KundenStamm.CSV',CSV1); // EDIT !!! Im aufruf tritt der fehler auf

Schau dir die Codezeile vor dieser genauer an.
[EDIT]
Dort fehlt mit an Wahrscheinlichkeit grenzender Sicherheit das Semikolon.


Gruß aus München
[/EDIT]

[Klaus01]

Ich würde die Prozedur so umbauen.
In der Parameterliste all die Sachen
die man von aussen in der Prozedure benötigt.
Wie das StringGrid, die FTP Session und den Dateinamen.

Der MemoryStream und die StringList werden nur
intern in der Prozedur benutzt und es reicht auch dann
sie nur intern als Variablen zu führen.

Delphi-Quellcode:

Procedure Save(Grid:TStringGrid; ftpSession:TidFTP; FileName:String); 
var 
  I : Integer; 
  GridMem : TMemoryStream;
  CSV : TStringList;
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); 
 
  ftpSession.Put(GridMem,FileName); 
 
  CSV.Free; 
  GridMem.Free; 
End;

Grüße
Klaus

[Luckie]

Zitat:

Zitat von 5etH

keiner mehr eine idee ?

Du solltest eventuell mal unsere Beiträge lesen. Wir haben dich danach gefragt, welche Zeile Zeile 210 ist und ich habe dich gebeten den Threadtitel anzupassen!

[angos]

hi,

Zitat:

[DCC Fehler] Regin.pas(210): E2066 Operator oder Semikolon fehlt

da würde ich mal ganz stark darauf tippen, dass in der Anweisung vor Zeile 210 das letzte Semikolon vergessen wurde ;)


Gruß
angos

[5etH]

Also Datenmodul ist in den Uses und es fehlt kein Semikolon

[shmia]

Hier mal der vereinfachte Code.
Damit vereinfacht sich auch der Aufruf.
Änderungen:
* "gescheiteter" Prozedurname
* Parameterliste abgespeckt und dafür lokale Variablen verwendet
* Sicherheitsüberprüfungen mit Assert
* try...finally zum Schutz der Resourcen

Delphi-Quellcode:

Procedure SaveStringGrid(Grid : TStringGrid; const FileName : String); 
Var 
  I : Integer; 
  GridMem : TMemoryStream;  // lokale Variable, kein Parameter !
  CSV : TStringList;  // dito
Begin 
  Assert(Assigned(Grid));  // Safety first
  Assert(Assigned(Datenmodul1));

  // Vorbereitung zum speichern der Datenbanken 
  GridMem := TMemoryStream.Create; 
  CSV := TStringList.Create; 
  try
    //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); 
  // ganz wichtig: Stream muss zurück auf Anfang
  GridMem.Position := 0;

  Datenmodul1.IdFTP1.Put(GridMem,FileName); 
  finally
    CSV.Free; 
    GridMem.Free; 
  end;
End;

[Luckie]

Also mit Assert würde ich hier nicht arbeiten. Assert dient eigentlich nur zum Debuggen und Assertions sollten in der Releaseversion deaktiviert werden. aus der Dephihilfe:

Zitat:

In der Regel werden Assertions nicht in Programmversionen verwendet, die zur Auslieferung vorgesehen sind. Deshalb wurden Compiler-Direktiven implementiert, mit denen die Generierung des zugehörigen Codes deaktiviert werden kann:

$ASSERTIONS ON/OFF

[Codewalker]

Allerdings haben Assertions den Vorteil, dass sie Datei und Quellcodezeile mit ausgeben. Von daher sind sie bei mir auch z.T. in Release-Versionen enthalten. Spricht etwas dagegegen bzw. kann man die Zusatzinfos (Datei+Zeile) auch anderweitig ermitteln?

[shmia]

Zitat:

Zitat von Luckie

Also mit Assert würde ich hier nicht arbeiten. Assert dient eigentlich nur zum Debuggen und Assertions sollten in der Releaseversion deaktiviert werden.

Genau für den Anwendungszweck, der hier vorliegt, wurden aber Assertions erfunden.
"Eigentlich" darf ja der Parameter Grid niemals = nil sein und er ist es in 99,5 % aller Fälle auch.
Für den Fall, dass der Programmierer gepennt hat, ist die Assertion als Rettungsanker im Code.
Assertion verbleiben im Code und werden nicht auskommentiert.
Alfa- und Betaversion werden mit $ASSERTIONS ON kompiliert und zum Testen ausgeliefert;
Releaseversionen werden mit $ASSERTIONS OFF kompiliert. (damit wird das Programm dann wieder kleiner und schneller)

[shmia]

[Doppelposting wegen Netzwerkfehler gelöscht]