home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 March / PCO3_97.ISO / filesbbs / dos / kiosk151.arj / STAT.ZIP / STAT.PAS next >
Encoding:
Pascal/Delphi Source File  |  1996-12-07  |  960 b   |  35 lines
  1. (* Beispiel-Programm, um auf die Datei STAT.DAT zuzugreifen *)
  2. (* Copyright by (C)atbytes Software 1996                    *)
  3.  
  4. USES CRT;
  5.  
  6. {$I STATSTR.151}
  7.  
  8. BEGIN
  9.   ASSIGN (StatFile, 'STAT.DAT'); (* STAT.DAT im aktuellen Verzeichnis *)
  10.   {$I-}
  11.   RESET (StatFile); {$I+}
  12.   IF IORESULT <> 0 THEN
  13.      BEGIN
  14.      WRITELN;
  15.      WRITELN ('Datei "STAT.DAT" wurde nicht gefunden...');
  16.      WRITELN;
  17.      HALT (1);
  18.      END;
  19.   IF FILESIZE (StatFile) - 1 > 0 THEN
  20.      BEGIN
  21.      TEXTCOLOR (15);
  22.      TEXTBACKGROUND (0);
  23.      CLRSCR;
  24.      SEEK (StatFile, 1);
  25.      READ (StatFile, StatRec);
  26.      GOTOXY (40 - LENGTH ('Datensatz von : ' + StatRec.Name) DIV 2, 2);
  27.      WRITE ('Datensatz von : ' + StatRec.Name);
  28.      GOTOXY (5, 4);
  29.      WRITELN ('Gesamteinnahmen     : ', StatRec.Einnahmen : 3 : 2, ' DM');
  30.      (* WriteLn('Einnahmen aus Wurst : ',StatRec.EinWurst:3:2,' DM'); <-- usw. *)
  31.      WRITELN;
  32.      END;
  33.   CLOSE (StatFile);
  34. END.
  35.