[Delphi] Работа со списками

[vlad36]

Здравствуйте форумчане!
Гуглил гуглил, но ничего не нагуглил.
Проблема заключается в том, что я не умею работать со списками.
Вот написал программу для разделения логинов от паролей:

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Button2.Enabled:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(i);
if i=s.Count-1 then
begin
Timer1.Enabled:=false;
Button2.Enabled:=true;
end;

uin:=strtoint(copy(s.Strings[i],0,pos(Edit1.Text,s.Strings[i])-1));
Memo1.Lines.Add(inttostr(uin));
Label4.Caption:=IntToStr(StrToInt(Label4.Caption)+1);
ProgressBar1.Position:=ProgressBar1.Position+1;
end;

Все работает замечательно, но таймер тормозит работу программы.
Пробовал без таймера:

procedure TForm1.Button2Click(Sender: TObject);
begin
i:=0;
while i < s.Count do
Button2.Enabled:=false;
uin:=strtoint(copy(s.Strings[i],0,pos(Edit1.Text,s.Strings[i])-1));
Memo1.Lines.Add(inttostr(uin));
Label4.Caption:=IntToStr(StrToInt(Label4.Caption)+1);
ProgressBar1.Position:=ProgressBar1.Position+1;
if i = s.Count-1 then
Button2.Enabled:=true;
end;

Но так программа тупо зависает.
Подскажите новичку как работать со списками без таймера.

[vlad36]

Что никто не умеет?((((

[k0tt0d]

ну зависает например тут

while i < s.Count do
Button2.Enabled:=false;

а вообще что за списки, зачем таймер, что требуется то? из первого поста ничего не ясно.

[vlad36]

Сообщение от k0tt0d

ну зависает например тут


а вообще что за списки, зачем таймер, что требуется то? из первого поста ничего не ясно.

Есть список логинов и паролей (uin;pass), нужно чтобы программа отделяла все что до ";" из каждой строки по очереди.

Так перебирает по очереди каждую строку

procedure TForm1.Button2Click(Sender: TObject); 
begin Timer1.Enabled:=true; 
Button2.Enabled:=false; end;
 
 procedure TForm1.Timer1Timer(Sender: TObject);
 begin 
inc(i);
 if i=s.Count-1 then
 begin 
Timer1.Enabled:=false; 
Button2.Enabled:=true; 
end;  
uin:=strtoint(copy(s.Strings[i],0,pos(Edit1.Text,s.Strings[i])-1)); 
Memo1.Lines.Add(inttostr(uin)); 
Label4.Caption:=IntToStr(StrToInt(Label4.Caption)+1); 
ProgressBar1.Position:=ProgressBar1.Position+1;
 end;

а так нет:

procedure TForm1.Button2Click(Sender: TObject); 
begin
 i:=0; 
while i < s.Count do
 Button2.Enabled:=false; 
uin:=strtoint(copy(s.Strings[i],0,pos(Edit1.Text,s.Strings[i])-1)); 
Memo1.Lines.Add(inttostr(uin)); 
Label4.Caption:=IntToStr(StrToInt(Label4.Caption)+1); 
ProgressBar1.Position:=ProgressBar1.Position+1; 
if i = s.Count-1 then 
Button2.Enabled:=true; 
end;

Что не так я сделал во втором коде?

[.fry]

procedure TForm1.Button2Click(Sender: TObject); 
var
 i, uin: integer;
begin
 Button2.Enabled:=false;
 for i := 0 to s.Count - 1 do
 begin
  uin := StrToIntDef(copy(s.Strings[i], 0, pos(Edit1.Text, s.Strings[i]) - 1), 0); 
  Memo1.Lines.Add(IntToStr(uin)); 
  Label4.Caption := IntToStr(StrToInt(Label4.Caption) + 1); // мб: Label4.Caption := IntToStr(i); ?
  ProgressBar1.Position := ProgressBar1.Position + 1; 
  Application.ProcessMessages();
 end;
 Button2.Enabled := true;
end;

Называйте элементы управления человеческими именами, блять.

[k0tt0d]

Есть список логинов и паролей (uin;pass), нужно чтобы программа отделяла все что до ";" из каждой строки по очереди.

вообщем кидаем на форму 1 кнопку, пишем обработчик клика

var list,res:TStringList;
buf:string;
i:integer;
begin
list:=TStringList.create;
res:=TStringList.create;
list.loadfromfile('source.txt' );//загружаем список уин-пароль из файла
for i:=0 to list.count-1 do//перебираем все строки
begin
buf:=list.strings[i];
res.add(copy(buf,1,pos(';',buf )-1);
end;
res.savetofile('result.txt');//сохраняем итоговый список
res.free;
list.free;

если надо с таймером, то не знаком с ним.

[.fry]

Все жгут, если нет точки с запятой в строке в файл попадёт пустая строка.

[vlad36]

Спасибо всем за ответы))