Удаление части строк в memo

[igabenu]

Здравствуйте, подскажите пожалуйста, как правильно организовать в memo1 удаление каждой части строки после 6 символа и последующую запись в memo2?

[Serge_Bliznykov]

непонятно, что Вам нужно получить.
то ли в Memo1 получить обрезанный текст, то ли в Memo1 текст должен остаться без изменений, а в Memo2 - обрезанный скопировать..
если первое, то

  // обрезать строки в Memo1
  for i:=0 to Memo1.Lines.Count-1 do
     Memo1.Lines[i] := Copy(Memo1.Lines[i],1,6);

  // переписать полностью Memo1 в Memo2
  Memo2.Lines.Text := Memo1.Lines.Text;

если - второе, то

  // скопировать обрезанные строки из Memo1 в Meмo2
  Memo2.Lines.Clear;
  for i:=0 to Memo1.Lines.Count-1 do
     Memo2.Lines.Append(Copy(Memo1.Lines[i],1,6));

[m-d-k]

Пожалуйста, подскажите, как это же сделать в билдере!

Такой вариант не работает:

Memo1->Lines->Strings[i]=Copy(Memo1->Lines->Strings[i],1,77)

[m-d-k]

Разобрался:
Memo1->Lines->Strings=Memo1->Lines->Strings.SubString(1,7);