Auswertung?

[ichnixwissen]

wie ist denn das gemeint mit result nicht zugewiesen?

[DeddyH]

Delphi-Quellcode:

function Bla(a,b: integer): integer;
var gesamt: integer;
begin
  gesamt := a + b;
  Result := gesamt; //hier wird Result zugewiesen
end;

[Die Muhkuh]

Anstatt herum zu raten, poste einfach mal die Units...

[DeddyH]

Aber nur die relevanten Teile, nicht dass hier gleich 10.000 Zeilen Code gepostet werden.

[Die Muhkuh]

Zitat von DeddyH:

Aber nur die relevanten Teile, nicht dass hier gleich 10.000 Zeilen Code gepostet werden.

Dann halt als Attachment

[ichnixwissen]

in Unit2:

Delphi-Quellcode:

var
 er1,er2,er3,er4 : integer;

in Unit15:

Delphi-Quellcode:

...
if label18.Caption = label19.Caption then  begin
p:= p+1;
label10.Visible:= true;
end
else
label11.Visible:= true;
...
er1:= p;

dies ist dann auch so für er2,er3 und er4

am Ende dann

Unit19:

Delphi-Quellcode:

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

[DeddyH]

Und in pro steht am Ende 0?

[ichnixwissen]

da steht immer null, sollte aber nicht

[DeddyH]

Und Du hast kontrolliert (z.B. per ShowMessage), ob er1 bis er4 nicht 0 sind?

[ichnixwissen]

wenn ich in unit19
ShowMessage(floattostr(er1)); hinschreib, dann kommt wenn ich das programm starte die nachricht 0.
Aber wieso kommt das gleich wenn ich das programm starte?