Addiren mit Delphi

[fatED]

Hallo

ich habe seit heute delphi 7 aber noch keine Zeit gehabt mir ein Buch dazu anzuschaffen!!
ich wollte jetzt nur mal fragen ob mir jemand ein Beispielcode schicken kann, wie man ein Edit1 mit einem Edit2 addiert und das ergebnis in einem label ausgibt wenn man auf den button1 klickt!

Ich weiß das is für euch wahrscheinlich kein problem aber ich muss ncoh die ganze strucktur von delphi kennen lernen und deshlab hoffe ich das ihr mir helfen könnt! :oops:

[Florian H]

"addieren", sprich die Zahlen die drin stehen oder "addieren" gleich "aneinanderhängen"?

Letzteres ginge wie folgt:

Delphi-Quellcode:

Label1.Caption := Edit1.Text + Edit2.Text;

Also einfach durch ein + verknüpfen und der Caption-Eigenschaft des Labels zuweisen.

Zahlen addieren darf jemand anderes. :)

[BenjaminH]

Hallo,
am einfachsten ist es, du schaust dir das an:
http://www.dsdt.info./tutorials/erstesprog/

Viel Spaß
Benjamin

[Edit]Wenn du dem ganzen hier noch einen Sinnvollen Titel gibst, haben es auch andere Anfänger einfacher hie Hilfe zu bekommen.

[mkinzler]

Delphi-Quellcode:

var
    a,b:Extended;
...
begin
   if TryStrToFloat( Edit1.Text, a)
   begin
     if TryStrToFloat( Edit2.Text, b) then
     begin
        Label1.Text := FloatToStr( a+b);
     end
     else
        ...//Edit2 enthält falschen Wert
  end;
    ...//Edit1 enthält falschen Wert
end;

[Daniel G]

Zitat:

Zitat von Florian H

Zahlen addieren darf jemand anderes. :)

:roll:

Funktioniert im Prinzip genauso, allerdings nimmst du dir hier die Funktionen StrToInt und IntToStr zur Hilfe, die eine Zeichenkette (String) in einen Zahlenwert (Integer) konvertieren. Dabei muss die Zeichenkette zwangsläufig einen Zahlenwert darstellen. Sprich':

Delphi-Quellcode:

StrToInt('0815')

würde als Ergebnis die Zahl 815 liefern, mit der du rechnen kannst,

Delphi-Quellcode:

StrToInt('wuppdi')

hingegen ist nicht möglich.

Was die Grundlagen angeht, so kann ich dir übrigens nur die Tutorialsparte von http://www.dsdt.info empfehlen. Sehr gut für den Anfang.

[freak4fun]

Und bitte, bitte den Titel ändern!

MfG
freak

[fatED]

Danke für alle Antworten!!!

Hoffe der Titel gefällt euch jetzt besser :-D

Werde mal das Tutorial ausprobieren!!

DANKE

[mkinzler]

Zitat:

Hoffe der Titel gefällt euch jetzt besser Very Happy

Aber noch mehr würde er uns ohen rechtschreibfehler gefallen! :zwinker:

[inherited]

Wer im Glashaus sitzt... :mrgreen:
mkinzler:

Delphi-Quellcode:

[...]
Label1.Text := FloatToStr( a+b); 
[...]

Wohl eher Label1.Caption ;)

[mkinzler]

Zitat:

Zitat von inherited

Wer im Glashaus sitzt... :mrgreen:
mkinzler:

Delphi-Quellcode:

[...]
Label1.Text := FloatToStr( a+b); 
[...]

Wohl eher Label1.Caption ;)

das ist aber kein Rechtschreibfehler sondern geistige Umnachtung.