если текст найден то

[mitiay]

Подскажите как сделать поиск в мемо,допустим
Если найдено "VA-122" то удалить полностью эту строку

[Serge_Bliznykov]

for i:=Memo1.Lines.Count-1 downto 0 do
 if Pos('VA-122'. Memo1.Lines[i])>0 then Memo1.Lines.Delete(i);

только учтите, TMemo - это визуальный компонент, он не предназначен для обработки информации в нём, поэтому это не очень красивый, правильный и эффективный код!

[mitiay]

Подскажите как сделать разделитель строчек допустим в мемо есть тест
333
444
555

как добавть текст в мемо2 одной строчкой с таким резуьтатом 333,444,555

[Serge_Bliznykov]

s := Memo1.Text;
Memo2.Text := StringReplace(s,#13#10,',', [rfReplaceAll]);

[mitiay]

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

s := Memo1.Text;
Memo2.Text := StringReplace(s,#13#10,',', [rfReplaceAll]);

Спасибо!как последний символ удалить?

[Serge_Bliznykov]

s := Memo1.Text;
s := StringReplace(s,#13#10,',', [rfReplaceAll]);
if Length(s)>0 then 
  if s[Length(s)]=',' then s:= Copy(s, 1, Length(s)-1);
Memo2.Text := s;

[mitiay]

не удаляет((последний символ в строчке

[mitiay]

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

s := Memo1.Text;
s := StringReplace(s,#13#10,',', [rfReplaceAll]);
if Length(s)>0 then 
  if s[Length(s)]=',' then s:= Copy(s, 1, Length(s)-1);
Memo2.Text := s;

Спасибо!Разобрался!А а как теперь удалить первый символ?)

[Аватар]

Спасибо!Разобрался!А а как теперь удалить первый символ?)

Не разобрался. Почитай внимательно, что такое Copy и Length и как выдернуть подстроку начиная со второго символа

[Shouldercannon]

var
  s, s2: String;
begin
  s := Memo1.Text;
  s := StringReplace(s, #13#10, ',', [rfReplaceAll]);
  while (Pos(',', s)) <> 0 do
  begin
    s2 := s2 + Copy(s, 2, Pos(',', s) - 1);
    Delete(s, 1, Pos(',', s));
  end;
  if Length(s2) > 0 then if s2[Length(s2)] = ',' then s2 := Copy(s2, 1, Length(s2) - 1);
  Memo2.Text := s2;
end;