Ok, du hattest wohl doch recht. Sehe erst jetzt nachdem ich einmal nochmal drübergeflogen bin das ich anstatt copy(geheim... copy(edit1.text... geschrieben hab.
Totaler Anfängerfehler ;-(
Hier steht es jetzt nochmal richtig:
Delphi-Quellcode:
procedure button1click; //speichern und unsichtbar machen
begin
geheim:=edit1.text; //geheim enthält jetzt das gesuchte wort
editlength:=length(edit1.text); //länge wird abgespeichert
edit1.clear; //editfeld wird gelöscht (der inhalt)
for i:=0 to editlength do //entsprechend der länge werden * gemacht
edit1.text:=edit1.text+'*';
end;
procedure buttton2click; //raten
begin
for i:=0 to editlength do
if copy(geheim,i,1)=edit2.text then
begin
delete(edit1.text,i,1); //wenn der entsprechende Buchstabe übereinstimmt wird das entsprechende sternchen gelöscht
insert {hier weiß ich die parameter momentan nicht}; //und hier der Buchstabe eingefügt.
end;
end;
Entschuldigung. Jetzt stimmt es aber.
J.P.
...mfG
Phil