[Delphi] Waarom werkt dit niet? - Softwareontwikkeling

donderdag 22 november 2001 15:49

Acties:

Verwijderd

Topicstarter

Hij blijft hier in een loop hangen..
weet iemand waarom?

code:

Tabel1.Open;
    Tabel1.First;
    while not Tabel1.Eof do
    begin
    Tabel1.Edit;
    if Tabel1.FieldByName('Bedrag').Value = null then //kijken of er lege velden zijn
    begin
      Tabel1.FieldByName('Bedrag').Value := 0; //lege velden vullen met de waarde 0
      Tabel1.Post;
      Tabel1.Edit;
    end;
    begin
      Faktuurnr := Tabel1.FieldByName('Faktuurnr').AsString; //Faktuurnr op Faktuurnr uit tabel zetten
      FactuurState //Procedure om te controleren of Faktuur betaald is
      if Betaald = True then
      begin
        if rgCurrency.ItemIndex = 0 then //kijken of betaalde fakturen op 0 (gulden) of 1 (euro) gezet moeten worden
        begin
        Tabel1.Edit;
        Tabel1.FieldByName('Currency').Value := 'F'; //Betaalde faktuur wordt op F (gulden) gezet (veld currency, bedrag hoeft niet aangepast te worden)
        Tabel1.Post;
        Tabel1.Next;
        end
      else
      begin
        GuilderAmount := Tabel1.FieldByName('Bedrag').Value; //Var GuilderAmount wordt op de waarde Bedrag uit de tabel gezet
        EuroAmount := GuilderAmount / vEuroCourse; //Gulden wordt gedeeld door vEurocourse = 2.20371
        sEuroAmount := FloatToStr(EuroAmount); 
        sEuroAmount := FormatFloat('0.00', EuroAmount); //max 2 decimalen achter de komma
        Tabel1.FieldByName('Bedrag').Value := StrToFloat(sEuroAmount); //Veld vullen met om gerekende waarde
        Tabel1.FieldByName('Currency').Value := ''; //Het veld currency wordt op Euro () gezet
        Tabel1.Post;
        Tabel1.Next;
      end;
    end;
    end;
  end;

donderdag 22 november 2001 15:52

Acties:

Janoz

Moderator Devschuur®

!litemod

Komop zeg... Probeer eerst eens wat debuginfo^* erin te zetten zodat je ziet waar ie vastloopt...

_{*Debuginfo zijn print commando's waarmee je kunt zien of bijvoorbeeld waardes wel worden opgehoogd en hoevaak hij door een lus heen gaat, daarnaast kun je ook precies zien op welk punt je programma de mist in gaat.}

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'

donderdag 22 november 2001 15:54

Acties:

mulder

ik spuug op het trottoir

Ik schreef:"Je hebt alleen Tabel1.Next in een If statement's staan. Als dus niet aan de voorwaarde word voldaan (waarschijnlijk al de eerste keer) Word er geen next gedaan, dus weer niet aan een voorwaarde gedaan, dus word er geen next gedaan, dus weer niet aan een voorwaarde gedaan, dus word er geen next gedaan, dus weer niet aan een voorwaarde gedaan, dus word er geen next gedaan, dus weer niet aan een voorwaarde gedaan, dus word er geen next gedaan, dus weer niet aan een voorwaarde gedaan, dus word er geen next gedaan, dus weer niet aan een voorwaarde gedaan, dus word er geen next gedaan, dus weer niet aan een voorwaarde gedaan, ..."

EDIT: Volgens mij moet ik beter lezen.......
EDIT2: Of toch niet?

oogjes open, snaveltjes dicht

donderdag 22 november 2001 15:55

Acties:

Verwijderd

Je zult die tabel1.next wel verkeerd geplaatst hebben.

donderdag 22 november 2001 15:55

Acties:

Tsjipmanz

Der Rudi ist da

Op donderdag 22 november 2001 15:49 schreef DarKHunteR het volgende:
Hij blijft hier in een loop hangen..
weet iemand waarom?

Hij bereikt niet Eof, dat is het enige waarin hij kan blijven hangen

Als

code:

1	if rgCurrency.ItemIndex = 0

NIET waar is gaat hij niet naar een volgende record. Hier moet je het dus zoeken.

There's no such thing as a mistake, just happy accidents - Bob Ross
Relaxte muziek: altijd okee!
- Soulseek rulez -

donderdag 22 november 2001 15:56

Acties:

Verwijderd

Topicstarter

hij springt wel naar de volgende record, maar hij komt gewoon nooit in "end of file".

donderdag 22 november 2001 15:56

Acties:

Verwijderd

Als betaald false is gaat hij niet naar de vlgde record.

donderdag 22 november 2001 15:57

Acties:

Verwijderd

Ik zou je begin en ends maar eens gaan controleren..
bv:

code:

Tabel1.FieldByName('Bedrag').Value := 0; 
      Tabel1.Post;
      Tabel1.Edit;
    end;
    begin

wat doet die daar?

Daarnaast mis ik een puntkomma achter 'factuurstate'.

Je gebruikt nogal veel variabelen en sommige zijn niet nodig. Zo zet je eenrs EuroAmount om naar een string om 'm later weer terug te zetten naar float.

donderdag 22 november 2001 16:01

Acties:

stekkel

Zoals reeds beantwoord:

als rgCurrency.ItemIndex <> 0 en betaald = true dan zit je in een oneindige lus.

donderdag 22 november 2001 16:06

Acties:

stekkel

Plaats je table1.next trouwens ook ergens anders, namelijk net voor de 'end;" van de while-lus.
Dat scheelt weer 1 regel code en dat is inzichtelijker.

donderdag 22 november 2001 16:10

Acties:

Verwijderd

Topicstarter

Btw: Het is niet mijn code. Er zit hier iemand en die is gebanned op tweakers, dus ik vraag het ff voor hem

voordat jullie een foute indruk van mij krijgen

donderdag 22 november 2001 16:11

Acties:

stekkel

Op donderdag 22 november 2001 16:06 schreef DiFool het volgende:

[..]

Ben ik nou scheel, of..? Volgens mij moet betaald toch echt False zijn om in een oneindige lus te komen.

als betaald false is dan krijg je de else statement waar een table1.next in staat.

donderdag 22 november 2001 16:13

Acties:

Verwijderd

De oplossing zoals hij hier aangedragen wordt is iig niet waar:

code:

begin
  Tabel1.Open;
  Tabel1.First;
  while not Tabel1.Eof do
    begin
    Tabel1.Edit;
    if Tabel1.FieldByName('Bedrag').Value = null then //kijken of er lege velden zijn
      begin
        Tabel1.FieldByName('Bedrag').Value := 0; //lege velden vullen met de waarde 0
        Tabel1.Post;
        Tabel1.Edit;
      end;
    begin
      Faktuurnr := Tabel1.FieldByName('Faktuurnr').AsString; //Faktuurnr op Faktuurnr uit tabel zetten
      FactuurState //Procedure om te controleren of Faktuur betaald is
      if Betaald = True then
        begin
        if rgCurrency.ItemIndex = 0 then //kijken of betaalde fakturen op 0 (gulden) of 1 (euro) gezet moeten worden
            begin
            Tabel1.Edit;
            Tabel1.FieldByName('Currency').Value := 'F'; //Betaalde faktuur wordt op F (gulden) gezet (veld currency, bedrag hoeft niet aangepast te worden)
            Tabel1.Post;
            Tabel1.Next;
            end
          else
            begin
            GuilderAmount := Tabel1.FieldByName('Bedrag').Value; //Var GuilderAmount wordt op de waarde Bedrag uit de tabel gezet
            EuroAmount := GuilderAmount / vEuroCourse; //Gulden wordt gedeeld door vEurocourse = 2.20371
            sEuroAmount := FloatToStr(EuroAmount);
            sEuroAmount := FormatFloat('0.00', EuroAmount); //max 2 decimalen achter de komma
            Tabel1.FieldByName('Bedrag').Value := StrToFloat(sEuroAmount); //Veld vullen met om gerekende waarde
            Tabel1.FieldByName('Currency').Value := ''; //Het veld currency wordt op Euro () gezet
            Tabel1.Post;
            Tabel1.Next;
            end;
        end;
    end;
    end;
end;

Zo is het stukken duidelijker te zien imo.

Als betaald = false dan gebeurd er niets, hij voert dan geen next uit. Oftewel hij blijft hangen op de eerste onbetaalde factuur. Ik zou het zo veranderen:

code:

begin
  Tabel1.Open;
  Tabel1.First;
  while not Tabel1.Eof do
    begin
    Tabel1.Edit;
    if Tabel1.FieldByName('Bedrag').Value = null then //kijken of er lege velden zijn
      begin
        Tabel1.FieldByName('Bedrag').Value := 0; //lege velden vullen met de waarde 0
        Tabel1.Post;
        Tabel1.Edit;
      end;
    Faktuurnr := Tabel1.FieldByName('Faktuurnr').AsString; //Faktuurnr op Faktuurnr uit tabel zetten
    FactuurState; //Procedure om te controleren of Faktuur betaald is
    if Betaald then
      begin
        if rgCurrency.ItemIndex = 0 then //kijken of betaalde fakturen op 0 (gulden) of 1 (euro) gezet moeten worden
          begin
            Tabel1.Edit;
            Tabel1.FieldByName('Currency').Value := 'F'; //Betaalde faktuur wordt op F (gulden) gezet (veld currency, bedrag hoeft niet aangepast te worden)
            Tabel1.Post;
          end
        else
          begin
            GuilderAmount := Tabel1.FieldByName('Bedrag').Value; //Var GuilderAmount wordt op de waarde Bedrag uit de tabel gezet
            EuroAmount := GuilderAmount / vEuroCourse; //Gulden wordt gedeeld door vEurocourse = 2.20371
            sEuroAmount := FloatToStr(EuroAmount);
            sEuroAmount := FormatFloat('0.00', EuroAmount); //max 2 decimalen achter de komma
            Tabel1.FieldByName('Bedrag').Value := StrToFloat(sEuroAmount); //Veld vullen met om gerekende waarde
            Tabel1.FieldByName('Currency').Value := ''; //Het veld currency wordt op Euro () gezet
            Tabel1.Post;
          end;
      end;
    Table1.Next;
    end;
end;

Zo is het nog niet mooi allemaal, maar werkt het wel. Mijn tip: Kijk ook eens naar queries..

Oh ja, gebanned is gebanned. Dat betekend niet via anderen alsnog gebruik maken van GoT. Overigens is het dan wel een domme *** want je moet best je best doen om gebanned te worden.

donderdag 22 november 2001 16:24

Acties:

Verwijderd

Topicstarter

ja,
hij is een beetje een loser..
zelf snap ik nix van Delphi(ik doe alleen php)..
maar hij zegt nu dat ie nix aan jullie code heeft...
dus laat maar ff zitten..
ik ga ook nix meer vragen voor hem..

donderdag 22 november 2001 16:27

Acties:

Verwijderd

Sorry maar hier wordt ik een beetje pissig van. Hij heeft z'n oplossing en is nu te beroerd om even dankjewel te zeggen?

Zijn eigen code voert gewoon geen NEXT uit als betaald is true. Als hij beweerd dat dat wel zo is dan kan hij beter gewoon Delphi gaan wissen van z'n HD.

donderdag 22 november 2001 16:32

Acties:

Verwijderd

Topicstarter

Op donderdag 22 november 2001 16:27 schreef hezik het volgende:
Sorry maar hier wordt ik een beetje pissig van. Hij heeft z'n oplossing en is nu te beroerd om even dankjewel te zeggen?

Zijn eigen code voert gewoon geen NEXT uit als betaald is true. Als hij beweerd dat dat wel zo is dan kan hij beter gewoon Delphi gaan wissen van z'n HD.

yeah,
hij denk dat zijn code beter is en hij zegt dat jullie het niet snappen...

donderdag 22 november 2001 16:35

Acties:

Verwijderd

yeah,
hij denk dat zijn code beter is en hij zegt dat jullie het niet snappen...

Zit je de boel te stangen hier of denkt hij dat echt?

Iemand die denkt dat ie 2 conversies nodig heeft om z'n float met 2 getallen achter de komma te krijgen moet je zowieso niet serieus nemen imo.

Waarschuw 'm nog wel even ervoor dat als hij dit programma multi-user wil gaan toepassen dat hij binnen 2 dagen z'n database kan afschrijven

donderdag 22 november 2001 16:39

Acties:

Verwijderd

Topicstarter

Op donderdag 22 november 2001 16:35 schreef hezik het volgende:

[..]

Zit je de boel te stangen hier of denkt hij dat echt?

Iemand die denkt dat ie 2 conversies nodig heeft om z'n float met 2 getallen achter de komma te krijgen moet je zowieso niet serieus nemen imo.

Waarschuw 'm nog wel even ervoor dat als hij dit programma multi-user wil gaan toepassen dat hij binnen 2 dagen z'n database kan afschrijven

ja,
ik weet nix van delphi dus ik weet niet waar je het over hebt..maar ik zal dit wel ff allemaal aan m laten lezen..
kan ie ff kijken hoe goed ie in delphi is

donderdag 22 november 2001 16:40

Acties:

stekkel

Ja, inderdaad dat is niet zo heel slim.

En toch blijven denken dat zijn code beter is.
Tja, je hebt eigenwijs en EIGENWIJS