Quersumme einer Zahl in einer Edit

[Äfan]

Wie kann man die Quersumme einer Zahl in einer Edit berechnen ?

Ich habe schon in der Delphi Hilfe geschaut nur das verwirte mich noh mehr. Meine Edit heißt Anzeige.Ich habe es so probiert :

Delphi-Quellcode:

Anzeige.text := floattostr(sqrt(strtofloat(Anzeige.text.text)));

Doch Funktionierts nicht. :pale:

Danke

MFG

Äfan

[dizzy]

sqrt() berechnet die Quadratwurzel, und was sollte Anzeige.text.text sein?

Eine Quersumme ist doch die Summe aller Ziffern der Zahl, oder? :gruebel:

[Äfan]

Oh, ich mein natürlich die Wurzel und das mit Text.Text war hier ein Tipfehler. in meiner Source steht natürlich nur einmal text.

[Sharky]

Hai Äfan,

was soll denn nicht gehen? Wenn ich deine Code benutze und im Edit z.B. die Zahl 9 eingebe habe ich nach einem ButtonClick dort eine 3 stehen. So wie es sein soll.

[dizzy]

Dann sollte das klappen. Aber "geht nicht" ist immer so eine tolle Fehlerbeschreibung :roll: ;) Was geht nicht, und gibts Fehlermeldungen? Wenn ja: Was steht'n da drin?

[Gruber_Hans_12345]

Hast vielelicht eine Kommazahl, und nicht den richtigen . oder , ?

Gruss
Hans

[Äfan]

Ich kann die Anwendung garnicht starten:

[Fehler] MainCalc.pas(335): Operator oder Semikolon fehlt
[Fehler] MainCalc.pas(335): Es gibt keine überladene Version von 'FloatToStr', die man mit diesen Argumenten aufrufen kann
[Fataler Fehler] Rechner.dpr(5): Verwendete Unit 'MainCalc.pas' kann nicht compiliert werden

Ich bin vollanfänger in Delphi und mache jetzt mein erstes Prog, einen TR.

[Snoop007]

am besten du postet mal den code der ausgeführt wird, wenn du deinen brerechnen button oder was auch immer drückst

[Äfan]

Delphi-Quellcode:

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

[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.