procedure transaktion(kt: Kontotype);
Type TransaktionsType = (opret, hæve, indsætte, tilskrivRente,
clearCheck, nedlaeg);
Procedurer for forskellige typer af transaktioner;
begin
case kt of
checkKonto: checkKontoTransaktion;
aktionærKonto: aktionærKontoTransaktion;
pensionsKonto: pensionsKontoTransakton;
gevinstKonto: gevinstKontoTransaktion;
end;
end (* transaktion *) |