Please check This Unit... - Pascal - Forums at ProgrammersHeaven.com

Pascal

Moderators: None (Apply to moderate this forum)

Number of threads: 4106
Number of posts: 14016

With full replies

Topics only

Pascal

Forum Info

This Forum Only

Single Post View Linear View Threaded View f

Printer Friendly

RSS Feed

Please check This Unit... Posted by godsfantasy on 29 Apr 2004 at 6:53 AM

Greetings,

Question 1:
How come when I read other ppl's code, I can't seem to understand them? There are just syntax which I neve saw before...

Question 2:
Well, below is a unit which I'm unable to get running. My compiler keeps on telling me about this error at the end of file, but I can't seem to see the error myself... Please, if anyone does see the error, please tell me what it is.

unit menuselection;

interface
procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);

implementation

uses crt;

procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);

var iupcount, idowncount, ileftcount, irightcout : integer;
var ch : char;

begin
repeat
ch := readkey;
gotoxy (iintx, iinty);
writeln ('*');

if ch = #72 then {down}
begin
if idown = 1 then
begin
gotoxy (iintx, iinty);
writeln (' ');
iinty := iinty + 1;
end
else
begin
end;
end
else if ch = #75 then {left}
begin
if ileft = 1 then
begin
gotoxy (iintx, iinty);
writeln (' ');
iintx := iintx - 1;
end
else
begin
end;
end
else if ch = #77 then {right}
begin
if iright = 1 then
begin
gotoxy (iintx, iinty);
writeln (' ');
iintx := iintx + 1;
end
else
begin
end;
end
else if ch = #80 then {up}
begin
if iup = 1 then
begin
gotoxy (iintx, iinty);
writeln (' ');
iinty := iinty - 1;
end
else
begin
end;
end
else
begin
end;

repeat until ch = #13;

if ch = #13 then
begin
end;

end;

Share By Email

Re: Please check This Unit... Posted by Manning on 29 Apr 2004 at 12:53 PM

: unit menuselection;
: 
: interface
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
: 
: implementation
: 
: uses crt;
: 
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
: 
: var iupcount, idowncount, ileftcount, irightcout : integer;
: var ch : char;
: 
: begin
:       repeat
:       ch := readkey;
: gotoxy (iintx, iinty);
: writeln ('*');
: 
:         if ch = #72 then           {down}
:            begin
:                 if idown = 1 then
:                    begin
:                         gotoxy (iintx, iinty);
:                         writeln (' ');
:                         iinty := iinty + 1;
:                    end
:                 else
:                    begin
:                    end;
:            end
:         else if ch = #75 then        {left}
:              begin
:                   if ileft = 1 then
:                      begin
:                           gotoxy (iintx, iinty);
:                           writeln (' ');
:                           iintx := iintx - 1;
:                      end
:                   else
:                       begin
:                       end;
:              end
:         else if ch = #77 then        {right}
:              begin
:                   if iright = 1 then
:                      begin
:                           gotoxy (iintx, iinty);
:                           writeln (' ');
:                           iintx := iintx + 1;
:                      end
:                   else
:                       begin
:                       end;
:              end
:         else if ch = #80 then        {up}
:              begin
:                   if iup = 1 then
:                      begin
:                           gotoxy (iintx, iinty);
:                           writeln (' ');
:                           iinty := iinty - 1;
:                      end
:                   else
:                       begin
:                       end;
:              end
:         else
:             begin
:             end;
: 
: repeat until ch = #13;
: 
:        if ch = #13 then
:           begin
:           end;
: 
: end;
:

Maybe you could point to the line with the error, and give the error message?

Share By Email

Re: Please check This Unit... Posted by Phat Nat on 29 Apr 2004 at 7:15 PM

: unit menuselection;
: 
: interface
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
: 
: implementation
: 
: uses crt;
: 
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
: 
: var iupcount, idowncount, ileftcount, irightcout : integer;
: var ch : char;
: 
: begin
:       repeat
:       ch := readkey;
: gotoxy (iintx, iinty);
: writeln ('*');
: 
:         if ch = #72 then           {down}
:            begin
:                 if idown = 1 then
:                    begin
:                         gotoxy (iintx, iinty);
:                         writeln (' ');
:                         iinty := iinty + 1;
:                    end
:                 else
:                    begin
:                    end;
:            end
:         else if ch = #75 then        {left}
:              begin
:                   if ileft = 1 then
:                      begin
:                           gotoxy (iintx, iinty);
:                           writeln (' ');
:                           iintx := iintx - 1;
:                      end
:                   else
:                       begin
:                       end;
:              end
:         else if ch = #77 then        {right}
:              begin
:                   if iright = 1 then
:                      begin
:                           gotoxy (iintx, iinty);
:                           writeln (' ');
:                           iintx := iintx + 1;
:                      end
:                   else
:                       begin
:                       end;
:              end
:         else if ch = #80 then        {up}
:              begin
:                   if iup = 1 then
:                      begin
:                           gotoxy (iintx, iinty);
:                           writeln (' ');
:                           iinty := iinty - 1;
:                      end
:                   else
:                       begin
:                       end;
:              end
:         else
:             begin
:             end;
: 
: repeat until ch = #13;
: 
:        if ch = #13 then
:           begin
:           end;
: 
: end;
 Begin
 End.

You need to have a main procedure in Units, even if there is nothing contained in it. Anything in here is run immediately when the program is loaded (before the main program's Main procedure)

Phat Nat

Share By Email

Re: Please check This Unit... Posted by TGPmielu on 25 May 2004 at 9:17 AM

The name of the unit must be the same as the name of the file wer the unit code will be compiled. In MS-DOS a file can only be for 8 chars long.
At your unit you should try to rename it from
menuselection -> "menusel" and save it in a file named "menusel".

Share By Email

Re: Please check This Unit... Posted by Martin626 on 18 Oct 2004 at 1:09 PM

: Greetings,
:
: Question 1:
: How come when I read other ppl's code, I can't seem to understand them? There are just syntax which I neve saw before...
:
: Question 2:
: Well, below is a unit which I'm unable to get running. My compiler keeps on telling me about this error at the end of file, but I can't seem to see the error myself... Please, if anyone does see the error, please tell me what it is.
:
:
: unit menuselection;
:
: interface
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
:
: implementation
:
: uses crt;
:
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
:
: var iupcount, idowncount, ileftcount, irightcout : integer;
: var ch : char;
:
: begin
: repeat
: ch := readkey;

: gotoxy (iintx, iinty);
: writeln ('*');
:
: if ch = #72 then {down}
: begin
: if idown = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: inty := iinty + 1;
: end
: else
: begin
: end;
: end
: else
if ch = #75 then {left}
: begin
: if ileft = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: iintx := iintx - 1;
: end
: else
: begin
: end;
: end
: else
if ch = #77 then {right}
: begin
: if iright = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: iintx := iintx + 1;
: end
: else
: begin
: end;
: end
: else
if ch = #80 then {up}
: begin
: if iup = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: iinty := iinty - 1;
: end
: else
: begin
: end;
: end
: else
: begin
: end;
:
: repeat until ch = #13;
:
: if ch = #13 then
: begin
: end;
:
: end;
:
:
:
: The only thing that I can see wrong with this program is you forgot to put an [ end. ] at the end of your unit. See below to see corrected code.

:
: unit menuselection;
:
: interface
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
:
: implementation
:
: uses crt;
:
: procedure menuselection (var iup, idown, ileft, iright, iintx, iinty, iformat, isummon : integer);
:
: var iupcount, idowncount, ileftcount, irightcout : integer;
: var ch : char;
:
: begin
: repeat
: ch := readkey;

: gotoxy (iintx, iinty);
: writeln ('*');
:
: if ch = #72 then {down}
: begin
: if idown = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: inty := iinty + 1;
: end
: else
: begin
: end;
: end
: else
if ch = #75 then {left}
: begin
: if ileft = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: iintx := iintx - 1;
: end
: else
: begin
: end;
: end
: else
if ch = #77 then {right}
: begin
: if iright = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: iintx := iintx + 1;
: end
: else
: begin
: end;
: end
: else
if ch = #80 then {up}
: begin
: if iup = 1 then
: begin
: gotoxy (iintx, iinty);
: writeln (' ');
: iinty := iinty - 1;
: end
: else
: begin
: end;
: end
: else
: begin
: end;
:
: repeat until ch = #13;
:
: if ch = #13 then
: begin
: end;
:
: end;
: end. <- put [ end. ] here
:

Share By Email

Pascal

Recent Jobs