[Sharky]

Привет всем ,как программо организовать такие действия :у меня есть текстовый документ с помощью такой строки я загружаю его в мемо(memo.lines.loadfromfile(faillistbox) мне бы хотелось что бы по нажатия на кнопку программа искала в мемо какой либо символ а потом просто выделяла его на мемо и показывала по этому поводу сообщение .за код буду очень благодарен !за ранее спасибо !

[Aristarh Dark]

Можно вот так (у TMemo не забудь поставить HideSelection в False):

Код:

procedure FindInMemo(aMemo:TMemo;aText:String);
var
  p:integer;
begin
  p:=pos(aText,aMemo.Text);
  if p>0 then
    begin
      aMemo.SelStart:=p-1;
      aMemo.SelLength:=Length(aText);
      ShowMessage(Format('Найдено в позиции %d',[p]));
    end
  else
    ShowMessage('Не найдено');
end;

[Sharky]

Спасибо большое ! А как искать с учетом регистра ?

[Decoding]

Так эта процедура и ищет с учетом регистра. А если надо без учета, то замени

Код:

 
p:=pos(aText,aMemo.Text);

на

Код:

 
p:=pos(AnsiUpperCase(aText),AnsiUpperCase(aMemo.Text));