[logan22]

Сообщение от PS11011010

Код:

i:=0;
Repeat
 s:=Memo1.Lines[i];
 n:=pos('.', s);
 if n=0 then Memo1.Lines.Delete[i]
  else inc(i);
until i=Memo1.Lines.Count-1;

спасибо за отзыв.. но жалуется
[Error] Unit1.pas(505): Not enough actual parameters
указывая на эту часть кода

Код:

var
n, i: integer;
s : string;
begin
i:=0;
Repeat
 s:=Memo1.Lines[i];
 n:=pos('.', s);
 if n=0 then Memo1.Lines.Delete[i]
  else inc(i);
until i=Memo1.Lines.Count-1;

Админ: Пользуемся тегами для оформления кода!