The following code returns an error saying how kom[i] is not compatible
with lin. Why?
type
line = record
...
end;
kom = array of line; // line of commands
// I have SetLength(kom,100000);
procedure FindAndDeleteLine(var komd: kom; lin: line; var found:
Boolean);
var
i: LongInt;
begin
i := Low(komd);
found := false;
while ((not (lin=komd[i])) and (i<=High(komd))) do begin
inc(i)
end;
if lin=komd[i] then begin
found := true;
DeleteLine(komd[i])
end
end;
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
