Text durchsuchen (ohne FindDialog)

[blubber443]

hallöchen,
ich habe für ein kleines spiel eine kleine hilfeseite welche auch etwas länger
ist und noch viel länger wird gebastelt. damit man nicht immer scollen muss und
so wollte ich eine einfache suchfunktion machen. die soll wie folgt aussehen:

es gibt ein editfeld und einen button, wenn man diesen drückt wir das richedit
durchsucht und alle wörter, die dem des editfeldes entsprechen, werden markiert.

ich möchte jedoch nicht irgendwelche dialogfenster benutzen, weil das möglichst
einfach aussehen soll und ich das dialogfenster irgendwie nicht so mag.

wenn das alles klappt wär noch eine funktion die groß/klein-schreibung
ignoriert klasse, aber nicht umbedingt nötig

ich hab wenig ahnung wie man soetwas machen könnte, wenn jemandem was einfällt
wär ich sehr dankbar

mfg blubber

[Perlsau]

Zitat von blubber443:

ich hab wenig ahnung wie man soetwas machen könnte, wenn jemandem was einfällt
wär ich sehr dankbar

Wenn du bereits, wie du behauptest, ein wenig Ahnung hast, wie man so was machen könnte, dann solltest du erst mal damit anfangen, deine wenige Ahnung umzusetzen und danach erst im Forum fragen, wenn du nicht weiterkommst. So hört sich das nämlich an wie eine Aufforderung, dir die genaue Vorgehensweise haarklein zu erklären. Übrigens: Was meinst du mit "wär ich sehr dankbar"? Möchtest du einen Programmierauftrag vergeben, für dessen Erledigung du bezahlst?

Solltest du statt wenig Ahnung, wie du behauptest, tatsächlich absolut gar keine Ahnung haben, dann sei dir ein Tip an dieser Stelle nicht vorenthalten: Stringlisten verfügen über das Property Text vom Typ String, das den gesamten Text der einzelnen Stringlisten-Items enthält. Diesen Text kann man durchsuchen. Das ist Grundlagenwissen! Grundlagen bringt man sich am Besten mit einem guten Tutorial bei, wovon es etliche im Internet zu finden gibt. Das kann dir keiner abnehmen ...

[blubber443]

ich hab das auch versucht, hier mein code

Delphi-Quellcode:

procedure TForm2.Edit1Change(Sender: TObject);
var i: integer;
var a: integer;
var s: string;
var s2: string;
begin
  s:=Edit1.Text;
  s2:='';
  for i := 0 to Length(RichEdit1.Text) do
  begin
    for a := 0 to Length(s) do
    begin
      s2:=s2+RichEdit1.Text[i+a];
    end;
    if s=s2 then
    begin
      RichEdit1.SelStart:=i;
      RichEdit1.SelLength:=a;
    end;

  end;

end;

jedoch geht das nicht ganz, ich versteh auch nicht wirklich wieso,
der zeigt einfach nix an

PS: ich hab das so gemacht dass der beim schreiben gleich überprüfen soll

[Volker Z.]

Hallo,

ich gebe Dir einen kleinen Tipp: Suche in der OH mal nach Richedit.FindText (da findest Du übrigens auch ein nettes Beispiel). Und dann bring das mal für Dein Edit, Button und Richedit zusammen; schon sollte das mit Deiner Suche klappen.

Gruß

[blubber443]

ok danke, das mach ich mal