- Код: Выделить всё
TSheme=class(TObject)
FCountShemeItem:integer;
FKeyShemeX:array of TKeySheme;
FCommandText:TStringList;
procedure SetComandSt(value:tStringList);
public
constructor Create;
destructor Destroy;override;
........................
function GetKeyShemeX(Number:integer):TKeySheme;
procedure SetKeyShemeX(Number:integer;KeySheme:TKeySheme);
............................
published
property CountItem:Integer read fContitem;
property CountSheme:integer read FCountShemeItem;
property CommandList:TStringList read FCommandText;
end;
function TSheme.GetKeyShemeX(Number:integer):TKeySheme;
begin
GetKeyShemeX.X:=FKeyShemeX[Number].X;
GetKeyShemeX.Y:=FKeyShemeX[Number].Y;
GetKeyShemeX.H:=FKeyShemeX[Number].H;
GetKeyShemeX.W:=FKeyShemeX[Number].W;
GetKeyShemeX.Tag:=FKeyShemeX[Number].Tag;
GetKeyShemeX.KeyItemSheme:=FKeyShemeX[Number].KeyItemSheme;
end;
используется в виде
- Код: Выделить всё
var
LSK:TKeySheme;
begin
...........
lsk:=Sheme.GetKeyShemeX(i);
....................
Компилируется и собирается в обоих без проблем но если в 0.9.21 код возвращает значение то в 0.9.23 нет....... это бага или фича ?
если кому интересно могу кинуть исходиникики для проверки у мента тока как получается или .....