Subj : Error in compiling of Pascal programm
To : All
From : Rodrigo Cesar Banhara
Date : Sun Sep 04 2016 10:37 pm
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
