Ich bin gerade dabei ein Glücksrad Programm zu schreiben hab aber ein problem mit dem vergleichen .
Hie muss der fehler irgendwo drin sein
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
sp:string;
begin
for i:=1 to length(Wort[1]) do
begin
if Wort[1][i]=Edit2.Text[i] then
begin
Platzhalter[i]:=Edit2.Text[1];
WortE.Text:=platzhalter;
end
else
Platzhalter:='_';
WortE.Text:=platzhalter;
end;
end;