Ładny brzuch

Witam!
Mam taki kod:
var      opcje:TSearchTypes;      FoundAt: LongInt;      StartPos, ToEnd: integer; begin  with SynMemo1 do   begin if SelLength <> 0 then StartPos := SelStart + SelLength else StartPos := 0; ToEnd := Length(Text) - StartPos; opcje:=[]; if frMatchCase in finddialog1. Options then Include(opcje, stMatchcase); if frWholeWord  in finddialog1.options then Include(opcje, stWholeWord); FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, opcje); if FoundAt <> -1 then begin SetFocus; SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end; end; end;
Podczas kompilacji wyskakuje mi blad:

[Error] Unit1.pas(926): Undeclared identifier: 'FindText'
Czy wie ktos moze jak temu zaradzic?
Z gory dzieki


Sprawdz czy dolaczyles wszystkie unity...


Czy wie ktos moze jak temu zaradzic?


migajek - > przykad jest ywcem wzity z Helpa Delphi 7. FindText po co pisa samemu? to jest oglnie dostpna funkcja w Delphi :)

Kajetanek ma racj. trzeba sprawdzi czy na licie uses s wszystkie niezbdne rzeczy. a ja niestety nie pamitam z czego findtextkorzysta :D trzeba pogoogla troch :D



Kajetanek ma racj. trzeba sprawdzi czy na licie uses s wszystkie niezbdne rzeczy. a ja niestety nie pamitam z czego findtextkorzysta :D trzeba pogoogla troch :D

pewnie na ohp.migres.net znalazl
jest tam taki sam kod
na 4programmers.net jeden user mial podobny problem
http://4programmers....icle.php?id=225
Uytkownik krystian_rad edytowa ten post 25 wrzesie 2005, 20:55
oczwyicie e jest bo on jest ywcem wzity z Helpa Delphi :P

Ja wyszukiwanie zrobiem na synedicie ale mysle ze powinno dziaa tez na synmemo
var  poczatek : integer; procedure TOkno.Znajdz1Click(Sender: TObject); begin odWyszukaj.Execute; // - finddialog poczatek:=0; end;   Procedure Znajdz(Edytor : TSynEdit; Wzorzec : AnsiString; var    Poczatek :Integer);  var  buf : PChar;  pozycja : integer;  begin   buf:= @Edytor.lines.Text[Poczatek +1];   pozycja:= AnsiPos(Wzorzec, buf);   Poczatek:= Poczatek + pozycja;     if (pozycja > 0) then      begin       Edytor.SelStart:= Poczatek - 1;       Edytor.SelLength:= Length(wzorzec);       end;       end;   procedure TOkno.odWyszukajFind(Sender: TObject);  { u mnie odwyszukaj to findDialog} begin Znajdz(Edytor, odWyszukaj.FindText, poczatek); // u mnie Edytor to synedit end;

A w podanym wyej adresie: http://4programmers....icle.php?id=225
wyszukiwanie dziaa - ale nie na synEdit czy synmemo.
Uytkownik statjacek edytowa ten post 26 wrzesie 2005, 09:02
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •