Как удалить строку если она больше 55 символов?

[mt10forex]

собствено вот код

procedure TForm1.Button4Click(Sender: TObject);


var
Str   : string;
 i:Integer;
tt, t:TStringList;
begin
 t:= TStringList.Create;
 t.Add(Memo2.Lines.Text);
 tt:= TStringList.Create;
  t:= TStringList.Create;
 Str:=t.Strings[i];
  for I := 0 to Memo2.Lines.Count - 1 do
   begin
    if Length(Str)<55 then tt.Add(Str);
end;
  Memo2.Clear;
  Memo2.Lines.Add(tt.Text);
  t.Free;
    tt.Free;
 end;
end.

ошибка вылетает
компилятор д7 хе3

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

[type_Oleg]

Фрагмент вашего кода

 t:= TStringList.Create; 
 t.Add(Memo2.Lines.Text); 
 tt:= TStringList.Create; 
  t:= TStringList.Create; // зачем второй раз ?
 Str:=t.Strings[i];  // чему равно i ?

[mt10forex]

t:= TStringList.Create; // зачем второй раз ? это убрал веровно ошибка


Str:=t.Strings[i]; // чему равно i ? //
for i := 0 to Memo2.Lines.Count - 1 do

[Stilet]

В чем состоит задача кода? Убрать все строки менее 55 символов?

[mt10forex]

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

В чем состоит задача кода? Убрать все строки менее 55 символов?

да, убрать из стринг листа

закоментил for и вроде работает, значит дело в цикле, не фига не пойму чем цикл помешал то

[Stilet]

with  Memo2.Lines do
 for i:=count-1 downto 0 do
  if Length(Strings[i])<55 then Delete(i);

И более ничего не надо.

[type_Oleg]

Я не догадался о downto. У меня длиннее получилось

 i:=0;
 repeat
  if Length(Memo2.Lines.Strings[i])<55
   then  Memo2.Lines.Delete(i)
   else Inc(i);
 until i>=Memo2.Lines.Count;

Не надо никаких Str, tt, t

PS Кстати, удалить строки короче или длинне 55 ?

[mt10forex]

PS Кстати, удалить строки короче или длинне 55 ?

длинее
ну ладно мемо так мемо, а если у меня 5000 строк этож тормаза будут
спс всем, где тут кнопка спасибо? нет( ну ладно

[Stilet]

with  Memo2.Lines do begin
 BeginUpdate;
 for i:=count-1 downto 0 do
  if Length(Strings[i])>55 then Delete(i);
 EndUpdate;
End;

И никаких тормозов.

[blackstrip]

mt10forex, как минимум, "Str:=t.Strings[i];" надо было засунуть внутрь цикла. Иначе i перед циклом (перед for) не имеет определенного значения и на строке Str:=t.Strings[i]; выполнение спотыкается. Просто отладчик, получается, вылетел позднее, и напугал вас ошибкой в цикле.