[Mr_Banochka]

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

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

PHP код:

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


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

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

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

Код:

1 2 3

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

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

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

[angvelem]

Используй функцию Copy для копирования строки из Memo в локальный String - нужной длины. Затем проверяй скопированное.

[Mr_Banochka]

Спасибо большое за подсказку. Сделал так:

Код:

1 2	descript:=Pos('****', Memo1.Text);   if descript>0 then Edit3.Text:=Copy(Memo1.Text, descript, 500);

Но теперь столкнулся с определением длины строки. Знаю, что нужно сделать через length, но как определить номер строки??? не могу вкурить...
И еще, у меня строка довольно длинная и в маленькое окошко мемо все не помещается и разбивается на несколько строк, а это для меня не подходит. Когда делаю горизонтальную прокрутку, то все ок. Можно ли сделать как одну строку, но без скроллбара???

Заранее спасибо.

[angvelem]

Не нужно брать из Memo1.Text, делай как и раньше по циклу.

[Mr_Banochka]

Получилось нечто подобное:

Код:

1 2 3 4

for i:=0 to Memo1.Lines.Count-1 do     begin          descript:=Pos('****', Memo1.Lines[i]);          if descript>0 then Edit3.Text:=Copy(Memo1.lines[i], descript, length(memo1.Lines[i]));

Надеюсь кому-то поможет. И еще: можно ли этот кусок как-то оптимизировать или и так вполне сносно??? И по поводу переноса строк - вопрос остаётся открытым. Можно что-то придумать???

[angvelem]

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

... можно ли этот кусок как-то оптимизировать или и так вполне сносно??? И по поводу переноса строк - вопрос остаётся открытым. Можно что-то придумать???

Всё нормально и так.
Смотри WantReturns, WordWrap.