помогите с TStringList

[foxes]

помогите мне, пожалуйста с кодом , мне нужно сделать так, чтобы выводила в Memo1 по строчке и останавливался на каждой по 30 секунд,
а у меня только последняя строчка выводит,что делать, если не трудно ответьте

procedure TForm1.Button1Click(Sender: TObject);
 var
   i: Integer;
begin
 ss:=TStringList.Create;
 ss.LoadFromFile('1.txt');
 if ss.Count>0 then
  for i:=0 to ss.Count-1 do
  begin
Memo1.Text:=ss[i];


end;

[hoza_syl]

Делай так:

procedure TForm1.Button1Click(Sender: TObject);
var
   i: Integer;
   ss : TStringList;
begin
 ss:=TStringList.Create;
 ss.LoadFromFile('1.txt');
 if ss.Count>0 then
  for i:=0 to ss.Count-1 do
  begin
   Memo1.Lines.Add(ss.Strings[i]);
   sleep(30000); //задержка в 30 сек
  end;
end;
end;

Если нужны объяснения - пишы.

[hoza_syl]

Ах да забыл! В конце на забудь написать:

ss.free;

[_Dmitry]

Так программа "умрёт" до тех пор, пока не выведет все строки.
Лучше использовать таймер.

[hoza_syl]

Почти согласен. Но еще лутше сделать вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
   i: Integer;
   ss : TStringList;
   h: THandle;
begin
 ss:=TStringList.Create;
 ss.LoadFromFile('1.txt');
 h:=CreateEvent(nil,true,false,''); //создаем пустое событие
 if ss.Count>0 then
  for i:=0 to ss.Count-1 do
  begin
   Memo1.Lines.Add(ss.Strings[i]);
   WaitForSingleObject(h,30000); //задержка в 30 сек
  end;
  closeHandle(h); //уничтожаем его
end;

[hoza_syl]

Хотя нет - WaitForSingleObject тоже зависает прогу, оно просто меньше грузит систему чем sleep - я использую ее в фоновых программах.
Вот так в самый раз - и с таймерами возится не надо Компилятором не проверял.

var
   i: Integer;
   ss : TStringList;
   PrevTickCount : integer;
begin
 ss:=TStringList.Create;
 ss.LoadFromFile('1.txt');
 if ss.Count>0 then
 PrevTickCount:=GetTickCount();
  for i:=0 to ss.Count-1 do
  begin
    if GetTickCount - PrevTickCount > 30000 then
    begin
     Memo1.Lines.Add(ss.Strings[i]);
     PrevTickCount:=GetTickCount;
    end;
  application.ProcessMessages;
  end;
end;

[hoza_syl]

Блин. Снова заметил ошибку:
Используй цикл while, а не for. Cчетчик уменшай после добавления строки.