Dellphi Memo i Finddialog

Odpowiedz Nowy wątek
2011-09-02 10:41
0

Witam otóż wykombinowałem coś takiego ale mi nic mi nie znajduje pomożecie ?

procedure TForm1.Znajd1Click(Sender: TObject);
begin
  FindDialog1.Execute;
end;
 
end.
 
procedure TForm1.FindDialog1(Sender: TObject);
var
   nStart, nSelLen : integer;
begin
   nSelLen := Length(FindDialog1.FindText);
   nStart := Pos(FindDialog1.FindText, Memo1.Lines);
   if (nStart > 0) then
   begin
      with Memo1 do
      begin
         SelStart := nStart - 1;
         SelLength := nSelLen;
         SetFocus;
      end;
   end;
end;
edytowany 1x, ostatnio: madmike, 2011-09-02 18:32
Kod w <.CODE> !!! - payl 2011-09-02 16:22

Pozostało 580 znaków

2011-09-02 14:39
0

To to się w ogóle kompiluje?

Pos(FindDialog1.FindText, Memo1.Lines);

Chyba Memo1.Text...
Poza tym, zacznij lepiej nazywać porządnie komponenty, a nie Memo1, FindDialog1...


edytowany 1x, ostatnio: Patryk27, 2011-09-02 14:39
A myślisz że on wie co to kompilacja? - payl 2011-09-02 16:11
Obstawiam taką możliwość... - Patryk27 2011-09-02 16:13

Pozostało 580 znaków

2011-09-02 19:59
0

@Przemo1990: przeanalizuj sobie kod dołaczony do tego posta i przede wszystkim zacznij czytać kurs z podstawami, bo co chwila masz problem z jakimiś banałami, nie myślisz samodzielnie, nie kombinujesz, tylko od razu pytasz na forum. A to powinna być ostatecznośc jak samodzielnie sprawdzisz wszystkie kombinacje tak aby coś zaczeło działac i co najważniejsze wspomagać się google zanim zapytasz. Ja rozumiem początki, dział Newbie i tym podobne, ale forum powinno się traktować jako pomoc w ostateczności. Nie raz ktoś miał przed Tobą podobny problem, jak coś wyszukać w Memo i zadawał takie pytanie lub opisał to ktoś w taki spsoób, że po znalezieniu w google wszystko powinno być jasne. Trzeba tylko chcieć poszukać samemu.


Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

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