Prüfen ob Wörter in einem String vorkommen, Reihenfolge egal

[lume96]

Hab kein Delphi zuhause und konnte sie daher nicht testen, wüsste aber nicht warum sie nicht funktionieren sollte.

Nur um Missverständnisse auszuschliessen, die Linie alphachar muss komplett zumindest so aussehen :

Delphi-Quellcode:

const
 alphachar = 'abcdefghijklmnopqrstuvwxyz1234567890';

Ich war nur zu faul alle Buchstaben aufzulisten, deshalb die "...".

Du kannst sie noch durch Umlaute ergänzen, wenn Du willst.

Die Linie
result := (Pos(lowercase(mychar),alphachar)>0); tut folgendes :

Pos(lowercase(mychar),alphachar) testet ob 'mychar' in 'alphachar' vorkommt und gibt die Position zurück. Soll heissen, wenn mychar einer der Buchstaben/Ziffern der Alphacharkonstante ist, so ist Pos() grösser als 0. Damit wäre dann (Pos() > 0) wahr und somit Result := wahr.

Das lowercase(mychar) bewirkt, dass eventuelle Grossbuchstaben in Kleinbuchstaben umgewandelt werden. Daher sind dann 'ABC...XYZ' in der alphachar nicht nötig.

So, wenn's trotzdem nicht klappt, einfach noch mal Bescheid sagen.

Tschüss,
Lutz