Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Вниз
Как такое может быть!.... цикл до 3 а выполняется 10 раз! Найти похожие ветки
← →
Zvr@b (2004-07-09 02:06) [0]
begin
fail:=SpinEdit1.Value;
predlog:=SpinEdit2.Value;
n:=StringGrid1.RowCount;
for j:=1 to fail do //-- цикл создания N файлов html
BEGIN
//--составляем N предложений
for i:=1 to predlog do
begin
m:=n-1;
m:=Random(m)+1;
p1:=StringGrid1.Cells[1,m];
m:=n-1;
m:=Random(m)+1;
p2:=StringGrid1.Cells[2,m];
m:=n-1;
m:=Random(m)+1;
p3:=StringGrid1.Cells[3,m];
arr[i]:=p1+p2+p3+#13#10; // Записали предложения в массив
end;
//-- закончили составлений предложений
//--вывожу n предложений в Memo
for i:=1 to predlog do
predSum:=predSum+arr[i];
Form2.Memo1.Text:=predSum;
//----------------------
//--сохраняю Memo в html
If Saving then
begin
AssignFile(f,FName);
Rewrite(f);
Writeln(f,Form2.Memo1.Text);
FName:=SaveDialog1.FileName+IntToStr(j)+".htm";
CloseFile(F);
end
else Button2Click(Sender);
//--конец сохранения Memo
// Form2.Memo1.Clear;
END; //-- конец цикла создания N файлов
end;
У меня к мастерам один вопрос: почему когда выполняется этот код (fail=3, predlog=3, Saving - логическое), то у меня происходит сохранение 10 html вместо 3 и предложения во всех файлах одинаковые?
Я проверял... закомментировал блок сохранения в html, и что же - в Memo выводится всё как надо, т.е. цикл правельный кроме блока сохранения. Но что в нём не верно не пойму... и почему сохраняется аж целых 10 html а не 3? Просто чудеса какаие - то!
← →
GanibalLector © (2004-07-09 03:00) [1]>Я проверял... закомментировал блок сохранения в html, и что же - в Memo выводится всё как надо, т.е. цикл правельный кроме блока сохранения. Но что в нём не верно не пойму... и почему сохраняется аж целых 10 html а не 3?
Что-то смущает Button2Click(Sender);
Что ты там жмешь???
Дальше больше...как у тебя проходит
AssignFile(f,FName);
когда сам FName ты обьявил ниже ???
Короче...поздо уже(глаза закрываются) вот на коленях написал,то в чем ты так сомневаешься.
procedure TForm1.Button1Click(Sender: TObject);
Var Saving:boolean;
F:textfile; FName:string;
j:integer;
begin
Saving:=true;
for j:=1 to 10 do begin
If Saving then begin
FName:=SaveDialog1.FileName+IntToStr(j)+".htm";
AssignFile(f,FName);
Rewrite(f);
Writeln(f,Memo1.Text);
CloseFile(F);
end;
end;
end;
и получил 10 файлов.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.07.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.036 c
