[ROLF]

Существует текст, загружается в TMemo,
в нем есть строка например "mac test" в нем нужно найти эту строку и сверить с переменной если они совпадают то вывести что совпали...
Как это реализовать?

[ROLF]

Поиск строки реализовал так

Код:

var
c:Integer
begin
   c:=pos('Find text',Memo.text);
 if c<>0 then
  begin 
   showmessage('Строка найдена');
  end    else
  begin
   showmessage('Строка не найдена');
  end;

Admin: Пользуемся тегами!

А вот как реализовать поиск целого куска текста и сверить с оригинальным куском ?
И как загрузить кусок оригинального текста в переменную ?

[Rjkzy]

в принципе всё то же самое, только с "выдёргиванием" текста. хотя я если честно не понял, зачем его выдёргивать нужно, когда мы его же и ищём

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
c:Cardinal;
begin

c:=pos(Edit1.Text,Memo1.Text);
if c<>0 then
  begin
  Label1.Font.Color:=clBlue;
  Label1.Caption:=Copy(Memo1.Text,c,length(Edit1.Text));
  end
else
  begin
  Label1.Font.Color:=clRed;
  Label1.Caption:='Текст не найден';
  end;
end;

[ROLF]

Спасибо большое)

[Rjkzy]

не стоит благодарности

[ROLF]

получается только добрался до кода и проверил при любых вариантах он мне выдает что текст не найдет , делаю из сравнения двух TMemo

[Rjkzy]

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

[ROLF]

Блин глупо получилось но не пашет, прописал так

Код:

c:=pos(Memo1.Text,Memo1.Text);

А если прописать правильно

Код:

c:=pos(terminallist.Text,Memo1.Text);

То при поиске выдает ошибку

[ROLF]

Спасибо те за помощь решил пойти другим путем...