1. Forum
  2. FidoNet
  3. PASCAL LESSONS

  • Error in compiling of Pascal programm

    From Rodrigo Cesar Banhara@4:801/188 to All on Sunday, September 04, 2016 22:19:41
    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;

    ... Knowledge comes, but wisdom lingers -- Alfred Lord Tennyson
    ___ MultiMail/Win32 v0.50

    --- Mystic BBS/QWK v1.12 A31 (Windows)
    * Origin: Saturn's Orbit BBS * Running Mystic * Brazil (4:801/188)
  • From Rodrigo Cesar Banhara@4:801/188 to All on Sunday, September 04, 2016 22:37:38
    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;

    ... Knowledge comes, but wisdom lingers -- Alfred Lord Tennyson
    ___ MultiMail/Win32 v0.50

    --- Mystic BBS/QWK v1.12 A31 (Windows)
    * Origin: Saturn's Orbit BBS * Running Mystic * Brazil (4:801/188)
  • From Rodrigo Cesar Banhara@4:801/188 to All on Sunday, September 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;

    ... Knowledge comes, but wisdom lingers -- Alfred Lord Tennyson
    ___ MultiMail/Win32 v0.50

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