Quersumme einer Zahl in einer Edit

[Sharky]

Hai Äfan,

mache mal ein neues Projekt auf. Auf der Form platzierst Du ein Edit und einen Button. Das Edit nennst Du "anzeige".
Jetzt machst Du einen doppelclick auf den Button. Daraufhin bekommst Du diesen Code im Editor:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
end;

Jetzt muss dort nur noch deine CodeZeile rein und das ganze sieht dan so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Anzeige.text := floattostr(sqrt(strtofloat(Anzeige.text)));
end;

Wenn Du jetzt in dem Edit eine Zahl eingibst und auf den Button klickst sollte anschließend in dem Edit die Wurzel der Zahl stehen.