Page 16 - PowerPoint 演示文稿
P. 16
{$I+} If ioresult<>0 then Begin
Rewrite (F);
Saisie (f);
End;
Compter (f); Close (f);
END.
Page 16
