Ú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]

• #764 Diskcopy tag Metalwarrior #763

  Új Válasz 2005-11-17 10:48:08 #764

  Ú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 #763 üzenetére

  Az nem mind1, hogy milyen verzióju Dbase.. fejléc infokat neten megtalálhatod google-el
  de itt egy példa is. [link]
  Amúgy meg csinálsz egy rekord tipust, ami tartalmazza az adatokat, amiket felsorol a fejléc, aztán meg beolvastatod ebbe a rekordba.
  
  [Szerkesztve]

• #761 Diskcopy tag Metalwarrior #760

  Új Válasz 2005-11-10 06:54:53 #761

  Ú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 #760 üzenetére

  function arccos(x : real) : real;
  begin
  if x < 0 then arccos := pi - arccos(-x)
  else
  if x = 0 then arccos := pi / 2
  else arccos := arctan(sqrt(1 - x * x) / x)
  end;
  
  function arcsin(x : real) : real;
  begin
  if x < 0 then arcsin := -arcsin(-x)
  else
  if x = 1 then arcsin := pi / 2
  else arcsin := arctan(x / sqrt(1 - x * x))
  end;
  
  figyelj a radiánra, illetve, a sima szögre, gondolom tudod hogy hell átváltani..
  ha mégsem, akkor Szog2Radian := szog * (pi / 180); illetve Radian2Szog := radian * (180 / pi);
  

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