Memo удаление строки...

[sdfy]

Вообщем столкнулся с проблемой.
Загружаю в мемо предположим 100 строк и программа должна удалить те строки в которых меньше 16 символов. Как это осущиствить?

[Пепел Феникса]

var i:integer;
begin
 i:=0;
 while i<Memo1.Lines.Count do
  if Length(Memo1.Lines[i])<16
   then Memo1.Lines.Delete(i)
   else inc(i);
end;

[Sciv]

var i: integer;
    s: string;
begin
  i:=0;
  While i<Memo1.Lines.Count do begin
    s:=Memo1.Lines.ValueFromIndex[i];
    if length(s)<16 then Memo1.Lines.Delete(i)
    else inc(i);
  end;
end;

так?

UPD. Опоздал, да еще и пару ошибок сделал сначала

[Человек_Борща]

Примерно так:

label g;
var
  i:Integer;
  bDoNext:BOOL:
begin
 g:
    bDoNext:=False;
for i:=0 to Memo1.Lines.Count -1 do
begin
  if Length(Memo1.Lines[i]) < 17 then
  begin
    Memo.Lines.Delete(i);
    bDoNext:=True;
    Break;
  end;
end;

if bDoNext then goto g;
end;

[Аватар]

так?

Не-а. Правильно у Пепел Феникса, только он забыл сравнить с 16.Можно и циклом FOR

 for i:=Memo1.Lines.Count-1 downto 0 do
   if Length(Memo1.Lines[i])<16 then Memo1.Lines.Delete(i);

Человек_Борща, не вникал насчет правильности, но накрутили дай боже

[Sciv]

Не-а. Правильно у Пепел Феникса...

Ага, уже увидел и поправил. Спасибо

[Пепел Феникса]

ну забыл, бывает

сча исправлю.

[sdfy]

Сообщение от Пепел Феникса

var i:integer;
begin
 i:=0;
 while i<Memo1.Lines.Count do
  if Length(Memo1.Lines[i])<16
   then Memo1.Lines.Delete(i)
   else inc(i);
end;

спасибо работает, но в мемо остаются пустые строки вместо этих удаленных, как удалить и сразуже убрать пустую строку

[Sciv]

но в мемо остаются пустые строки вместо этих удаленных

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

[sdfy]

Спасибо еще раз)))
а вот предположим
у меня строки такого вида

12346:123456
5465465:4545
.....
я их разделил и в переменной "t" у меня пишется все что перед ":", а в переменной "s" все что после ":". Как сделать примерно туже функцию. Удалять все строчки в которых переменная "s" меньше 6 символов.))))