Цитата:
Для того что бы не было лишних пустых строк сделай кнопку чтобы чистила Memo.
|
добавил в код,в конец кнопки
Цитата:
На самом деле тебе нужно было почитать про работу со строками и все написал бы сам, здесь все элементарно.
|
думаю да!но появились вопросы:
изучил pos научился находить!в edit1 пишу тег каторый надо мне найти(просто тренировка)вот:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.LoadFromFile('C:\index.html');
memo1.Visible:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if pos(edit1.text,memo1.text)<>0 then
ShowMessage('Найден тег!')
else showmessage('НЕ найден Тег!!!=(');
end;
ну вот не могу понять:вот я нашел(с помощью pos) тег <body> как после него написать что нибудь???
что добавить в мой код?
что такое
???
можно с комментариями пожалуйста=)полегче что нибудь)))
очень благодарен за код m1sclick Работает=)
Страдалецъ,нет такой код не пойдет он слишком большой +непонятный,я придерживаюсь "меньше кода" и "понятного"типа как у m1sclick=)