Suchfunktion

[IOAH]

Hi Leute!

Ich habe da gerade ein Problem: Ich sitze schon seit 2 Tagen an einem Prog, das aus einem Text einen Suchbegriff raussucht, welches vorher in einem Edit-Feld eingegeben wird... Ich komm einffach nicht weiter... vielleicht könnt ihr mir helfen :-)

danke schonmal im voraus!

IOAH

[Dax]

Herzlich willkommen in der DP!

Es geht, mit Pos():

Delphi-Quellcode:

WortIndex := Pos(Edit1.Text, Memo1.Text);

wenn dein Suchbegriff in Edit1 steht und der Text in Memo1.

[IOAH]

Danke für die schnelle Antwort, doch eine Frage hätte ich da noch: Was ist in deinem Fall die Variable Wortindex?

IOAH

[Dax]

Die Position des ersten Buchstabens des Suchbegriffs im Text.

[scp]

Das ist die Position, an der der Suchbegriff das erste mal auftaucht.

[Matze]

Wenn du dann weitersuchen möchtest, dann verwende PosEx aus der Unit StrUtils (in die uses einbinden).

[Stevie]

Zitat:

Zitat von Matze

Wenn du dann weitersuchen möchtest, dann verwende PosEx aus der Unit StrUtils (in die uses einbinden).

Nö, die gibt's net!

Ich hab mal ne nette Procedure geschrieben, die den Suchtext in nem Memo anzeigt. (HideSelection muss auch False stehen)

Delphi-Quellcode:

procedure FindNext(Memo: TMemo; const Text: string);
var
  FirstIndex, StartPos: Integer;
  SearchText: string;
begin
  StartPos := Memo.SelStart;
  if Memo.SelLength > 0 then
    Inc(StartPos);
  SearchText := Copy(Memo.Text, Succ(StartPos), Length(Memo.Text) - StartPos);
  FirstIndex := Pos(Text, SearchText);
  if FirstIndex > 0 then
  begin
    Memo.SelStart := StartPos + Pred(FirstIndex);
    Memo.SelLength := Length(Text);
  end;
end;

[scp]

Zitat:

Zitat von Stevie

Zitat:

Zitat von Matze

Wenn du dann weitersuchen möchtest, dann verwende PosEx aus der Unit StrUtils (in die uses einbinden).

Nö, die gibt's net!

Was ist das denn für eine Aussage? PosEx gibt es seit D7, wenn du also tatsächlich D7 Pro verwendest und StrUtils in der uses hast, dann gibts die auch.

[Christian Seehase]

Moin IOAH,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Wenn Du statt TMemo auch TRichEdit nehmen kannst, könntest Du es auch mit der Methode FindText probieren.
Die Angabe Deiner Delphi Version im Profil kann übrigens u.U. helfen Tips zu geben.

@Stevie:

Zitat:

Zitat von Stevie

Zitat:

Zitat von Matze

Wenn du dann weitersuchen möchtest, dann verwende PosEx aus der Unit StrUtils (in die uses einbinden).

Nö, die gibt's net!

gemäss Profil hast Du D7 Pro.
In meiner D7 PE gibt's die ;-)
(in D6 hingegen noch nicht)

[Stevie]

Zitat:

Zitat von scp

Was ist das denn für eine Aussage? PosEx gibt es seit D7, wenn du also tatsächlich D7 Pro verwendest und StrUtils in der uses hast, dann gibts die auch.

Zitat:

Zitat von Christian Seehase

@Stevie: gemäss Profil hast Du D7 Pro. In meiner D7 PE gibt's die ;-) (in D6 hingegen noch nicht)

Autsch! :wall: Dumme Sache, dass ich gerade an der Arbeit bin, und dort D6 Pro verwende... :oops:

P.S.: Warum kann man im Profil nicht mehrere Delphi-Versionen angeben!? :gruebel: :zwinker: