Определить Конец Цикла

sera · 27 Окт 2016

Помогите парни, никак не могу понять как это сделать.
В общем есть цикл

Код:

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

begin
  log('Открытие файла') ;
  AssignFile(cr,'11.txt');
  reset(cr);
  while not eof(cr) do
  begin
  readln(cr, s);
  begin
  ADODataSet1.Active:= True;

  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.Post;
end;
  end;
  end;

Мне нужно чтобы Когда цикл пройдет весь файл до конца, то например появилось ShowMessage('!!!!!') ;
В общем в файле 3000 строк и если я добавлю ShowMessage сразу после ADODataSet1.Post; , то сообщение выскакивает после каждой строчки текстового файла.[/code]

Sascha · 27 Окт 2016

Код:

ADODataSet1.Next;

Не пробывал

sera · 31 Окт 2016

Sascha написал(а):
Код:

ADODataSet1.Next;

Не пробывал

Можете пояснить? В каком месте попробовать

Код:

ADODataSet1.Next;

??? Я начинающий, вещи , которые кажутся Вам очевидными - для меня темный лес...

Lomanu4 · 31 Окт 2016

лучше циклом for

Sascha · 31 Окт 2016

sera написал(а):
Можете пояснить? В каком месте попробовать

Код:

ADODataSet1.Next;

??? Я начинающий, вещи , которые кажутся Вам очевидными - для меня темный лес...

У тебя не цыкл а занос информации по одной

sera · 31 Окт 2016

Sascha написал(а):
У тебя не цыкл а занос информации по одной

Пусть будет так... Но вопрос был другой. Пояснить свой ответ не можете?
Спасибо уже решил.

Sascha · 31 Окт 2016

sera написал(а):
Пусть будет так... Но вопрос был другой. Пояснить свой ответ не можете?
Спасибо уже решил.

ADODataSet1.Post;
ADODataSet1.Next;

sera · 31 Окт 2016

Sascha написал(а):
ADODataSet1.Post;
ADODataSet1.Next;

Спасибо, но нет, не помогло.
И в тему циклов ...
Цикл с предусловием (while)
Цикл с предусловием – это цикл, в котором условие проверяется до выполнения тела цикла. Такой цикл будет выполняться до тех пор пока условие не станет ложным, т.е. если условие будет ложно с самого начала, то цикл не выполниться не разу. Этот цикл записывается с помощью операторов while и do, вот его общий вид:

Код:

while {условие} do
begin
{тело цикла}
end;[code]