pearl@porthos.rutgers.edu (Starbuck) (10/07/88)
Hello!
There seems to be some compatability problems between the old
MacPascal and the new Lightspeed Pascal, which is rather odd,
considering they were supposed to be 100% source code compatible.
Maybe someone can tell me whats wrong.
I work at a Academic Computing center where they have copies on LS
Pascal installed on a server for the Intro to CS cources but Rutgers
hasn't seen fit to give us copies of the manuals.
The following statement runs prefectly well under MacPascal but gives
the following error under Lightspeed:
"Type incompatability between an actual and formal value parameter"
The offending line is the IF statement in the following code fragment.
Everything is declared properly and it DOES run under MacPascal.
('inpt' and 'temp' are strings, 'loop' is an integer, and 'null' is a
constant for the null string '') The purpose of this function is to
remove any non-uppercase-alphabetical characters from a string.
#########
inpt := temp;
temp := null;
for loop := 1 to length(inpt) do
begin
if (ord(copy(inpt, loop, 1)) >= 65) and (ord(copy(inpt, loop, 1))
<= 90) then
temp := concat(temp, copy(inpt, loop, 1));
end;{loop}
#########
Any suggestions???
Thanks,
Steve
Stephen Pearl (Starbuck) Work: (201)932-2443 Home: (201)246-3927
UUCP: rutgers!aramis.rutgers.edu!pearl ARPA: pearl@aramis.rutgers.edu
US MAIL: LPO 12749 CN 5064, New Brunswick, NJ 08903
QUOTES: "What is Starbuck-ing?" -Adultress 19
"Works for me!" -Rick Hunter (The Cop, not the Robotech Defender)