Неправельный цикл - Общие вопросы Delphi

demon9992 · 10.05.2010, 19:26

Код:

procedure TForm1.RzButton2Click(Sender: TObject);
var
i:integer;
begin

Memo1.Lines.LoadFromFile('ind.html');
Label1.Caption:=inttostr(strtoint(Label1.Caption)+1);
for i:=1 to ListBox1.Items.Count-2 do
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,'[c]',RzMemo1.Text,[rfReplaceAll]);
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,'[z]',ListBox1.Items[i],[rfReplaceAll]);
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,'[s]',Edit2.Text+ListBox1.Items[i],[rfReplaceAll]);
Memo1.Lines.SaveToFile(inttostr(i)+'.html');

end;

Создаётся одна страница 9.html..
В ListBox 10 записей...

Juffin · 10.05.2010, 19:59

Код:

procedure TForm1.RzButton2Click(Sender: TObject);
var
i:integer;
begin

Memo1.Lines.LoadFromFile('ind.html');
Label1.Caption:=inttostr(strtoint(Label1.Caption)+1);
for i:=1 to ListBox1.Items.Count-2 do
begin
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,'[c]',RzMemo1.Text,[rfReplaceAll]);
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,'[z]',ListBox1.Items[i],[rfReplaceAll]);
Memo1.Lines.Text := StringReplace(Memo1.Lines.Text,'[s]',Edit2.Text+ListBox1.Items[i],[rfReplaceAll]);
Memo1.Lines.SaveToFile(inttostr(i)+'.html');
end;

end;

может быть так?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Цикл по времени - Как сделать так чтобы цикл выполнялся к примеру 10 секунд ?	Anarki	Общие вопросы C/C++	3	13.11.2009 19:23
Цикл	Еля	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	10	25.10.2009 21:13
Неправельный прямоугольник	soonner	Мультимедиа в Delphi	5	01.06.2009 22:25
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until)	Mr.User	Помощь студентам	9	23.11.2007 01:34