Das mit dem Passwordchar ist blöd. Da werden ja später auch die hinzugefügten Buchstaben durch * ersetzt.
evtl so (bischen kompliziert) :
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(edit1.text,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;
Das beste wäre noch anzugeben, wie lange man gebraucht hat dieses Wort zu finden...
Oder noch ne bestenliste
Bei uns machen wir sowas in Info leider nicht
.
Kann sein, dass da oben Fehler sind (alles ausm Kopf aufgeschrieben). um die kümmer ich mich aber jetzt nicht weiter, da ihr ja auch noch was tun müsst. Hab glaube ich schon viel zu viel gemacht...
mfG J.P.
J.P.
...mfG
Phil