| |
|
|
 |
Autor |
Nachricht |
 |
| |
| Razor90 |
#1| Verfasst am: 01.07.2008, 21:50 Titel: Kann mal jmd kurz draufschauen?? |
 |
 |
|
|
Mitglied
Status: offline
Beiträge: 60
angemeldet: 18.06.2008
|
Halb, ich habe ein Problem mit diesem Code, und zwar wird immer nur 0 ausgegeben anstatt die "echten" Werte.  Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
·
·
15
·
·
·
·
20
·
·
·
·
25
| 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! |
 Zuletzt bearbeitet von Razor90 am 01.07.2008, 21:57, insgesamt 2-mal bearbeitet. |
  |
|
|
|
| |
| mkinzler |
#2|Verfasst am: 01.07.2008, 21:54 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
sehr aktives Mitglied
Status: online
Beiträge: 18.802
angemeldet: 09.12.2005
Wohnort: Heilbronn
RAD-Studio 2007 Professional
|
Rücke mal das Ganze richtig ein, so dass man die Blöcke richtig sieht 
Welchen Wert haben w, x. Wie sieht die Struktur hinter Datei aus,was für Werte? |
Zuletzt bearbeitet von mkinzler am 01.07.2008, 21:58, insgesamt 1-mal bearbeitet. |
| |
|
|
|
| |
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.
|
|
| |
|
|
| |
| Razor90 |
#5|Verfasst am: 01.07.2008, 22:02 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
Mitglied
Status: offline
Beiträge: 60
angemeldet: 18.06.2008
|
was denn z. bsp? algorithmusproblem oda was? |
|
| |
|
|
|
| |
| mkinzler |
#6|Verfasst am: 01.07.2008, 22:02 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
sehr aktives Mitglied
Status: online
Beiträge: 18.802
angemeldet: 09.12.2005
Wohnort: Heilbronn
RAD-Studio 2007 Professional
|
Die Blöcke stimmen immer noch nicht
| Delphi-Quellcode: | zusammenfalten | markieren | 1
·
·
·
5
·
·
·
·
10
·
·
·
·
15
·
·
·
·
20
·
·
·
·
25
·
·
28
| 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); |
|
|
Zuletzt bearbeitet von mkinzler am 01.07.2008, 22:02, insgesamt 1-mal bearbeitet. |
| |
|
|
|
| |
| freak4fun |
#7|Verfasst am: 01.07.2008, 22:05 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
aktives Mitglied
Alter: 23
Status: offline
Beiträge: 1.314
angemeldet: 22.09.2004
Wohnort: Wismar
Turbo Delphi für Win32
|
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. |
"Du glaubst doch nicht im Ernst, die User wären schlauer geworden?" [Das System von Karl Olsberg]
 Zeitgeist  |
| |
|
|
|
| |
|
|
| |
| oldmax |
#9|Verfasst am: 02.07.2008, 06:14 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
Mitglied
Alter: 57
Status: offline
Beiträge: 138
angemeldet: 27.04.2006
Wohnort: Gieboldehausen
|
Hi
OT
Luckie schrieb:
| Zitat: | | Und bitte gib deinem Thread einen aussagekräftigen Titel. |
Warum ? Ich hab kurz draufgeschaut !
Gruß oldmax |
Noch ist mein Rechner mir zu Diensten.... ansonsten habe ich die Macht ihn zu vernichten ! |
| |
|
|
|
| |
| spaxxn |
#10|Verfasst am: 02.07.2008, 08:22 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
Mitglied
Alter: 27
Status: offline
Beiträge: 156
angemeldet: 19.11.2004
Wohnort: Neumünster
Delphi 7 Enterprise
|
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  |
|
| |
|
|
|
| |
| DeddyH |
#11|Verfasst am: 02.07.2008, 08:30 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
"Rüsselmops" ;-)
Alter: 42
Status: offline
Beiträge: 6.654
angemeldet: 17.09.2006
Wohnort: Schweina/Thüringen
Delphi 2007 Professional
|
[OT] Aber wir lassen uns unsere schlechte Laune nicht verderben [/OT] |
10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche. |
| |
|
|
|
| |
| Phoenix |
#12|Verfasst am: 02.07.2008, 10:50 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
Moderator
Alter: 29
Status: offline
Beiträge: 4.876
angemeldet: 25.06.2002
Wohnort: Ravensburg
Delphi 7 Professional
|
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. |
Microsoft Academic Program, Student Partner
Visit my Blog.
I use little monitors. They make the problems look smaller... |
| |
|
|
|
| |
| mr_emre_d |
#13|Verfasst am: 02.07.2008, 11:06 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
sehr aktives Mitglied
Alter: 18
Status: offline
Beiträge: 157
angemeldet: 05.11.2007
|
| Code: | markieren | ....
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 |
IpsoFacto Production
iBan v.2.1
Ich liebe es
Zuletzt bearbeitet von mr_emre_d am 02.07.2008, 11:07, insgesamt 1-mal bearbeitet. |
| |
|
|
|
| |
| alzaimar |
#14|Verfasst am: 02.07.2008, 11:31 Titel: Re: Kann mal jmd kurz draufschauen?? |
|
|
|
|
sehr aktives Mitglied
Alter: 45
Status: offline
Beiträge: 3.220
angemeldet: 06.05.2005
Wohnort: Berlin
Delphi 2006 Architect
|
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. |
Nach dem Spiel ist vor dem Spiel. |
| |
|
|
|
|
|
|
| |
|
|
| |
 
  
|
|
Site-Map
Suchen
Code-Library
Registrieren
Login
