Поиск

[Яр|/||< (^_^)]

Как произвести поиск в memo

[Манжосов Денис :)]

Поиск чего? Циклом

procedure TForm1.Button1Click(Sender: TObject);
var
   s, s1: string;
   i: integer;
begin
   s1 := Memo1.Text;
   s := 'm';
   for i := 1 to Length(s1) do
    if s1[i] = s then ShowMessage('Cool!');
end;

Как пример

[artemavd]

Попробуйте это:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  Buff, P, FT: PChar;
  BuffLen: Word;
begin
  with Sender as TFindDialog do
  begin
    GetMem(FT, Length(FindText) + 1);
    StrPCopy(FT, FindText);
    BuffLen := Memo1.GetTextLen + 1;
    GetMem(Buff, BuffLen);
    Memo1.GetTextBuf(Buff, BuffLen);
    P := Buff + Memo1.SelStart + Memo1.SelLength;
    P := StrPos(P, FT);
    if P = nil then
      MessageBeep(0)
    else
    begin
      Memo1.SelStart := P - Buff;
      Memo1.SelLength := Length(FindText);
    end;
    FreeMem(FT, Length(FindText) + 1);
    FreeMem(Buff, BuffLen);
  end;
end;

[Яр|/||< (^_^)]

Например в мемо написано
1
2
3
4
5
6
7
8
9
10
и т.д
а мне надо найти например 5 (то что надо искать надо ввести в едит)

[Яр|/||< (^_^)]

Можешь ещё код под это написать?

[Kotofff]

Спросить конечно проще чем самому найти ...
Но все же вот, например, :
http://programmersforum.ru/showthrea...%E8%F1%EA+memo
http://narod.yandex.ru/cgi-bin/yandm...0=534498432&p=

[Яр|/||< (^_^)]

Просто я новичок и там ни чё ни пойму

[ОДИНОЧЕСТВО В СЕТИ]

for i:=0 to memo.Lines.Count-1 do
if memo.lines[i].text=edit.text then showmessage('Find!!!!');

[Яр|/||< (^_^)]

Огромное спасибо что помогли!

[Stilet]

Вообще-то есть метод IndexOF и сообщение поиска. Вот им и пользуй.