да какие ошибки ... там глючить то почти нечему. если только можно сократить чуток... т.к. property Strings[Index: Integer]: string read Get write Put; default;
можно написать сразу индекс строки ... вот так
а и ещё... count надо умиеньшить на 1
Код:
for i:=0 to Memo1.count - 1 do
begin
MemoStart.Lines[i]:=stringReplace(MemoStart.Lines[i],'<lol>','',[rfReplaceAll]);
MemoStart.Lines[i]:=stringReplace(MemoStart.Lines[i],'</lol>', '',[rfReplaceAll]);
end;
Последний раз редактировалось dos999; 31.07.2008 в 15:42..