Zitat von
ellelle:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var user:string;
begin
User :=edit1.Text;
IdFTP1.Password :=Edit2.Text;
IdFTP1.Host := Edit3.Text;
IdFTP1.Connect;
end;
Was bringt dir die Variable "user"...? Es muss heißen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdFTP1.username := edit1.Text;
IdFTP1.Password := Edit2.Text;
IdFTP1.Host := Edit3.Text;
if not IdFTP1.Connected then
IdFTP1.Connect;
end;