Работа со строкой бесконечно.

[мимо]

Здравствуйте.

procedure TForm1.Control;
var
CurrLine: string;
In: integer;
begin
  CurrLine := ControlFile.Strings[In];
  a:= CurrLine;
  b:= copy(Result,1,pos('.',Result)-1);
end;

Загружено в стринг лист 7 строк, необходимо после распарсивания последней строки перейти на первую и так бесконечно. Как такое осуществить?

[vovk]

Вот только зачем бесконечно???

in:=0;
while 2>1 then
begin
 CurrLine := ControlFile.Strings[In];
  a:= CurrLine;
  b:= copy(Result,1,pos('.',Result)-1);
inc(in);
if i > 6 then in:=0;
end;

[мимо]

Ну, не совсем конечно, бесконечно, но по кругу должна идти. Спасибо. Проверю.

[Ghost of Night]

repeat
что нужно выполнить
until 1<0