Форум: "Основная";
Текущий архив: 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.038 c