Zitat von
Sharky:
Hai Gambit,
mit den Schlüsselwörtern von mir hätte es eigentlich gehen sollen
Hier mal mein Versuch:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
str1 : String;
str2 : String;
sl : TStringList;
ndx : Integer;
okay : Boolean;
begin
str1 := 'Otto Harfe spielt gern';
str2 := 'Otto spielt gern Harfe am Wochenende';
okay := False;
sl := TStringList.Create;
try
sl.Delimiter := ' ';
sl.DelimitedText := str1;
for ndx := 0 to pred (sl.Count) do
begin
okay := Pos (sl.Strings[ndx],str2) > 0; // Wort ist vorhanden
if not (okay) then
begin
break;
end;
end;
finally
FreeAndNil (sl);
end;
if (okay) then
begin
ShowMessage ('Alle Wörter gefunden');
end
else
begin
ShowMessage ('Nicht alle Wörter gefunden');
end;
end;
Dann würd ich doch einfach Sharkys Code von oben benutzen (habs noch mal gequoted) und
folgende Stelle
Delphi-Quellcode:
try
sl.Delimiter := ' ';
sl.DelimitedText := str1;
for ndx := 0 to pred (sl.Count) do
begin
wie folgt erstetzen
Delphi-Quellcode:
try
SplitTextIntoWords(DeineString,s1); // Aus dem Swiss-Center
// sl.Delimiter := ' ';
// sl.DelimitedText := str1;
for ndx := 0 to pred (sl.Count) do
begin
Hoffe, dass das so klappt.
MfG
Lutz