Show quoted text 14 lines
procedure TTestTIBaseObject.ValidFail1;
var
LO : TtiBaseObject;
begin
LO := TtiBaseObject(Random(20000)+2000);
writeln(' here we start'); // debug line
LO.TestValid(False); // <========== AV occurs here
writeln('passed 1'); // debug line
// check(not LO.TestValid(False));
writeln('passed 2'); // debug line
end;
Here is a variation of the test above and it also never works under FPC, but does under Delphi.
procedure TTestTIBaseObject.ValidFail2;
var
LO : TtiBaseObject;
begin
LO:= TtiBaseObject.Create;
LO.free;
{$IFNDEF FPC}
check(not LO.TestValid);
{$ELSE}
check(True, 'FPC does not support this.');
{$ENDIF}
end;Regards,
- Graeme -
_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://opensoft.homeip.net/fpgui/