1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, jpeg, ExtCtrls;

type
TZahlen = array [1..35] of integer;
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Image10: TImage;
Button3: TButton;
Memo1: TMemo;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
worte : TZahlen;
implementation

{$R *.DFM}

procedure TForm1.Button3Click(Sender: TObject);
var z{zeile}, l, i : integer;
wort, wort2, buchstabe, tip: string;
begin
Z:= random (memo1.lines.count);
wort := memo1.lines[z];

l := length(wort);
buchstabe := wort[1];
wort2 := uppercase(wort);
tip := edit2.text;


wort2 := '';
For i := 1 to length(wort) do
if wort[i] = tip then buchstabe
else image1.visible := false;
end;
Wort2 := wort2 + '*'

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.					

1:
2:
3:
4:
5:
6:

if Pos(AnsiUpperCase(Buchstabe), AnsiUpperCase(Wort)) > 0 then begin
  // Buchstabe ist drin
end
else begin
  // Kein Treffer
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

procedure tform1.check(buchstabe:char);  //Funktion zum checken ob der buchstabe im gesuchten wort ist
var
    x,y,i:integer; // variablen für die suche der position(x und y für die position im wort, i fü eine schleife)
    trim: string;  // variable zur verarbeitung des reststrings
    found:boolean; // zum checken ob das der buchstabe bereits geraten wurde
begin
    found:=false; 
    if length(tryed_lts) > 0 then for i := 0 to length(tryed_lts) do if tryed_lts[i] = buchstabe then found := true; // überprüfung ob der buchstabe gefunden wurde
    tryed_lts := tryed_lts + buchstabe; //try_lts ist ein string in dem alle bereits geratenen buchstaben vorkommen
    if not found then
    begin
        tryed_letters.Caption := tryed_letters.caption + buchstabe+','; // tryed_letters ist ein panel welches die geratenen buchstaben zeigt
        y := 0; 
        x := pos(buchstabe,lowercase(look_word)); // ist buchstabe(globale variable) in gesuchten word(look_word, globale variable) vorhanden?
        if x > 0 then //--> ja
        begin
            trim := look_word; 
            repeat // --> alle vorkommnisse werden geucht und in der anzeige markiert
                x := pos(buchstabe,lowercase(trim));
                y := y +x;
                try_word[y*2-1] := buchstabe;
                search.Caption := try_word;
                delete(trim,1,pos(buchstabe,lowercase(trim)));
            until x = 0;
            if lowercase(look_word) = stringreplace(try_word,' ','',[rfReplaceAll, rfIgnoreCase]) then //--> Check ob das komplette wort geraten wurde
            begin
                 showmessage('Correct!');
                 test.Enabled := false;
            end;
        end
        else
        begin //--> wenn der bcuhstabe nicht vorkommt
            inc(step); //step ist eine globale variable die die fehlvrsuche zählt
            draw_mann(step); //siehe weiter unten
            if step >= 11 then
            begin
                test.Enabled := false; // button zum absenden
                letter.Enabled := false; //letter ist das eingabe feld für den buchstaben
                search.Caption := look_word; //search ist ein panel zum ausgeben des programms
            end;
        end;
    end;
    letter.Text := '';
    letter.SetFocus;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

procedure tform1.draw_mann(step:integer); //procedure zum zeichnen des männchens in ein 80*120 großen image
begin
    if step = 1 then guy.Canvas.Arc(0,80,80,160,80,120,0,120)
    else if step = 2 then
    begin
        guy.Canvas.MoveTo(40,80);
        guy.canvas.lineto(40,10);
    end
    else if step = 3 then
    begin
        guy.Canvas.MoveTo(40,10);
        guy.canvas.lineto(70,10);
    end
    else if step = 4 then
    begin
        guy.Canvas.MoveTo(40,20);
        guy.canvas.lineto(50,10);
    end
    else if step = 5 then
    begin
        guy.Canvas.MoveTo(70,10);
        guy.canvas.lineto(70,25);
    end
    else if step = 6 then
    begin
        guy.Canvas.Ellipse(63,25,78,40);
    end
    else if step = 7 then
    begin
        guy.Canvas.MoveTo(70,40);
        guy.canvas.lineto(70,60);
    end
    else if step = 8 then
    begin
        guy.Canvas.MoveTo(70,60);
        guy.canvas.lineto(65,70);
    end
    else if step = 9 then
    begin
        guy.Canvas.MoveTo(70,60);
        guy.canvas.lineto(75,70);
    end
    else if step = 10 then
    begin
        guy.Canvas.MoveTo(70,45);
        guy.canvas.lineto(62,60);
    end
    else if step = 11 then
    begin
        guy.Canvas.MoveTo(70,45);
        guy.canvas.lineto(77,60);
    end
end;