Habe Dir mal meine exe angehängt.
Ist meines Erachtens leicher durch einen String zu suchen
als über mehrere Editfelder.
[edit1]
Habe Deine button.click Methode einmal etwas umgestellt.
Delphi-Quellcode:
procedure TForm1.btnVersuchClick(Sender: TObject);
var i,v : Integer;
begin
for i := 1 to length(wort) do
Begin
try
//v := pos(LowerCase(edtVersuch.Text),LowerCase(wort))-1;
if lowerCase(edtVersuch.Text) = lowerCase(wort[i]) then
objEdt[i-1].Text := Uppercase(edtVersuch.Text);
//else
// objEdt[v].Text := LowerCase(edtVersuch.Text);
except
end;
end;
end;
Was Du noch ausbessern könntest, ist die Darstellung des Textes bzw. deren Platzhalter wenn das Wort mal größer als
6 Buchstaben ist.
Und es passiert nichts wenn das Wort erraten wurde.
[edit1]
Grüße
Klaus