Recent

Author Topic: SOLVED by Handoko // Help, some OLD code  (Read 5994 times)

juanirias

  • Full Member
  • ***
  • Posts: 100
Re: Help, some OLD code
« Reply #15 on: September 19, 2018, 06:43:18 pm »
Thanks in advance!

Attached in ZIP

regards, JUAN

Handoko

  • Hero Member
  • *****
  • Posts: 5122
  • My goal: build my own game engine using Lazarus
Re: Help, some OLD code
« Reply #16 on: September 19, 2018, 06:53:15 pm »
Still cannot compile the program. It needs AstUtil.pas.

juanirias

  • Full Member
  • ***
  • Posts: 100
Re: Help, some OLD code
« Reply #17 on: September 19, 2018, 06:54:22 pm »
Sorry...

Handoko

  • Hero Member
  • *****
  • Posts: 5122
  • My goal: build my own game engine using Lazarus
Re: Help, some OLD code
« Reply #18 on: September 19, 2018, 07:20:46 pm »
I got Runtime Error(2) on the Reset below:
Code: Pascal  [Select][+][-]
  1.      ASSIGN( TimeFile,FileN1 );
  2.      RESET( TimeFile);

It happened because you forget to put this before the Assign command:
Code: Pascal  [Select][+][-]
  1.      FileN1 := 'in.dat';



And I got Runtime Error(103) on the Writeln below:
Code: Pascal  [Select][+][-]
  1.          WriteLn( FileOut,Error,JD:18:12,' too far' );

It happened because you forget to call Assign, give it a proper filename and call Rewrite:
Code: Pascal  [Select][+][-]
  1.      Assign(FileOut, 'out.dat');
  2.      Rewrite(FileOut);

juanirias

  • Full Member
  • ***
  • Posts: 100
Re: Help, some OLD code
« Reply #19 on: September 19, 2018, 07:32:00 pm »
Thanks!
You are good!  :D

 

TinyPortal © 2005-2018