Einzelnen Beitrag anzeigen

Eichhoernchen

Registriert seit: 22. Apr 2004
Ort: Hagen
322 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Kleines Rechnungsprogramm

  Alt 9. Okt 2005, 01:22
hmm, erstmal Willkommen hier

Naja komischen Lehrer haste da... naja

Also Delphi...

erstmal Delphi unterscheidet zwischen verschiedenen Datentypen wie z.B. integer(ganze Zahlen[-1,2,..]) oder strings (wortketten['hallo'])

Deine Rechnung benötigt aber denke ich mal Fließkommazahlen(d.h. 2,3122) daher müsstest du einen Typ wie double nehmen.

Ich hoffe du weißt wie du Variablen deklarierst..

naja sagen wir mal du hast 1ne variable vom typ double:

var erg : double; <--- Variable erg vom typ double so nun hast du etwas in deinen Edit[text]Feldern.
Wie der Name schon sagt ist das ein Text d.h. ein string, da du aber in Delphi nicht mit strings rechnen kannst, müssen diese umgeformt werden, dies geschieht mit Befehlen wie StrToInt('13') oder StrToFloat('2.131')

Um den Text aus dem Feld zu bekommen musst du FELDNAME.Text schreiben, standartmäßig heißt das 1. Feld Edit1 also:
Edit1.text
usw..

Soo nun möchtest du 3 Felder addieren Bsp.:
Delphi-Quellcode:
var erg : double;
Begin
 erg := StrToFloat(Edit1.text) + StrToFloat(Edit2.text) + StrToFloat(Edit3.text);
end;
jetzt steht in der variablen erg die summe der 3 Felder!

Und wenn diese Summe über 100 geht soll etwas passieren:
Delphi-Quellcode:
var erg : double;
Begin
 erg := StrToFloat(Edit1.text) + StrToFloat(Edit2.text) + StrToFloat(Edit3.text);
if erg > 100
  then //was passieren soll wenn es über 100 ist
  else //was passieren soll wenn es nicht über 100 ist
end;
Und um eine Zahl wieder in einen String zu konvertieren kannst du IntToStr(123) oder FloatToStr(2.3123) verwenden!
Jan
  Mit Zitat antworten Zitat