Всем добрый вечер.
Задача:
Есть файл со строками вида:
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];
По идее этот код проверяет все строчку, а нужны только несколько первых символов. Дело в том, что известны первые символы (звездочки), а все что потом - может отличаться.
Рассчитываю на вашу помощь