Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Ne, es ging nicht weil ich Windows XP habe und den Rechner noch nicht neu gestartet hatte :P :stupid: :mrgreen:
Hast Du jetzt noch Probleme mit Deinen "Berechnungen mit Double" oder klappt alles wie's soll?
Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Leider habe ich grad ein Problem mit Delphi: :cry:
Sonst würde ich Dir gerne helfen und das Projekt mal öffnen....
//Edit:
Komischerweise wurde die betreffende Datei "rtl70.bpl" am 09.11.2005 zuletzt geändert und gestern lief Delphi noch ohne Probleme.
:roll:
Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Wohl eher alles andere außer die exe :wink:
Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Dann zeig doch mal etwas Code, so wie er aktuell aussieht.
Sonst kann ich dir auch nicht weiterhelfen.
Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Dann müsste der Code auch funzen.
Zeig doch mal, wo Du Felder deklariert hast und wo der Code steht, den du ersetzt hast (wo vorher die case of Abfrage war).
Ja, was denn nu ?
Mit round wird immer auf eine ganze Zahl gerundet !
Uebermaessige smilies aus dem Zitat entfernt. Mfg, alcaeus
Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Was hat denn jetzt Felder für einen Typ?
Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Sorry, hab mal wieder nicht aufgepasst:
So muss es heißen:
if (Felder > 1) and (Felder < 31) then
TPanel(FindComponent('Feld' + FloatToStr(Felder))).Color := clGreen;
// Edit:
Felder muss dann aber auch vom Typ Double sein, das hattest Du doch vorher so geschrieben???
Warum ist das jetzt Cardinal???
Forum: Programmieren allgemein
by Martin K,
6. Jun 2006
Es gibt also Probleme bei der case of Abfrage und Felder, da Felder vom Typ Double ist?
Mal so ein Tipp:
Deine ganze case of Abfrage kannst Du einfach ersetzen durch:
if (Felder > 1) and (Felder < 31) then
FindComponent('Feld' + FloatToStr(Felder)).Color := clGreen;
:wink: