Szukanie w richedit

0

JAk za pomocą finddialog wyszukać tekst w rich edit :( wiem ze kilka było takich postow ale nie moge znaleŹć

0

luknij w faq lub zassaj sobie zrodlo programu Pad

0

procedure TForm1.FindDialog1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with RichEdit1 do
begin
{ begin the search after the current selection if there is one }
{ otherwise, begin at the start of the text }
if SelLength 0 then

  StartPos := SelStart + SelLength
else

  StartPos := 0;

{ ToEnd is the length from StartPos to the end of the text in the rich edit control }

ToEnd := Length(Text) - StartPos;

FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt  -1 then
begin
  SetFocus;
  SelStart := FoundAt;
  SelLength := Length(FindDialog1.FindText);
end;

end;
end;

A w jakimś buttonie:

[code]FindDialog1.Execute;[/code]

0

Dzięki

0

Tak ciężko nacisnąć te F1?

0

Tak ciężko bo nie znam angielskiego :(
]

POKAZUJE MI TAKI BŁĄD
[Error] Unit1.pas(403): Undeclared identifier: 'FindDialog1Find'

0

Tak ciężko bo nie znam angielskiego :(
]

POKAZUJE MI TAKI BŁĄD
[Error] Unit1.pas(403): Undeclared identifier: 'FindDialog1Find'

A dodales FindDialog (komponent) z zakladki Dialogs? [cya]

0

tak

0

tak

  1. postaw komonent FindDialog na forme.
  2. Wejdz do zakladki Events w OI tego komonentu.
  3. kliknij dwa razy na onFind.
  4. wklej kod do tej procedury

i powinno byc dobrze :d

0

OK juz mi działa dzięki

0

Niech ktoś to sprawdzi i wrzuci do gotowców, bo już pogubiłem się w liczeniu ile razy to występowało.

1 użytkowników online, w tym zalogowanych: 0, gości: 1