[logan22]

Подскажите пожалуйста
имею большой memo1 с текстом

Код:

1.17
2.21
33.32
44.44
5.2
6.45
77
8.14

как программно удалить ту строку где отсутствует символ? (В данном случае это точка).

[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;

[M.A.D.M.A.N.]

Смотри последнюю ссылку в подписи.

[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;

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

[M.A.D.M.A.N.]

В круглые скобки возьми.

[logan22]

извините пожалуйста меня родимого за нагласть

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

[Pyro]

забей в поиск stringlist, можно ещё через Memo1.Lines.BeginUpdate

[PS11011010]

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

спасибо за отзыв.. но жалуется
[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;

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

А по-моему ошибка такова:

Код:

if n=0 then Memo1.Lines[i].Delete

[logan22]

Если юзать данный код то после нажатия на кнопку программа зависает!)

[Kailon]

Код:

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;

В данном коде увеличение счетчика происходит только при не соблюдении условия n=0... А если условия постоянно соблюдается, то вот тебе и бесконечный цикл. Попробуй так:

Код:

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

А вообще тут вполне бы подошел for...to...do