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.

[FAlter]

Ersetz mal das sqrt durch system.sqrt oder benenn deine Komponente "sqrt" in was anderes um

[dizzy]

Aaaahhhh.... hab's Problem... nimm anstelle von sqrt man System.sqrt ;)

Dein Button heisst ja schon Sqrt, und Delphi denkt dieser Button sei mit diesem Bezeichner gemeint, da es in dieser Unit die Funktion aus System überdeckt.
Noch besser: Benenn deinen Button um. Ungarische Notation finde ich für Komps immer noch gut: btnSqrt wäre mein Vorschlag.


\\edit: zu spät...

[Äfan]

Mhhhh da gehts komischerweiße :gruebel:

[Sharky]

Zitat:

Zitat von Äfan

Mhhhh da gehts komischerweiße ...

Das ist nicht komisch sonder richtig so.
Du hast eine Komponente mit dem Namen sqrt und Delphi hat eine Funktion mit dem selben Namen.
Wenn Du jetzt in deinem Quellcode sqrt stehen hast weiss der Compiler ja nicht ob Du die Delphi-Funktion oder auf deine Komponente zugreifen möchtest.

Darum gilt: Niemals einer Variablen, Konstanten, Komponente den Namen einer vorhandenen Funktion zuweisen.

[dizzy]

Doch, Delphi weiss es. Immer die zu letzt deklarierte Version (von der aktuellen Unit aus durch die gesamte Uses-List von hinten nach vorne, und in den Unter-Units auch weiter bis zum Schluss durch) :zwinker:

Naja, nur wenn du nicht diese zu letzt deklarierte Version meinst, dann muss man das explizit angeben. In diesem Fall System.sqrt (Unit System.pas, Funktion sqrt). Aber deutlich sauberer ist eine andere Namensgebung :!:

[Äfan]

OK, jetzt gehts, danke, ihr seit die besten.

PS: Der beitrag: Mhhhh da gehts komischerweiße, sollte 2 Beiträge weiter oben sein. :zwinker:

[dizzy]

[ot]
komischerweiße := komischerweise ;)
[/ot]

[Äfan]

Oh ja die Rechtsschreibung :lol: naja, Hauptsache der Quelltext stimmt :coder: :coder2: