Ich habe versucht ein Galgenmännchen Programm zu proggen. So erstmal zur Form, es gibt ein Edit1 Feld, wo ein Buchstabe eingegeben werden kann und es gibt ein BitButton1, mit dem dieser Buchstabe bestägigt werden kann. Zuvor wird per Zufallsprinzip ein Wort aus einer liste ausgewählt, dort funktioniert jedoch alles einwandfrei..das gesuchte wort ist eine String variabel mit der bezeichnung 'wort'
So auf dem BitButton mit dem der eingegebene Buchstabe bestätigt werden soll und somit das wort auf diesen geprüft werden soll liegt dieses Ereignis:
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var i, buchstabe, wlange:Integer; key:STring;
begin
key := Edit1.Text;
buchstabe := 0;
wlange := Length (wort);
for i := 0 to (wlange) do
begin
inc (buchstabe);
if Copy (wort, buchstabe, buchstabe) = key then
begin
TButton (FindComponent('Button' + IntToStr (buchstabe))).Caption := Copy (wort, buchstabe, buchstabe);
end;
end;
end;
So die variable buchstabe ist der buchstabe der gerade geprüft werden soll. In der Form habe ich darunter 12 Buttons die jeweils für einen Buchstaben stehen. Wird nun also das wort (z.B. Drucker) auf 'r' gescannt, so müsste Button2.Caption dann 'r' sein und Button7.Caption auch 'r' sein.
Dies ist jedoch leider nicht so, es wird der erste buchstabe und der lezte richtig angezeigt, ich vermute das das was mit der for do schleife zu tun hat..aber ich bin mir nicht so sicher, vielleicht weiß einer von euch weiter...
Gruß, htxmlx