[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

[logan22]

Не, не пашит.

Опять зависает!)
А конкретнее если использовать Ваш код то жалуется на строчку

Код:

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

а если взять i в скобки то откомпилируется и зависит!
ах да забыл сказать у меня Delphi 7

[angvelem]

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

Попробуй так:

Код:

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;

Нельзя увеличивать i, когда произошло удаление.

[lmikle]

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

Нельзя увеличивать i, когда произошло удаление.

А цикл в обратном порядке просто прокрутить не догадались?

Код:

For i := Memo1.Lines.Count-1 DownTo 0 Do
  If Pos('.',Memo1.Lines[i]) = 0 Then Memo1.Lines.Delete(I);

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

Топи F8 да смотри состояния переменных, может сам разберешься из-за чего циклится.

[logan22]

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

А цикл в обратном порядке просто прокрутить не догадались?

Код:

For i := Memo1.Lines.Count-1 DownTo 0 Do
  If Pos('.',Memo1.Lines[i]) = 0 Then Memo1.Lines.Delete(I);

Как не странно, оно сработало!
Но.... опять же сказу же зависла как сделало дело!)