Wie string to int convertieren?

[Wargrave]

Edergebniss.text:=Edvname.Text+' '+Ednname.Text+' '+'ist'+' '+ Hallo!
Schreibe ein Prog dass drei Edirfelder hat.
1.Vorname
2.Nachname
3.Geburtsjahr

Dann klickt man auf einen Button und der soll einen Satz ausspucken indem er dann sagt:
"Hallo Vorname Nachname. Sie sind 2004-Editfeldgeburtsjahr Jahre alt."

Das heißt der soll von 2004 die zahl im editfeld abziehen und dann das alter ausspucken.
Der spuckt miraber jetzt nen Integer und Stringfehler aus.
Wie ihr oben im Code seht weiß ich nicht wie`s weiter geht.
Evtl: Edergebniss.text:=Edvname.Text+' '+Ednname.Text+' '+'ist'+' '+ strtoint(2004-Edgeburtsjahr); ???

Wäre nett wenn jemand hilft!

Danke Wargrave

[Matze]

Das muss auch "IntToStr" heißen.

[Wargrave]

Edergebniss.text:='Hallo'+' '+Edvname.Text+' '+Ednname.Text+' '+'.'+'Sie sind'+ inttostr(2004) - Edgeb.text) ???

Der sagt irgendwas von Operator ist auf diesen Operandentyp nicht anwendbar oder so!?

Hmm wie würde der ganze code mit der 2004 und so heißen?

[Matze]

Edergebniss.Text:='Hallo ' + Edvname.Text + ' ' + Ednname.Text + ' .' + 'Sie sind '+ inttostr(2004 - StrToInt(Edgeb.text)); So sollte es gehen (ungetestet)

[Freddy]

Also so wie du das erklärt hast geht das nicht meiner meinung nach.
Wenn du den ersten Teil zum string machst und den zweiten zum integer geht das wieder nicht.
ich würde sagen


Edergebniss.text:=Edvname.Text+' '+Ednname.Text+' '+'ist'+' '+ (2004)-(strtoint(Edgeburtsjahr));

so würde ich sagen habs aber nicht ausprobiert

freddy

[moritz]

Wenn dann das:
Edergebniss.text:=Edvname.Text+' '+Ednname.Text+' '+'ist'+' '+ strtoint(2004-Edgeburtsjahr); Wenn das nicht geht versuch FloatToStr. Wenn das geht solltest du für Edgeburtsjahr einen anderen Typen wählen. ( Keinen Gleitkommatypen )

[alcaeus]

Hi freddy,

das stimmt nicht so ganz.
inttostr(2004 - StrToInt(Edgeb.text)); zuerst wird Edgeb.text in einen int umgewandelt und das ergebnis von 2004 abgezogen. Anschließend wird das Ergebnis dieser letzten Rechnung wieder in einen String umgewandelt. Das Ergebnis der letzten Funktion (IntToStr) wird einfach an Edvname.Text+' '+Ednname.Text+' '+'ist'+' '+ rangehängt und das wars. Der Aufruf stimmt, versuchs einfach mal.

Greetz
alcaeus

[Freddy]

ja so wie dus jetzt hast stimmts alcaeus!
Hatte das in der Eile kanns vergessen, lerne grade info schreibt morgen klausur und dann bin ich hier her gestolpert

grüße freddy(w)

[Christian18]

hi,

nur mal so ne idee. wenn du das programm nächtes jahr auch noch verwenden willst, ohne jedes jahr das eigentlich programm zu ändern, dann mache es mit decodedate.

var y, m, d : word;
...
decodedate(now,y,m,d);
...

ich hoffe ich konnte ein bisschen helfen.

tipp: probiers einfach mal aus.

Mit freundlichen Grüßen

Christian18

[Nicodius]

wobei er dann die dateutils einbinden muss