Kann mal jmd kurz draufschauen??

[Razor90]

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!

[mkinzler]

Rücke mal das Ganze richtig ein, so dass man die Blöcke richtig sieht :warn:
Welchen Wert haben w, x. Wie sieht die Struktur hinter Datei aus,was für Werte?

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi-Frage
Hinweis: Bitte ändere auch noch den Titel in einen aussagekräftigen.

[Luckie]

Und bitte gib deinem Thread einen aussagekräftigen Titel.

[Razor90]

was denn z. bsp? algorithmusproblem oda was?

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

[freak4fun]

Ich denke du solltest selbst mal "durchsteppen" und dir die Wert anschauen. Hier fehlen zum Beispiel noch Startwerte wie aa und Dateiinhalte, sollten es tatsächlich Dateien sein.

[Luckie]

Zitat:

Zitat von Razor90

was denn z. bsp? algorithmusproblem oda was?

Das wäre jedenfalls besser als "Kann mal jmd kurz draufschauen??".

[oldmax]

Hi
OT
Luckie schrieb:

Zitat:

Und bitte gib deinem Thread einen aussagekräftigen Titel.

Warum ? Ich hab kurz draufgeschaut !
Gruß oldmax

[spaxxn]

Weil solch ein Titel dafür sorgt, dass man schlechte Laune bekommt, weil man den Thread erst öffnen muss, um zu wissen worum es geht :glaskugel: