[ajs]

Уважаемые гуру!

Никак не могу стправиться с простой казалось задачей.

Есть memo 1- в нем некий текст, в тексте есть строки метки (000, 111).
Необходимо между этими метками удалить тект и вставить туда текст из memo2.

[Aristarh Dark]

Код:

var
  a,b:integer;
begin
  a:=pos('000',Memo1.Lines.Text);
  b:=pos('111',Memo1.Lines.Text);
  if (a*b = 0) or (a>b)  then
    begin
      ShowMessage('Labels is invalid! ERROR!');
      Exit;
    end;
  Delete(Memo1.Lines.Text,a+2,b-(a+2));
  Insert(Memo1.Lines.Text,Memo2.Lines.Text,a+2);
end;

примерно так, в константах мог ошибиться (ибо не проверял) там могут быть не двойки а что-то 2(+/-)1

[ajs]

Спасибо за ответ,
при введениик кода ругается на команды
Delete и Insert

[Error] Unit1.pas(39): Incompatible types
[Error] Unit1.pas(41): Constant object cannot be passed as var parameter
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Aristarh Dark]

Занчит делай не напрямую Memo1.Lines.Text а через временную переменную

[ajs]

Большое спасибо! Получилось.

[ajs]

помоги пож- ста еще в одной задачке
есть memo1- memo10.
как в цикле заменить текст в memo1 поочередно на тект из memo2, memo3, memo4..... memo10.

[The Shadow]

Код:

for i:=2 to 10 do
Memo1.Lines.Assign(TMemo(FindComponent('Memo' + IntToStr(i))).Lines);

Только изменения произойдут очень быстро, поэтому можешь добавить Sleep() или что-нибудь другое.

[ajs]

Спасибо огромное!