Kann mal jmd kurz draufschauen??

[mkinzler]

Die Blöcke stimmen immer noch nicht

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);