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, 20: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, 20:57, insgesamt 2-mal bearbeitet.

mkinzler	#2\|Verfasst am: 01.07.2008, 20:54 Titel: Re: Kann mal jmd kurz draufschauen??

Moderator
Beiträge: 27.698
angemeldet: 09.12.2005
Wohnort: Heilbronn
Delphi 2010 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, 20: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, 21:00 Titel: Re: Kann mal jmd kurz draufschauen??

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

Und bitte gib deinem Thread einen aussagekräftigen Titel.

Programmieren ist ein Rennen zwischen den Softwareentwicklern, die versuchen größere und bessere idiotensichere Programme zu schreiben und dem Universum, welches versucht größere und bessere Idioten zu produzieren. Zur Zeit liegt das Universum in Führung.

Razor90	#5\|Verfasst am: 01.07.2008, 21: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, 21:02 Titel: Re: Kann mal jmd kurz draufschauen??

Moderator
Beiträge: 27.698
angemeldet: 09.12.2005
Wohnort: Heilbronn
Delphi 2010 Professional

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, 21:02, insgesamt 1-mal bearbeitet.

freak4fun	#7\|Verfasst am: 01.07.2008, 21:05 Titel: Re: Kann mal jmd kurz draufschauen??

aktives Mitglied
Alter: 25
Status: offline
Beiträge: 1.571
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.

Write it, cut it, paste it, save it,
Load it, check it, quick - rewrite it,
Plug it, play it, burn it, rip it,
Drag and drop it, zip - unzip it ...

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

Moderator
Status: offline
Beiträge: 30.051
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??".

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

Mitglied
Alter: 59
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, 07:22 Titel: Re: Kann mal jmd kurz draufschauen??

Mitglied
Alter: 29
Status: offline
Beiträge: 225
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, 07:30 Titel: Re: Kann mal jmd kurz draufschauen??

"Rüsselmops" ;-)
Alter: 43
Status: online
Beiträge: 14.030
angemeldet: 17.09.2006
Wohnort: Barchfeld
Delphi 2007 Professional

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

[/OT]

Wenn Dein Programm nicht macht, was es soll, nenn es einfach "Version 1.0"

Idee := Brain.Activate(self);

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

Moderator
Alter: 31
Status: offline
Beiträge: 6.126
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.

不死鳥

Visit my Blog.
while not aSleep do Inc(sheep);

mr_emre_d	#13\|Verfasst am: 02.07.2008, 10: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, 10:07, insgesamt 1-mal bearbeitet.

alzaimar	#14\|Verfasst am: 02.07.2008, 10:31 Titel: Re: Kann mal jmd kurz draufschauen??

Moderator
Alter: 46
Status: offline
Beiträge: 4.693
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.

"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")

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-2010 by Daniel R. Wolf powered by phpBB © phpBB Group