dear all,
const maxliststore=30;
strmaxlen=20;
type objecttype=string[strmaxlen];
list=record
object:array[1..maxliststore]of objecttype;
last:integer;
End;
var choice:char;
position,number:integer;
str:Objecttype;
1st:List;
procedure copyobject(var obj1,obj2:Objecttype);
begin obj1:=obj2;
end;
pr
Op Sun, 14 Jan 2007, schreef Goksie:
> dear all,
Sorry, but this code is an unreadable mess and I have no idea what this
stuff isw supposed to do. I see some things that are illegal such as
starting an identifier with a number, which you might want to fix first.
Can you please format and in
Goksie,
You could also start reading the output of the FPC compiler :) Normally it
gives hints, warning and errors where to start looking for to correct your
code. Iow don't ask for the obvious before looking yourself first.
Darius
- Original Message -
From: "Daniël Mantione" <[EMAI
