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

• #778 Blade!!! tag

  Új Válasz 2005-11-23 22:05:39 #778

  Ú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

  

  Blade!!!

  tag

  Sziasztok!
  
  Most csinálom az első programom amit házinak kéne beadnom és egy pöttyet elakadtam az elején. File-t hoznék létre és írnék bele ezt-azt. A file-t szépen létre is hozza a program és is fut hibaüzenet nélkül, de nem ír semmi a file-ba. Konkrétan így néz ki eddig:
  
  uses crt;
  
  type t1=record
  pn :string[20];
  cdvd :string[3];
  meret, datum :integer;
  end;
  
  var v :char;
  r1 :t1;
  f1 :file of t1;
  
  Begin
  assign(f1,'c:\hf1.dat');
  rewrite(f1);
  
  Repeat
  Clrscr;
  Write('Szeretn‚l adatot bevinni? (I ha nem, N ha igen): ');
  v:=Upcase(readkey);
  WriteLn;
  Until (v='I') or (v='N');
  
  if v='I' then
  begin
  with r1 do
  begin
  Write('Program neve: '); ReadLn(pn);
  Write('CD vagy DVD? '); ReadLn(cdvd);
  Write('A program m‚rete: '); ReadLn(meret);
  Write('Beszerz‚s d tuma: (EEHHNN) '); ReadLn(datum);
  
  Write(f1,r1);
  end;
  Pr1;
  end;
  
  if v='N' then
  close(f1);
  menuir;
  
  Readkey;
  End.
  
  Örülnék, ha valaki tudna segíteni. Mert valószínüleg még ezen kívül is lesz egy két hülye kérdésem. Előre is köszönöm.
  
  
  
  
  
  [Szerkesztve]

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