Delphi-PRAXiS :: Kann mal jmd kurz draufschauen??

Kann mal jmd kurz draufschauen?? Ein Thema von Razor90. Vorheriges Thema anzeigen \| Nächstes Thema anzeigen

Delphi-PRAXiS Forum - Übersicht -> Sonstige Fragen zu Delphi
Seite 1 von 1 [ 14 Beiträge ]

Autor

Nachricht

Razor90	#1\|Verfasst am: 01.07.2008, 21:50 Titel: Kann mal jmd kurz draufschauen??

Mitglied
Status: offline
Beiträge: 79
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

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??

Moderator
Status: offline
Beiträge: 24.962
angemeldet: 09.12.2005
Wohnort: Heilbronn
RAD-Studio 2009 Pro

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.

Luckie	#4\|Verfasst am: 01.07.2008, 22:00 Titel: Re: Kann mal jmd kurz draufschauen??

Moderator
Status: offline
Beiträge: 27.904
angemeldet: 29.05.2002
Delphi 2006 Professional

Und bitte gib deinem Thread einen aussagekräftigen Titel.

"Virtual" means never knowing where your next byte is coming from.
"It's 5:50 a.m., Do you know where your stack pointer is?"

Razor90	#5\|Verfasst am: 01.07.2008, 22:02 Titel: Re: Kann mal jmd kurz draufschauen??

Mitglied
Status: offline
Beiträge: 79
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??

Moderator
Status: offline
Beiträge: 24.962
angemeldet: 09.12.2005
Wohnort: Heilbronn
RAD-Studio 2009 Pro

Die Blöcke stimmen immer noch nicht

Delphi-Quellcode:

zusammenfalten | markieren

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: 24
Status: offline
Beiträge: 1.508
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]

Kämpfe gegen mich!

Luckie	#8\|Verfasst am: 01.07.2008, 22:09 Titel: Re: Kann mal jmd kurz draufschauen??

Moderator
Status: offline
Beiträge: 27.904
angemeldet: 29.05.2002
Delphi 2006 Professional

Razor90 hat folgendes geschrieben:

was denn z. bsp? algorithmusproblem oda was?

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

"Virtual" means never knowing where your next byte is coming from.
"It's 5:50 a.m., Do you know where your stack pointer is?"

oldmax	#9\|Verfasst am: 02.07.2008, 06:14 Titel: Re: Kann mal jmd kurz draufschauen??

Mitglied
Alter: 58
Status: offline
Beiträge: 168
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: 28
Status: offline
Beiträge: 204
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: 43
Status: offline
Beiträge: 11.362
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.

If a train station is where the train stops, what the hell is a workstation?

Phoenix	#12\|Verfasst am: 02.07.2008, 10:50 Titel: Re: Kann mal jmd kurz draufschauen??

Moderator
Alter: 30
Status: offline
Beiträge: 5.708
angemeldet: 25.06.2002
Wohnort: Ravensburg
Delphi Prism

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.

mr_emre_d	#13\|Verfasst am: 02.07.2008, 11:06 Titel: Re: Kann mal jmd kurz draufschauen??

ehem. Benutzer

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

Zuletzt bearbeitet 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??

Moderator
Alter: 45
Status: offline
Beiträge: 4.083
angemeldet: 06.05.2005
Wohnort: Berlin
RAD-Studio 2007 Enterprise

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.

1. Das Selbstverständnis unter der Voraussetzung.
2. Und das ist es, was wir unseren Wählern schuldig sind
3. Die konzentrierte Beinhaltung als Kernstück eines zukunftsweisenden Parteiprogramms.

Anzeige-Optionen:

Delphi-PRAXiS Forum - Übersicht -> Sonstige Fragen zu Delphi	Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1 [ 14 Beiträge ]

Gehe zu:

Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.

Impressum / Kontakt Allgemeine Geschäftsbedingungen Verhaltenskodex & FAQ		Delphi-PRAXiS V.2005 III © 2002-2009 by Daniel R. Wolf powered by phpBB © phpBB Group