Delphi-PRAXiS :: Das Forum für Fragen zu Delphi
Das Experten Forum für Delphi Programmierer
Hilfe für Borland Delphi gibts es hier im Forum
Delphi Quelltexte und Source Codes
 
Delphi-PRAXiS :: Foren-ÜbersichtForen-Übersicht Delphi-PRAXiS Modul-ÜbersichtSite-Map Delphi-PRAXiS durchsuchenSuchen Delphi-PRAXiS Code-LibraryCode-Library Jetzt registrieren!Registrieren Login  
   
 
0
 
Kann mal jmd kurz draufschauen??
Ein Thema von Razor90.

Vorheriges Thema anzeigen  |  Nächstes Thema anzeigen
Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken
 
Delphi-PRAXiS Forum - Übersicht -> Sonstige Fragen zu Delphi
Seite 1 von 1   [ 14 Beiträge ]  
 
 Autor 
 Nachricht 
 
Razor90 #1|Beitrag #911112Verfasst am: 01.07.2008, 21:50      Titel: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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
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.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
mkinzler #2|Beitrag #911115Verfasst am: 01.07.2008, 21:54      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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 Warning
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.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Beitrag wurde verschoben
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|Beitrag #911123Verfasst am: 01.07.2008, 22:00      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
Moderator
Alter: 33
Status: offline
Beiträge: 25.748
angemeldet: 29.05.2002
Wohnort: Kassel
Delphi 6 Personal

Und bitte gib deinem Thread einen aussagekräftigen Titel.

Gruß Michael
"Writing code is like writing poetry." - Larry Osterman

"Hört sich das so an, als ob ich eine Pizza bestellen wollte?" - Bruce Willis in Stirb langsam
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Razor90 #5|Beitrag #911124Verfasst am: 01.07.2008, 22:02      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
Mitglied
Status: offline
Beiträge: 60
angemeldet: 18.06.2008


was denn z. bsp? algorithmusproblem oda was?
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
mkinzler #6|Beitrag #911127Verfasst am: 01.07.2008, 22:02      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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
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.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
freak4fun #7|Beitrag #911131Verfasst am: 01.07.2008, 22:05      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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 Mr. Green
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Luckie #8|Beitrag #911132Verfasst am: 01.07.2008, 22:09      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
Moderator
Alter: 33
Status: offline
Beiträge: 25.748
angemeldet: 29.05.2002
Wohnort: Kassel
Delphi 6 Personal

Razor90 hat folgendes geschrieben:
was denn z. bsp? algorithmusproblem oda was?

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

Gruß Michael
"Writing code is like writing poetry." - Larry Osterman

"Hört sich das so an, als ob ich eine Pizza bestellen wollte?" - Bruce Willis in Stirb langsam
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
oldmax #9|Beitrag #911214Verfasst am: 02.07.2008, 06:14      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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 !
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
spaxxn #10|Beitrag #911223Verfasst am: 02.07.2008, 08:22      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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 Was sagt die Glaskugel?
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
DeddyH #11|Beitrag #911225Verfasst am: 02.07.2008, 08:30      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
"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 Mr. Green [/OT]

10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
Phoenix #12|Beitrag #911282Verfasst am: 02.07.2008, 10:50      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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...
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
mr_emre_d #13|Beitrag #911291Verfasst am: 02.07.2008, 11:06      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
alzaimar #14|Beitrag #911308Verfasst am: 02.07.2008, 11:31      Titel: Re: Kann mal jmd kurz draufschauen?? Antworten mit Zitat
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.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
Anzeige-Optionen:    
 
Delphi-PRAXiS Forum - Übersicht -> Sonstige Fragen zu Delphi Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1   [ 14 Beiträge ]  
 
  Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken
 
   
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 :: Das Forum für Delphi-Programmierer
Das Experten Forum für Delphi ProgrammiererHilfe für Borland Delphi gibts es hier im ForumDelphi Quelltexte und Source CodesDelphi-PRAXiS :: Das Forum für DelphiWindows APIInternet und NetzwerkeVCL und Datenbanken
 

Delphi-PRAXiS V.2005 III
© 2002-2008 by Daniel R. Wolf
powered by phpBB © phpBB Group

Impressum / Kontakt Allgemeine Geschäftsbedingungen