GewinnspielPrüfer

[MaBuSE]

Hallo,

hier ein kleines Programm zum Prüfen der Wörter des Gewinnspiels in einem Text.

Es werden alle Buchstaben zu einem langen String zusammengezogen und dann per pos(...) geprüft.

Es gibt ein Memo1 in dem der zu prüfende Text steht.
Es gibt ein ListBox1 in dem alle Wörter enthalten sind die im Text vorkommen sollen.
Es gibt einen Button mit "markier alles" (ListBox1.SelectAll.
Und es gibt einen "prüfen" Button, der foldende Methode aufruft:

Delphi-Quellcode:

...
procedure TForm1.Button1Click(Sender: TObject);
var
  c: Char;
  s: string;
  i: Integer;
begin
  // Text extrahieren und in s speichern
  s := '';
  for i := 1 to length(Memo1.Lines.Text) do
  begin
    c := UpCase(Memo1.Lines.Text[i]);
    if c in ['A'..'Z', 'ä', 'ö', 'ü', 'ß', 'Ä', 'Ö', 'Ü'] then
    begin
      // UpCase sowie UpperCase (s.u.) ignorieren ÄÖÜ
      case C of
        'Ä': c := 'ä';
        'Ö': c := 'ö';
        'Ü': c := 'ü';
      end;
      s := s + c;
    end;
  end;

  // s auf markierte Wörter prüfen
  // nach der Prüfung sind nur noch die nicht gefundenen Wörter markiert
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[i] then
    begin
      ListBox1.Selected[i] := pos(UpperCase(ListBox1.Items[i]), s) = 0;
    end;
  end;
end;
...

Damit sollte es ein leichtes sein die Texte zu prüfen, bevor man sie abgibt.

Hier nochmal das Projekt zum Download: