Hallo
Ich wollte mir relativ einfach Hangman Programmieren. Soweit ich mich erinnern kann, hatte das damals in der Schule so oder so ähnlich funktioniert. Leider stoße ich auf ein Problem bezgl. Datentypen:
Delphi-Quellcode:
var
Form1: TForm1;
w,r,ra,rw: STRING;
l: Integer;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
VAR i:INTEGER;
begin
rw:='';
w:=Edit1.Text;
l:=length(w);
FOR i:=1 TO l DO rw:=rw + '_';
Edit1.Text:=rw;
end;
procedure TForm1.Button2Click(Sender: TObject);
VAR i:INTEGER;
begin
r:=Edit1.text;
FOR i:=1 TO l DO
IF r=w[i] THEN begin
rw[i]:=r; //hier erfolgt der Fehler
end;
ra:=ra + ' ,' + r;
Label1.Caption:=ra;
end;
Kann mir jemand helfen? Ich will nur wissen, wie ich das Problem löse!
Danke, Pascal