Halb, ich habe ein Problem mit diesem Code, und zwar wird immer nur 0 ausgegeben anstatt die "echten" Werte.
Delphi-Quellcode:
a:=0;
g:=0;
v1:=0;
for f:=1 to aa do begin
if (Datei[f].Jahr=w) and (Datei[f].Monat=x) then begin
if (x=12) then begin
a:=1;
b:=w+1;
end else begin
a:=x+1;
b:=w;
repeat
g:=g+1;
until (Datei[g].Jahr=b) and (Datei[g].Monat=a) or (g=aa+1);
v:=Datei[g].Gas-Datei[f].Gas;
p:=((Datei[g].Gas-Datei[f].Gas)*Datei[f].GPG);
GP:=(Datei[f].GPG);
end;
end;
end;
form15.stringgrid1.cells[0,1]:=FloatToStr(v);
form15.stringgrid6.cells[0,0]:=FloatToStr(p);
form15.stringgrid8.cells[0,0]:=FloatToStr(GP);
Danke!