Zitat von
Gambit:
Habe folgendes im Swiss-Center gefunden, irgendwie funzt es aber nicht, wenn ich nur ein Wort im Edit-Feld eingebe gehts, gebe ich mehr als eins ein, zeigt die StringList gar nicht mehr.
Delphi-Quellcode:
procedure SplitTextIntoWords(const S: string; words: TstringList);
var
startpos, endpos: Integer;
begin
...
procedure TForm1.Button1Click(Sender: TObject);
begin
FindMatchingWords(memo1.Text, edit1.Text, checkbox1.Checked, listbox1.Items);
end;
Gruß
Gambit
Hab den Code zwar nur kurz überflogen, aber so wie ich's verstanden habe macht der folgendes :
Bei
FindMatchingWords(string1, string2, checkbox1.Checked, listbox1.Items);
durchsucht er die STRING1 nach Übereinstimmungen mit der STRING2 die eine Suchmaske enthält und gibt das Resultat in die Listbox1 aus.
Z.B.:
FindMatchingWords('OTTO spielt LOTTO', '?TT?', false, listbox1.Items);
sollte Dir nur OTTO ausgeben, während
FindMatchingWords('OTTO spielt LOTTO', '*TT?', false, listbox1.Items);
Dir OTTO und LOTTO augeben sollte.
Hier wird eine Sting mit meheren Wörtern (String1) nach einer Übereinstimmung mit einer Suchmaske überprüft.
Also nicht das, was Du suchst.
Allerdings findest Du 'ne Menge interessanter Funktion die Dir helfen könnten, wie z.B. SlitTextIntoWords.
MfG.
LUtz