Søgning

procedure TForm1.Find1Click(Sender: TObject);
begin
FindDialog1.FindText := RichEdit1.SelText;
FindDialog1.Execute;    //åbner finddialogen
end;

procedure TForm1.Replace1Click(Sender: TObject);
begin
ReplaceDialog1.FindText := RichEdit1.SelText;
ReplaceDialog1.Execute; //åbner Replacedialogen
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
st: TSearchTypes;
newpos: integer;
cd: TFindDialog;
begin

cd := (Sender as TFindDialog);

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

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

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

newpos := RichEdit1.FindText(cd.FindText,
                    RichEdit1.SelStart,
                    Length(RichEdit1.Text),
                    st);

if newpos <> -1 then
  begin
  RichEdit1.SelStart := newpos;
  RichEdit1.SelLength := Length(cd.FindText);
  end
else
  begin
  MessageDlg('Færdig',mtInformation,[mbOK],0);
  RichEdit1.SelStart := 0;
  end;

end;

//erstat ord

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
begin
if RichEdit1.SelLength = 0 then
  FindDialog1Find(Sender)
else
  begin
  RichEdit1.SelText :=  ReplaceDialog1.ReplaceText;
  FindDialog1Find(Sender);
  end;

if frReplaceAll in ReplaceDialog1.Options then
  while (RichEdit1.SelLength <> 0) do
    ReplaceDialog1Replace(Sender);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.SelStart := 0;
end;

hmm.. det er sikkert meget godt :)
Men jeg er ikke særlig fortrolig med programmet endnu, så jeg forstår det ikke. Hvis jeg  laver et ny projekt skal jeg så bare kopiere din tekst ind, og så virker det?

ups. jeg skal selvfølgelig ikke lavet et nyt projekt, da det jo skulle virker til det program jeg har lavet. men jeg fatter det stadig ikke.

Ok så starter vi lige med TFindDialog.....
den finder du på fanebladet "dialog"

du placerer først en TFindDialog på din form
gå til event for TFindDialog og skriv.....

var
st: TSearchTypes;
newpos: integer;
cd: TFindDialog;
begin

cd := (Sender as TFindDialog);

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

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

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

newpos := RichEdit1.FindText(cd.FindText,
                    RichEdit1.SelStart,
                    Length(RichEdit1.Text),
                    st);

if newpos <> -1 then
  begin
  RichEdit1.SelStart := newpos;
  RichEdit1.SelLength := Length(cd.FindText);
  end
else
  begin
  MessageDlg('Færdig',mtInformation,[mbOK],0);
  RichEdit1.SelStart := 0;
  end;

put en tbutton på formen og skriv....

FindDialog1.FindText := RichEdit1.SelText;
FindDialog1.Execute;    //åbner finddialogen

jeg kunne evt sende dig et færdigt eksemplet, hvis du stadig er i tvivl....

ja, det ville være herligt.

så prøver jeg mig lige frem

smid lige en mail adr. så sender jeg den

jgthb@mail.dk

sendt....

okay. hvordan bestemmer man så, hvor den skal lede? og søger den efter filnavne eller søger den efter tekst i tekstfiler?

eksemplet er baseret på at du indlæser et dokument i dit program og laver søgningen derfra....
du kan bruge en TOpendialog på fanebladet "dialog"

og tildeler proceduren til en f.eks Tbutton

Richedit1.Lines.LoadFromFile(OpenDialog1.FileName);//den valgte fil indlæses i Richedit

det er sådan at jeg har adskillige tekstdokumenter, og jeg vil have at den gennemsøger alle på en gang

jeg vil stoppe for i dag. tak for hjælpen ind til videre

oki.. har ikke lige en løsning her på stående fod, men jeg kigger lidt på det senere

enten skal du programmere dig ud af problemet og det vil nok tage lidt tid... eller
du kunne bruge dette component...

http://dsp.href.com/scripts/runisa.dll?DSP:welcome:308694.9444:.ckb,results

her kan du sætte forskellige parameter op for din søgning f.eks at den ikke skal søge i *.doc men i *.txt filer

har lige afprøvet den demo der følger med programmet det virker kanont... den viser alle filer i en listview som indeholder de fordefinerede ord....

jeg er ikke sikker på, hvilket komponent du mener. det link du gav mig var en side med søgeresultater. jeg prøvede så det øverste resultat, men den virker kun til delphi 2. så hvilken en taler du om?

jeg har sendt dig componentet....

okay. jeg har nu prøvet det, men ærlig talt synes jeg det er noget af en ordentlig mundfuld. hvordan implementerer jeg det i mit program?

det er jo bare at tage de ting fra demoen du vil bruge og smide i dit program, da det kun er selve søgning på indholdes af filer der indeholder de fordefinerede ord - du skal bruge.
den del du skal bruge er 3 edit 2 knapper start og stop og en listview - er du stadig usikker på hvordan du skal gå frem - kan du bare kopiere demoen og så filtrer de dele du ikke vil bruge fra og kør demoen til den virker som du gerne vil have - så kan du implementer den i dit program bagefter.....

hej. jeg har kigget lidt på det, og kan ikke få det til at virke. kan jeg ikke sende dig mit program. det fylder under 1 mb. og så indsætter du det vigtige. så kan jeg bagefter sammenligne med hvad jeg havde før og på den måde lære det. jeg forstår selvfølgelig, hvis du ikke gider, men ville lige spørge.

naaa tror ik du lære det hvis jeg laver dit program for dig..........men

jeg har lavet et nyt project hvor jeg har filtreret de uvigtige ting fra og hvor der bare er søgning på fordefineret ord - det er mere overskueligt.

husk at navngive de forskellige componenter som jeg har gjort ellers skal du ændre i koden. Selve layoutet kan du ændre som du vil for at tilpasse det til dit program.
jeg sender det lige...
//stone

ok. jeg vil kigge på det. det kan være at der går et stykke tid før jeg melder tilbage om det virker. men tak for hjælpen

lukker