Fejl med TFinddialog

http://www.borrisholt.com/VCL/DelphiSource/Findreplace.zip

Gøre det præcist samme måde.. tror at jeg har brugt dit kode før.
Sådan her:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
st: TSearchTypes;
newpos: integer;
Mem : TRichEdit;
FindDialog : TFinddialog;
begin
Mem := TRichEdit(FindComponent('Edits' + IntToStr(Dokumenter.ActivePage.Tag)));
Finddialog := (Sender as TFinddialog)

if frMatchCase in FindDialog1.Options then
  st := st+[stMatchCase];

if frWholeWord in FindDialog1.Options then
  st := st+[stWholeWord];

if Mem.SelLength > 0 then
  Mem.SelStart := Mem.SelStart + 1;

newpos := Mem.FindText(FindDialog1.FindText, Mem.SelStart, Length(Mem.Text), st);

if newpos <> -1 then
  begin
    Mem.SelStart := newpos;
    Mem.SelLength := Length(FindDialog1.FindText);
  end
else
  begin
    MessageDlg('"'+FindDialog1.FindText+'"'+' '+'blev ikke fundet!',mtInformation,[mbOK],0);
    Mem.SelStart := 0;
  end;
end;

Virker bare ik :(

Finddialog1 er Finddialog (glemte at rette), men det virker ikke stadig.

Så vidt jeg kan se, understøtter TRichEdit.FindText det slet ikke som standard.

athlon-pascal> Men det virker jo, bare ikke når man sætter den til at søge tilbage (up).

det virker også nårman sætter den til at søge tilbage (up) men den søger stadigvæk bare fremad (down)

"Så vidt jeg kan se, understøtter TRichEdit.FindText det slet ikke som standard."
Med "det" mente jeg at søge tilbage :-)

ahh sorry :) misforstod :)
Men hvad gør jeg så ?

Der er lidt fejl i denne kode, og det er sikkert heller ikke den bedste løsning, men det virker (næsten):

procedure TForm1.FindDialogFind(Sender: TObject);
var
st: TSearchTypes;
newpos: integer;
FindDialog: TFindDialog;

function VendTekst(Tekst: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(Tekst) do
    Result := Tekst[I] + Result;
end;

begin
FindDialog := (Sender as TFindDialog);

if frMatchCase in FindDialog.Options then
  st := st+[stMatchCase];

if frWholeWord in FindDialog.Options then
  st := st+[stWholeWord];



if frDown in FindDialog.Options then
begin
  if RichEdit1.SelLength > 0 then
    RichEdit1.SelStart := RichEdit1.SelStart + 1;
  newpos := RichEdit1.FindText(FindDialog.FindText, RichEdit1.SelStart, Length(RichEdit1.Text), st)
end else
begin
  if RichEdit1.SelLength > 0 then
    RichEdit1.SelStart := RichEdit1.SelStart - 1;
  tmpRichEdit.Text := VendTekst(RichEdit1.Text);
  newpos := tmpRichEdit.FindText(VendTekst(FindDialog.FindText), Length(RichEdit1.Text) - RichEdit1.SelStart + 1 - Length(FindDialog.FindText), Length(tmpRichEdit.Text), st);
  if newpos > -1 then
    newpos := Length(RichEdit1.Text) - newpos - Length(FindDialog.FindText);
end;

if newpos > -1 then
  begin
    RichEdit1.SelStart := newpos;
    RichEdit1.SelLength := Length(FindDialog.FindText);
  end
else
  begin
    MessageDlg('"'+FindDialog.FindText+'"'+' '+'blev ikke fundet!',mtInformation,[mbOK],0);
    RichEdit1.SelStart := 0;
  end;
end;

Den oprindelige kode er fra Jens' eksempel.

Du skal indsætte en ekstra TRichEdit på din form, sætte name=tmpRichEdit og visible=false :-)

virker næsten, men når jeg sætter den til at søge tilbage, så hvis der står "eeee" i min richedit, og jeg søger efter "e", så springer den én "e" over og marker den næste (kun når den er sat til at søge baglæns).

Det er ikke den eneste fejl...

okay, hvilke andre fejl er der? og kan du fixe dem ?

Det er ikke noget jeg lige har mod på (det driller for meget) ...

argh!! Andre der kan hjælpe :(

Fandt ud af det!
Mem.SelStart := Mem.SelStart -1;
Fjerner man -1 så virker det :)

athlon-pascal, læg lige et svar :)

Jeg håber ikke du findeer nye fejl :-)