Subj : Error compiling this source in Pascal
To   : All
From : Rodrigo Cesar Banhara
Date : Sun Sep 04 2016 22:41:16

How to overcome this error on Lazarus?

This is the error generated by Lazarus:
Compile Project, Target:
C:\Users\APOMET~1\AppData\Local\Temp\nsg7EC2.tmp\ContainedTemp\project1.exe:
Exit code 1, Errors: 1
unit.pas(27,0) Error: Can't open resource file
"C:\Users\APOMET~1\AppData\Local\Temp\nsg7EC2.tmp\ContainedTemp\unit1.lfm

And this is the source I used:

procedure oneliners;

var  Twriters  : array[1..10] of string;
var  Toneliner : array[1..10] of string;
var  S         : string;
var  Foneline  : string;
var  Ch1       : char;
var  Ch2       : char;
var  Ch3       : char;
var Count      : byte;

Begin
  printf('oneh.ans');
  For Count := 1 To 10 Do Begin;
    write('^[[1;37m+ ^[[0;37m');
    write(Twriters[Count]);
    write('^[[1;30m: ^[[0;37m');
    WriteLn(Toneliner[Count]);
  End;
End; // show

Procedure init;

Var f1 : textfile;
var Count : byte;

Begin
  fOneLine := ('F:\BBS\mmwin050\TAGLINES');
  If Not fileExists(fOneLine) Then Begin
    Assign(f1, fOneLine);
    ReWrite(f1);
    For Count := 1 To 10 Do Begin
      WriteLn(f1,'Ia! Cthulhu!');
      WriteLn(f1,'IGNATIUS');
    End;
    Close(f1);
  End;

  Assign(f1, fOneLine);
    Reset(f1);
    If IoResult = 0 Then Begin
      For Count := 1 To 10 Do Begin
        ReadLn(f1, Toneliner[Count]);
       ReadLn(f1, Twriters[Count]);
      End;
    Close(f1);
  End;
End; // Init

Procedure bot_bar;
Begin
  printf('onen.ans');
  Ch2 := ReadKey;
  If Ch2 = #13 then Begin
    exit;
  End;
  show;
End; // bot_bar


Procedure top_bar;

Var f1 : textfile;
var Count : byte;
var ch3 : char;


Begin
  printf('oney.ans');
  Ch3 := ReadKey;
  If Ch3 = #13 then Begin
    printf('oneline.asc');
    Write('^[[3;3H');
    inputl(s,70);
    If s = '' then Begin
      WriteLn('^[[1;30maborted^[[0;37m');
      show;
      Exit;
    End;
    For Count := 1 To 9 Do Begin
      Count2 := Count + 1;
      Toneliner[Count] := Toneliner[Count2];
      Twriters[Count] := Twriters[Count2];
    End;

    tWriters[10]:=thisuser.name;
    tOneTo 10 do Begin
      WriteLn(f1,tOneliner[Count]);
      WriteLn(f1,tWriters[Count]);
    End;
    Close(f1);
  End;
  show;
End; // top_bar

Procedure position;

Begin
  show;
  Repeat
  printf('onen.ans');
  ch1:=ReadKey;
      case ch1 of
      #0 : begin
             ch1:=ReadKey;
             case ch1 of
             #80 : bot_bar;
             #72 : top_bar;
             #75 : top_bar;
             #77 : bot_bar;
             end;
           end;
      end;
  until ch1=#13
end;


Begin
  init;
  Position;
End;

.... Amnesia and Deja-Vu: You forgot this happened before.
___ MultiMail/Win32 v0.50

--- Mystic BBS/QWK v1.12 A31 (Windows)
 * Origin: Saturn's Orbit BBS * Running Mystic * Brazil (4:801/188)

.