Einzelnen Beitrag anzeigen

Klaus01
Online

Registriert seit: 30. Nov 2005
Ort: München
5.767 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Finde Fehler in Programm nicht

  Alt 23. Dez 2013, 19:04
Guten Abend,

versuche mal aus connect ein ftp.connect zu machen.
Delphi-Quellcode:
procedure TFormMain.FormCreate(Sender: TObject);
var Update, Befehl, BefehlText:TStringList;
i:Integer;
begin
 FTP.Connect; // <---

 Update:=TStringList.Create;

 CreateDir('tmp');
 FTP.Get('updates.txt','tmp\updates.txt',true);
 Update.LoadFromFile('version.txt');
 VersionAk:=Update[0];
 Update.Clear;
 Update.LoadFromFile('tmp\updates.txt');
und dann auch in der Methode update.

connect ist hier die methode von TForm und nicht von tidFtp daher scheint der Aufruf connect in Ordnung zu sein.

Warum rufst Du die Methode update nicht im form.create auf?
Don't repeat yourself (DRY)

Grüße
Klaus
Klaus

Geändert von Klaus01 (23. Dez 2013 um 19:12 Uhr)
  Mit Zitat antworten Zitat