suchen in texten wenn es öfters das gleiche wort gibt

[schneeflöckchen]

Wir müssen ja gerade ein Suchprogramm programmiern und jetzt stehen wir vor dem nächsten Problem ... und zwar Wenn wir mal den Text : "Das Wetter ist heute schön" jetzt will ich nur nach den 'e' schauen und dort gibt es ja mehrere Wetter & heute

[Deep-Sea]

Und wo ist nun dein Problem? Mit welchem Algorithmus suchst du denn? Willst du immer nur einzelne Buchstaben suchen oder auch mal Wörter?

[schneeflöckchen]

Ja bis jetzt kann ich nur das erste 'e' im text anzeigen und ich will dann nochmal auf suchen klicken und dann soll das nächste'e' im Text anegzeigt werden



Mein Programm bis jetzt :


procedure TForm1.Button1Click(Sender: TObject);
var MaxLenght, position: integer;eingabewort, suchwort, ausgabemitmarkierung:string;
begin


eingabewort := edit1.text; // =ganzer text!
suchwort:= edit2.text;
Position := Pos(suchwort, eingabewort);
insert('-->',eingabewort, Position);
AutoSize := true;
MaxLenght := 0;


// vergleicht string(s) mit string(edit2.)
if Position <> 0 then
begin
ShowMessage('gefunden an Position: ' + IntToStr(Position)) ;
showmessage(eingabewort);
edit1.font.Color:=clred;



end
else
ShowMessage('nicht im string vorhanden');


end;
end.

[DeddyH]

Im anderen Thread wurde bereits PosEx genannt.

[Deep-Sea]

Siehe den Beitrag von DeddyH.
Dann musst du dir nur noch die Position des zuletzt gefundenen Zeichens in einer globalen Variable merken und beim nächsten Suchdurchlauf startest du die Suche an dieser Stelle +1.

PS: Nutzen doch bitte die Tags [DELPHI ] und [/DELPHI ], um Quelltext hier gut leserlich zu formatieren.

[joachimd]

Zitat von DeddyH:

PosEx

OT: müsste hier nicht die Forumszensur zuschlagen? Zumindest in 3 Wochen darfst du sowas in einem U18-Forum nicht mehr posten ... scnr

[DeddyH]

[OT] Ein Schelm, wer Böses dabei denkt [/OT]

[s.h.a.r.k]

[OT] So wie die Nachtischlampe [/OT]

Naja, oder man nutzt ganz einfach Reguläre Ausdrücke. Und lässt eben global suchen.

[DeddyH]

Für ein Schulprojekt im offensichtlichen Wissensstand finde ich Regular Expressions nicht unbedingt angebracht.

[s.h.a.r.k]

Ja, okay. Gebe mich wohl geschlagen Wollte nur die Möglichkeiten etwas vervollständigen -- wobei ich die RegEx-Sachen nicht all zu schwer finde. Aber das ist alles Ansichtssache