Befehl 'round' macht schlapp

[Furtbichler]

Schreibe die Zahlen in den Controls (Panel, Edit usw.) zunächst in lokale Variablen. Die heißen dann sinngemäß 'ErreichtePunktzahl', 'GesamtPunktZahl' usw. Diese Variablen sind vom Typ 'Double'. So etwa:

Delphi-Quellcode:

Var
  ErreichtePunktzahl : Double;

Begin
  ErreichtePunktzahl := StrToFloat(Panel3.Caption);
  ...
  // Jetzt die Formel, natürlich mit den Variablennamen
  Ergebnis := ....
  // Jetzt das Ergebnis runden
  Ergebnis := Round (Ergebnis,...); // Wie geht das nochmal?

  // Und zum Schluß das Ergebnis anzeigen.
  ZielPanel.Caption := FloatToStr(Ergebnis); // oder wie auch immer das geht

Dann kommst Du selbst auf den Fehler, denn dein Code ist doch ziemlich unübersichtlich, findest Du nicht? Deshalb erkennst du auch nicht, wo der Fehler ist. Aber so (also in kleinen Schritten, mit Zwischenergebnissen etc.) siehst Du das dann sofort.

Hoffe ich. Wenn nicht, wieder melden.

[himitsu]

Funktion Round und Round.Text (paar Zeilen weiter oben im Screenshot) ..... ich ahne Böses.

Hat Lazarus denn kein Code-Insight?
Maus über Round halten und schauen was im Hint steht,
bzw. Strg+Linksklick auf das Round und schauen wo man landet. (zumindestens geht das so im Delphi)



Abgesehn davon, würde ich dir dringend empfehlen den Komponenten mal einen ordentlich nahmen zu geben.
(OK, ein "Round" ist zu finden, aber sonst heißt dennoch alles Button1, Label1 usw.)

[joelnbp]

Erstmal muss ich mich entschuldigen, dass ich einfach nicht geschrieben habe. Das mache ich eigentlich überhaupt nicht gerne: Nach einer so netten Hilfe einfach nicht schreiben.

Also vielen Dank! Wie man gemerkt hat, war es ein ärgerlicher Fehler, und zum Glück hat kam round nocheinmal auf dem Screenshot vor .
Danke himitsu!

Ja, finde ich! Ich sollte mir mehr mühe geben, damit der Quelltext mehr Struktur hat. Daran muss ich echt noch arbeiten! Aber dankeschön Furtbichler!

Liebe Grüße, Joel

[Luki206]

Wenn ich mich hier einmal einmischen dürfte. Ich habe nichts zu bemängeln an den Antworten bevor das falsch verstanden wird bzw. auch als Off-Topic eingestuft wird. Das mag sich jetzt blöd anhören aber wie hast du diese blauen Schaltflächen hinbekommen? Als Bild erstellt und dann eingefügt oder ist das von Lazarus eine Extra? Oder sind das Einfach nur Panel's die Blau eingefärbt wurden und den inneren Schatten entfernt wurde?
Danke
Luki

[himitsu]

Gute Frage.
Ich könnte mir auch fast vorstellen, daß das der normale Windows 8-Style für die VCL/LCL/Windows-Buttons ist.
wenn ja, dann kommt das praktisch von alleine, wenn man den normalen TButton unter Win8 laufen lässt.

Ansonsten gibt es Skins, welche das aussehen der Standardkomponenten beeinflusst, oder spezielle geskinnte/selbstgezeichnete Komponenten, oder man misbraucht einfach sowas wie TShape, oder man zeichnet den Button selber.

[Luki206]

Also von win8 kommt das nicht, habe ich nämlich auch und da ist nichts der gleichen.. Also kann man sich da so Skinpacks downloaden oder selber zeichnen? Zeichnen dann wie?

[himitsu]

Es gibt Komponentenpacks mit eigenem SkinSupport, z.B. von TMS, DevExpress usw.
War beim Kauf von Delphi nicht auch wieder ein Link dabei, wo du dir ein paar "Gratis"-Komponenten downloaden kannst? (mir war so, als war da auch mal was mit Skins dabei)

Delphi Skin oder Skin:
http://www.alphaskins.com/asdwnld.php
http://www.torry.net/pages.php?id=1544
http://www.link-rank.com/
...

TPanel nehmen, Rahmen weg (BorderStyle und BevelOuter), Hintergrundfarbe ändern, die Caption setzen und dann ins OnClick den gewünschen Code rein, der beim "Drücken" aufgerufen werden soll.