String und Zahl

[coolchatter]

Hi,

sicherlich kling mein Problem total dumm. deshalb gleich mal am Anfang eine Entschuldignung, denn ich habe jetzt einige Monate nichts mehr in Delphi programmiert. :-)

Also, ich will eine Zahl durch einen String teilen.
Edit2.Text := 1/(IntToStr(StrToInt(Edit1.Text))+1)

Jedoch ist irgendwo ein Fehler drin, aber ich finde ihn net.

Schnmal Danke im Voraus.

[moritz]

Servus,

Delphi-Quellcode:

Edit: Hoops, schau dir die Lösung meiner Nachposter an *g*

Gruß

[Ultimator]

Delphi-Quellcode:

Edit2.Text := floattostr(1/(StrToInt(Edit1.Text)+1))

So? *g*

[alcaeus]

Hi,

du musst das Ergebnis auch noch "casten":

Delphi-Quellcode:

Edit2.Text := FloatToStr(1/(IntToStr(StrToInt(Edit1.Text))+1));

oder

Delphi-Quellcode:

Edit2.Text := IntToStr(Round(1/(IntToStr(StrToInt(Edit1.Text))+1)));

Greetz
alcaeus

[add]Wo war die Meldung? :gruebel:[/add]

[coolchatter]

Vielen Dank, für die schnellen Antworten.

So einfach...
Manchmal sieht man den Wald vor Bäumen nicht mehr :-)

[Wuaegner]

[delphi] Edit2.Text := IntToStr(1 div (StrToInt(Edit2.Text)+1));delphi]

Das geht auch oder?

[glkgereon]

die zweite lösung is mist, da er ja 1 / Int macht, also kann nur ne zahl <=1 und >=0 rauskommen.

das dann gerundet macht 0 oder 1

die erste müsste aber ok sein

[jim_raynor]

Zitat:

Zitat von alcaeus

Delphi-Quellcode:

Edit2.Text := FloatToStr(1/(IntToStr(StrToInt(Edit1.Text))+1));

Mal genau hingeschaut? IntToStr(StrToInt(Edit1.Text)) ist so ziemlich sinnlos ;) Denn der String wird erst in ne Zahl umgewandelt und dann gleich wieder in einen String ... :drunken:

[alcaeus]

Zitat:

Zitat von jim_raynor

Mal genau hingeschaut? IntToStr(StrToInt(Edit1.Text)) ist so ziemlich sinnlos ;) Denn der String wird erst in ne Zahl umgewandelt und dann gleich wieder in einen String ... :drunken:

Und genau deswegen steht ja auch "+1" dabei ;)
Wer ist hier :drunken:? :mrgreen:

Greetz
alcaeus

[jim_raynor]

Zitat:

Zitat von alcaeus

Zitat:

Zitat von jim_raynor

Mal genau hingeschaut? IntToStr(StrToInt(Edit1.Text)) ist so ziemlich sinnlos ;) Denn der String wird erst in ne Zahl umgewandelt und dann gleich wieder in einen String ... :drunken:

Und genau deswegen steht ja auch "+1" dabei ;)
Wer ist hier :drunken:? :mrgreen:

Greetz
alcaeus

:stupid: Das +1 eins steht eindeutig ausserhalb des IntToStr von daher hat es dort keinerlei Bedeutung ;) Ergo führt es zu Inkompatiblen Typen. :cyclops:
Ich glaube wir brauchen dickere Brillengläser. Bei den ganzen Klammern :zwinker:

[leddl]

Ganz egal, ob das +1 jetzt innerhalb oder außerhalb des IntToStr steht. Das macht überhaupt keinen Sinn, denn wie soll man denn 1 durch einen String teilen? Das umwandeln in einen String übernimmt ja schließlich das FloatToStr ganz außen...
Ihr seid beide :drunken: :mrgreen:

[Binärbaum]

Ich nehme mal an, dass es so gemeint war:

Delphi-Quellcode:

Edit2.Text := FloatToStr(1.0/ IntToStr(StrToInt(Edit1.Text)+1) );

MfG
Binärbaum

[leddl]

Und wieder wird ein Integer durch einen String geteilt... Wie soll das gehen? :gruebel:

Warum nicht einfach mal das IntToStr weglassen?

Delphi-Quellcode:

Edit2.Text := FloatToStr(1/(StrToInt(Edit1.Text)+1));

[Binärbaum]

Zitat:

Zitat von leddl

Und wieder wird ein Integer durch einen String geteilt... Wie soll das gehen? :gruebel:

Warum nicht einfach mal das IntToStr weglassen?

Delphi-Quellcode:

Edit2.Text := FloatToStr(1/(StrToInt(Edit1.Text)+1));

Hast recht. Mancmal da hat man einfach so Tage, dawürde ma am liebsten :wall: