Új hozzászólás Aktív témák

• #766 Diskcopy tag Metalwarrior #765

  Új Válasz 2005-11-17 18:58:15 #766

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Diskcopy

  tag

  válasz Metalwarrior #765 üzenetére

  Lásd milyen jó vagyok hozzád
  Megírtam egyet.. Teszteltem is.. Dbase 3-at viszi.
  Uses crt,dos;
  Type header = record
  verzio : byte;
  datum : array[1..3] of byte;
  rekordok_szama : longint;
  head_hossz : integer;
  egy_rek_hossz : byte;
  nemkell : array[1..21] of byte;
  elsoneve : string[10];
  Tipusa : char;
  end;
  Type mezok = record
  neve : array[1..11] of char;
  tipus: char;
  nemk_1,nemk_2 : integer;
  mezo_meret : byte;
  mezo_dec : byte;
  nemk2: array[1..14] of byte;
  end;
  
  var db : header;
  m : mezok;
  f : file;
  ennyitolv : integer;
  f2 : file;
  
  begin
  ClrScr;
  Assign(f,'aru.dbf');
  Reset(f,1);
  BlockRead(f,db,sizeof(db),ennyitolv);
  writeln('Dbf file verziószáma:',db.verzio);
  Writeln('Utolsó módosítás dátuma: ',1900+db.datum[1],' év ',db.datum[2],' hó ',db.datum[3]);
  Writeln('Rekordok száma:',db.rekordok_szama);
  Writeln('Fejlec hossza:',db.head_hossz);
  WritelN('Egy rekord hossza:',db.egy_rek_hossz);
  close(f);
  Writeln('-------------------------------------');
  Assign(f2,'aru.dbf');
  Reset(f2,1);
  Seek(f2,32);
  Writeln('Mezo neve Mezo Tipus Mezo hossza Mezo decimalis');
  While(m.neve[1]<>#13) do begin
  Blockread(f2,m,sizeof(m),ennyitolv);
  if (m.neve[1]=#13) then exit;
  Writeln(m.neve,' ',m.tipus,' ',m.mezo_meret:2,' ',m.mezo_dec:2);
  end;
  
  end.
  
  
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák