pochemu ne rabotaet????

← →
pr0t0n © (2005-09-12 20:32) [0]

zdrastvute. obyasnite pochemu ne rabotaet i chego nado chtobi rabotalo???

var
SL : TStringList;
i : integer;
begin
FTP.Host:=edHost.Text;
FTP.Username:=edUser.Text;
SL:=TStringList.Create;
SL.LoadFromFile(edPas.Text);
for i:=0 to SL.Count-1 do
begin
FTP.Password:=SL.Strings[i];
FTP.Connect;
if FTP.Connected=true then
exit;
end;
SL.Free;
end;

← →
pr0t0n © (2005-09-12 20:56) [1]

Variant 2

var
SL : TStringList;
i : integer;
begin
FTP.Host:=edHost.Text;
FTP.Username:=edUser.Text;
SL:=TStringList.Create;
SL.LoadFromFile(edPas.Text);
for i:=0 to SL.Count-1 do
begin
FTP.Password:=SL.Strings[i];
try
FTP.Connect;
except
end;
begin
if FTP.Connected then
label7.Caption:=SL.Strings[i];
end;
end;
end;

pochemu ne rabotaet???? Найти похожие ветки