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:

[DeddyH]

[OT] Aber wir lassen uns unsere schlechte Laune nicht verderben :mrgreen: [/OT]

[Phoenix]

Genug des OT jetzt, ja?

Der Titel ist wirklich nicht sonderlich gut getroffen, und das ganze dazwischengeposte macht den Thread deswegen nicht besser sondern nur unübersichtlicher. Also bitte beim Thema bleiben.

[mr_emre_d]

Code:

....
6  if (Datei[f].Jahr=w) and (Datei[f].Monat=x) then begin
7     if (x=12) then begin
8       a:=1;
9       b:=w+1; 
....

ich versteh nicht, warum du bei der zweiten if abfrage nochmal nach x fragst ?
bei der ersten müsste sie doch bekannt sein ?!!!

Was willst du überhaupt mit diesem Algo ?
Willst du prüfen, ob bei dieser Struktur "Datei" der Monat, nehme ich jetzt mal so an, schon 12 ist oder was ?
Wenn ja was wird da gemacht ? Nach jedem Durchgang der f-Schleife wird, wenn es zutrifft, a auf 1 gesetzt !

Ich würd das anders machen ...

MfG Franz

[alzaimar]

Das ist der Folgemonat (a) und das dazugehörige Jahr (b) des Monats (x) und Jahr (w).

Tipp: Nimm mal richtige Variablennamen, dann versteht man den Code besser.