Frage zu einer ScrollBar

[Tomislav]

http://www.plauener.de/lessing/delphi/dpue080.htm
auf dieser seite ist eine schöne aufgabe

wie mach ich das mit der scrollbar ich finde die beschreibung ein bisschen schlecht
mit der delphi hilfe komme ich auch nicht zurecht

[Schaedel]

Hallo,

Zitat:

Die Eigenschaft ScrollBar1.Position gibt den vom Nutzer eingestellten ganzzahligen Wert (zwischen Min und Max) zurück.
Zu beachten ist auch der Zusammenhang zwischen eingestellten Nachkommastellen und dem sich daraus ergebenden zulässigen Fehler.

Also du legst eine Scrollbar auf dein Form... gibst ihr den Wert vom Max und den Wert vom Min mit.
Dann kann der Benutzer scrollen.
Im OnScroll ereignis kannst du dann den Wert der Scrollbar abfragen und diesen ins das Editfeld schreiben.
Dann kannst du eine Procedure schreiben die dir auf die angegeben Kommastellen rundet.

[Tomislav]

danke das hat funktioniert

wie kann ich auf eine bestimmte stelle der zahl runden?

[Khabarakh]

Steht doch im Text: FloatToStrF .
Oder willst du eine Gleitkommazahl selbst runden, also ohne String-Konvertierung?

[Schaedel]

mit Roundto kannst du angeben wieviel stellen hinter dem Komma gerundet werden sollen.
Diese funktion ist aber erst ab Delphi 7 verfügbar!

Da ich nicht genau weiß wie du das meinst gibt es auch eine adnere möglichkeit.

Und zwar kannst du auf einen einzelnen Char im String zugreifen mit String[1].
String[2] = 2. Char der Zeichenkette.
Diesen Char musst du dann in einen Integer wandeln und dann schaun ob der größer gleich 5 ist.
WEnn das der fall ist dann musst du den string[1] in ein integer wandeln und dann +1 rechnen.
dann die zahl wieder in integer und string[2] := '0'

so sollte es gehen ...

[Tomislav]

mit dem roundto ist eine gute idee
ich weiß nur nicht wie es funktioniert
ich kann mit der delphihilfe nichts anfangen wenn kein beispiel dabei steht

was mach ich zb damit
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;

[supermuckl]

roundto gibts mindestens schon ab D6

[Tomislav]

und wie benutze ich das?
schreib ich roundTo(2323, -2), geht es nicht

[marabu]

Hallo,

der zweite Parameter von RoundTo(AValue, ADigit) gibt an, nach welcher Stelle einer Zahl alle folgenden Ziffern durch Rundung auf Null gesetzt werden - wobei die Stellen durch die Zehnerpotenz angegeben wird:

Code:

AValue = 12345,67

ADigit  Result
    -2  12345,67
    -1  12345,6
     0  12345
     1  12350
     2  12300
     3  12000
     4  10000

Ich denke du verstehst das Prinzip jetzt?

Grüße vom marabu