Auswertung?

[ichnixwissen]

Er soll bei der Auswertung die Prozent anzeigen. er1,er2,er3 und er4 (ist integer) sind auf anderen Formen, aber global in Unit2 deklariert und Unit2 in uses eingetragen. Er zeigt,aber immer bei der Auswertung = an.

Delphi-Quellcode:

er:= er1 + ((er2)/ 4) + ((er3)/ 2) + er4;
 pro:= (er / 20) * 100;
 Label1.Caption:= floattostr(pro);

[Chemiker]

Hallo ichnixwissen,

Du musst die Variablen qualifizieren:

Unit2.Er2 Bis bald Chemiker

[Klaus01]

Guten Morgen

was wird angezeigt? ein Gleichheitszeichen?
Was für ein Typ hat "er"?

Gewöhne Dir mal bitte an den Variablen "sprechende" Namen zu geben.
So kann sich nun keiner etwas darunter vorstellen.

Grüße
Klaus

[thkerkmann]

Zitat von ichnixwissen:

Er soll bei der Auswertung die Prozent anzeigen. er1,er2,er3 und er4 (ist integer) sind auf anderen Formen, aber global in Unit2 deklariert und Unit2 in uses eingetragen. Er zeigt,aber immer bei der Auswertung = an.

Delphi-Quellcode:

er:= er1 + ((er2)/ 4) + ((er3)/ 2) + er4;
 pro:= (er / 20) * 100;
 Label1.Caption:= floattostr(pro);

Wenn die ganzen er's integer sind, würde ich die Berechnung von pro anders vornehmen:
  pro := (er * 100.0) / 20.0; Zuerst multiplizieren, und die Konstanten als Gleitkomma schreiben. Dann sollte es gehen.

Gruss

[ichnixwissen]

so gings leider nicht

[Luckie]

Zitat von ichnixwissen:

so gings leider nicht

Ich frage ja nur ungern, aber was für eine Fehlermeldung gibt es denn? Mit "so ging es leider nicht", kann man reichlich wenig anfangen.

[ichnixwissen]

es kommt keine fehler meldung... er zeigt nur immer das ergebniss 0 an

[ichnixwissen]

kann mir nicht noch jemand helfen???

[Die Muhkuh]

Post mal die kompletten Units.

[DeddyH]

Vielleicht ist es ja eine Integer-Funktion, bei der Result nicht zugewiesen wird