[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];

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

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

[angvelem]

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

[Mr_Banochka]

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

Код:

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

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

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

[angvelem]

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

[Mr_Banochka]

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

Код:

 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.