home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 07 / praxis / pasdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-05-23  |  1.3 KB  |  47 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   PASDEMO.PAS                          *)
  3. (*     Demoprogramm, zeigt aus Basic umgewandelte Daten   *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM PasDemo;
  6.  
  7. USES CRT;
  8.  
  9. TYPE TempDaten = RECORD
  10.                    Vorname  : STRING [10];
  11.                    NachName : STRING [20];
  12.                    Plz      : INTEGER;
  13.                    LongIn   : LongInt;
  14.                    EReal    : Single;          (* !! *)
  15.                    Doppelt  : Double;
  16.                  END;
  17. VAR  DemoDaten : TempDaten;
  18.      DemoFile  : FILE OF TempDaten;
  19.  
  20. (* ------------------------------------------------------ *)
  21. PROCEDURE DatLoad;
  22. VAR Fn : STRING [12];
  23.  
  24. BEGIN
  25.   Fn := 'PasDatei.DAT';
  26.   Assign(DemoFile, Fn);
  27. (*$I-*)
  28.   Reset(DemoFile);
  29. (*$I+*)
  30.   Seek(DemoFile, 0);            (* Im Beispiel : 0 .. 2 *)
  31.   Read(DemoFile, DemoDaten);
  32.   Close(DemoFile);
  33. END;
  34.  
  35. (* ------------------------------------------------------ *)
  36. BEGIN
  37.   FillChar(DemoDaten, SizeOf(DemoDaten), 0);
  38.   ClrScr;
  39.   DatLoad;
  40.   WriteLn(DemoDaten.Vorname);
  41.   WriteLn(DemoDaten.Nachname);
  42.   WriteLn(DemoDaten.Plz);
  43.   WriteLn(DemoDaten.LongIn);
  44.   WriteLn(DemoDaten.EReal);
  45.   WriteLn(DemoDaten.Doppelt);
  46. END.
  47.