|
Sul vettore |
   |
|
|
Inserisce record "vuoti" nel vettore Procedure SvuotaRUB(Var RU: Rubrica);
Var
i: Integer;
Begin
For i:=1 to Nmax do
SvuotaPER(RU[i]);
End;
L'interfaccia utente è da migliorare... Procedure VediRUB(RU: Rubrica);
Var
i: Integer;
Begin
For i:=1 to Nmax do
VediPER(RU[i]);
End;
|
|