Delphi-PRAXiS :: Das Forum für Fragen zu Delphi
Das Experten Forum für Delphi Programmierer
Hilfe für CodeGear 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: 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.
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
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 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
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?"
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: 79
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
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.
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: 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! Thumbs up!
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
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?"
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: 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 !
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: 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 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: 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 Mr. Green [/OT]

10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche.

If a train station is where the train stops, what the hell is a workstation? Grübelnd...
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: 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.
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
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.
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
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.
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-2009 by Daniel R. Wolf
powered by phpBB © phpBB Group

Impressum / Kontakt Allgemeine Geschäftsbedingungen