Thema: Delphi Delphi -newbie!

Einzelnen Beitrag anzeigen

J.P.

Registriert seit: 2. Sep 2006
Ort: Bonn
131 Beiträge
 
Delphi 6 Professional
 
#14

Re: Delphi -newbie!

  Alt 13. Apr 2007, 10:57
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
  Mit Zitat antworten Zitat