Определить конец цикла while do

[cw82]

Добрый день. Мне нужно, после того как цикл выполнится весь - нажать Button6 . Если записать код так как сейчас у меня, то Кнопка нажимается каждый проход цикла (В файле 3000 строк). Догадываюсь что решение на поверхности, но что то не догоняю. Прошу помощи. Вот код

procedure TForm1.Button3Click(Sender: TObject);
var
 s: String;
 cr: TextFile;
begin

  AssignFile(cr,'11.txt');
   reset(cr);
     while not eof(cr) do
     begin
   readln(cr, s);
       begin

        ADODataSet1.Active:= True;
        ADODataSet1.DisableControls;
      ADODataSet1.Insert;
      ADODataSet1.Fields[1].AsString:=Copy(s,6,2);
      ADODataSet1.Fields[2].AsString:=Copy(s,24,15);
      ADODataSet1.Fields[3].AsString:=Copy(s,39,1);
      ADODataSet1.Fields[4].AsString:=Copy(s,40,15);
      ADODataSet1.Fields[5].AsString:=Copy(s,70,15);
      ADODataSet1.Fields[6].AsString:=Copy(s,85,1);
      ADODataSet1.Fields[7].AsString:=Copy(s,89,12);
      ADODataSet1.Fields[8].AsString:=Copy(s,101,14);
      ADODataSet1.Fields[9].AsString:=Copy(s,115,14);
      ADODataSet1.Fields[10].AsString:=Copy(s,129,17);
      ADODataSet1.Fields[11].AsString:=Copy(s,154,20);
      ADODataSet1.Fields[12].AsString:=Copy(s,253,7);
      ADODataSet1.Post;
      ADODataSet1.EnableControls;
      begin
      Button6Click(Self);
          end;

          end;

          end;

[evg_m]

AdoDataset.DisableControls; 
try
while not(EOF) do begin
  ADODataSet.Insert;
  ........
  ADODataSet.Post;
end;
finally //мы же не хотим чтобы при возможных сбоях в загрузке ВСЕ(ADODataSet) осталось заблокированным
ADODataset.EnableControls;
end;
Button6Click(self);
Button6.click; //имитация

А если быть правильным, то надо ВСЕ то что записано в Button6click вынести в отдельную процедуру и вызывать ЭТУ процедуру
и в Button6click
и после цикла записи файла.
http://programmersforum.ru/showthrea...E%E2%E0&page=2

[cw82]

[QUOTE=evg_m;1642864]

AdoDataset.DisableControls; 
try
while not(EOF) do begin
  ADODataSet.Insert;
  ........
  ADODataSet.Post;
end;
finally //мы же не хотим чтобы при возможных сбоях в загрузке ВСЕ(ADODataSet) осталось заблокированным
ADODataset.EnableControls;
end;
Button6Click(self);
Button6.click; //имитация

Спасибо Вам огромное.

[cw82]

А если быть правильным, то надо ВСЕ то что записано в Button6click вынести в отдельную процедуру и вызывать ЭТУ процедуру
и в Button6click
и после цикла записи файла.

Это я знаю, баттонклик просто для примера вставил. Спасибо.!!