поиск в строках Memo

[Danilka]

копался на форуме но так и не понял как это осуществить, пробовал некоторые варианты которые нашел, но они чтото не работают=((
вобщем задача такова:
есть какойто текст

а,б,в,г,д:буквы
а2,б2,в2,г2:перечеслениечегота
a1,б1,в1,г1:блаблабла

нужно найти и занести в таблицу символы, перед словом "буквы" и "блаблабла", проблема в том что символы заранее не известны

//upd: с первым пунктом разобрался, моя ошибка

[Serge_Bliznykov]

ну можно и так, с перебором..
только цикл надо крутить до Count минус 1

 For i:=0 to Memo1.Lines.Count-1 do

[Danilka]

отредактировал 1е сообщение...

[SERG1980]

Почитайте про ф-ию Pos и Сopy и всё будет ясно

[Terran]

нужно найти и занести в таблицу символы, перед словом "буквы" и "блаблабла", проблема в том что символы заранее не известны

Procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
Begin
For I:=0 To Memo1.Lines.Count - 1 Do
Begin
If Pos(':буквы',Memo1.Lines.Strings[I]) <> 0 Then
ListBox1.Items.Add(Copy(Memo1.Lines.Strings[I],1,Pos(':буквы',Memo1.Lines.Strings[I])- 1));
If Pos(':блаблабла',Memo1.Lines.Strings[I]) <> 0 Then
ListBox1.Items.Add(Copy(Memo1.Lines.Strings[I],1,Pos(':блаблабла',Memo1.Lines.Strings[I])- 1));
End;
End;