| procedure checkkontoTransaktion;
var ck: checkKonto;
forskellige transaktions procedurer på checkKonto
function LaesTransaktionsType: TransaktionsType;
begin ... end;
procedure hentCheckKonto(var k: CheckKonto);
begin ... end;
procedure GemCheckKonto(var k: CheckKonto);
begin ... end;
begin
hentCheckKonto(ck);
tt := LaesTransaktionsType;
case tt of
opret: opretCheckKonto(ck);
hæve: hæveCheckKonto(ck);
indsætte: indsætteCheckKonto(ck);
tilskrivRente: tilskrivRenteCheckKonto(ck);
clearCheck: clearEnCheck(ck);
nedlaeg: nedlaegCheckKonto(ck);
end;
gemCheckKonto(ck);
end (* checkkontoTransaktion *) |
|
| | I denne procedure processerer vi en checkkonto. Vi ser igen, at vi skal
definere procedurer til hhv. oprettelse, hævning, indsættelse, mv. på checkkontoen.
De enkelte transaktionsprocedurer antages igen at være lokale procedurer til denne procedure.
|