FindDialog problem !! hjælp hjælp

KAn du evt. komme med noget kode?
Hilsen CHadi
Mit lykketal er 2959

Kan vi ikke få hele din kode så vi ved hva du har skrevet og eventuelt mangler?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Kan vi ikke få hele din kode så vi ved hva du har skrevet og eventuelt mangler?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Her er koden:

procedure TForm1.Sg2Click(Sender: TObject);
begin
FindDialog1.Execute
end;

end.


[Redigeret d. 18/01-04 21:45:16 af Jens(BrobakSoft)]

Hmm ved mig virker den fint.. Du mangler for i øvrigt ; efter linien. Det var ikke sådan at vi kunne få hele di source kode?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Hmm ved mig virker den fint.. Du mangler for i øvrigt ; efter linien. Det var ikke sådan at vi kunne få hele di source kode?
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Jamen virker knapperne hos dig? Altså kan du søge efter et ord i en memo?
Hilsen CHadi
Mit lykketal er 2959

Jamen virker knapperne hos dig? Altså kan du søge efter et ord i en memo?
Hilsen CHadi
Mit lykketal er 2959

Ved brug af overnævnte kode?
Hilsen CHadi
Mit lykketal er 2959

Eksempel som virker:
Placer en TMemo, en TButton og en TFindDialog på din form. Definerer i en private variable i din form: FIndex : Integer;
I knappen OnClick sætter du FindDialog1.Execute;
if find dialogens OnFind sætter du følgende kode:

var
  idx : integer;
  cnt : integer;
  txt : String;
begin
  txt := FindDialog1.FindText;
  memo1.SetFocus;
  FIndex := PosEx(txt, Memo1.Text, FIndex+1);

  if FIndex > 0 then
  begin
    cnt := Length(txt);
    memo1.SelStart := FIndex;
    memo1.SelLength := cnt;
  end;
end;

Der mangler en del ting i at dette virker helt rigtigt. Men det burde kunne få dig igang.
--
Thomas Due
Software developer
udvikleren.dk - ASP redaktør
tdue@mail.dk