mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
39 lines
655 B
ObjectPascal
39 lines
655 B
ObjectPascal
{ %fail }
|
|
|
|
{ Source provided for Free Pascal Bug Report 3342 }
|
|
{ Submitted by "Alan Mead" on 2004-10-05 }
|
|
{ e-mail: cubrewer@yahoo.com }
|
|
{$ifdef fpc}{$MODE Delphi}{$endif}
|
|
|
|
unit tw3342;
|
|
|
|
Interface
|
|
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TAgreementMatrix = class(TObject)
|
|
private
|
|
_Count: Array[1..100,1..100] of Integer;
|
|
public
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
property Count[Row,Column:Integer]:Integer read _Count[Row,Column] write _Count[Row,Column]; default;
|
|
end;
|
|
|
|
Implementation
|
|
|
|
constructor TAgreementMatrix.Create;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
destructor TAgreementMatrix.Destroy;
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
begin
|
|
end.
|