[Mr_Banochka]

Всем добрый вечер.

Задача:
Есть файл со строками вида:

PHP код:

//////888/////
****5555****
////4444//// 


файл загружен в Memo21;

Есть строка в Memo2, вида "****" (строка известна);

Задача:
Скопировать эту строку полностью в Edit, чтобы получилось что Edit1.Text:='****5555****';.
Сделал вот так:

Код:

for i := 0 to Memo1.Lines.Count-1 do
 if Memo1.Lines.Strings[i] ="****" then
 Edit1.Text:=Memo1.Lines[i-1];

По идее этот код проверяет все строчку, а нужны только несколько первых символов. Дело в том, что известны первые символы (звездочки), а все что потом - может отличаться.

Рассчитываю на вашу помощь