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

• #286 Szenty tag [HUN]Zolee #285

  Új Válasz 2004-09-20 19:40:08 #286

  Ú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

  

  Szenty

  tag

  válasz [HUN]Zolee #285 üzenetére

  Biztosan azért nem űködik, mert nem létezik a file, amihez appendelni akarsz.
  A program tehát (egy kis dupla ellenőrzéssel):
  
  program file_teszt;
  uses crt;
  var f : text ;
  v1,v2 : byte;
  s : string ;
  begin
  clrscr;
  assign(f, 'proba.txt');
  s:='Szoveg '; v1:=12; v2:=34;
  {$I-}
  append(f);
  {$I+}
  if (IOResult <> 0) then begin
  {$I-}
  rewrite(f);
  {$I+}
  if (IOResult <> 0) then begin
  writeln('A file nem hozhato letre!');
  halt(1);
  end;
  end;
  
  write(f,v1, v2+30);
  writeLn(f,v1, v2+7);
  
  close(f);
  readkey;
  end.
  
  [Szerkesztve]

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