[delphi] IF...THEN... ??

[Verwijderd]

code:

            PROCEDURE PosNegVrg;

                PROCEDURE Ophogen(VAR Totaal : Integer;
                            Erbij  : Integer);

                BEGIN
                 Totaal := Totaal + Erbij;
                END; (* Ophogen *)

            BEGIN
             IF Getal < 0 THEN
             Ophogen(SomNeg, Getal)
             Ophogen(TotaalNeg,1)
            ELSE
             Ophogen(TotaalPos,1)
             Ophogen(SomPos, Getal)
            END; (* PosNegVrg *)

hoe kan ik er voor zorgen dat allebei "Ophogen(SomNeg, Getal)" en "Ophogen(TotaalNeg,1)" worden uigevoerd wanneer
"Getal < 0" ??? AND werkt niet en scheiden met ";" ook niet...

[Klippy]

Sorry, beetje n00b vraag

code:

IF Getal < 0 THEN
 BEGIN  
   Ophogen(SomNeg, Getal);
   Ophogen(TotaalNeg,1);
 END
ELSE
 BEGIN
   Ophogen(TotaalPos,1);
   Ophogen(SomPos, Getal);
 END;

[dusty]

Leer de THEN statement te gebruiken ism. BEGIN en END. Erg BASIC stuff, makkelijk te vinden in de manual

Succes!