Скачать: CL | DM;

Вопроса по record   Найти похожие ветки 

← →
Glex ©   (2006-04-17 22:42) [0]

1) type TIntArr =
 Val: array[1..100] of integer;
 Len: integer;
 end;
var A: TIntArr;

Как сделать, чтобы конструкция вида A[i] указывала на A.Val[i]?

---

← →
Glex ©   (2006-04-17 22:43) [1]

type TIntArr = record
Val: array[1..100] of integer;
Len: integer;
end;
var A: TIntArr;

---

← →
Гаврила ©   (2006-04-17 22:48) [2]

НИкак. Это можно сделать только для классов и их свойств, а для записей и их полей нельзя.

---

← →
jack128 ©   (2006-04-18 01:54) [3]

Для Delphi2006 можно:
type
 TIntArr = record
   Val: array[1..100] of integer;
   Len: integer;
 private
   function GetVal(Index: Integer): Integer;
   procedure SetVal(Index: Integer; const Value: Integer);
 public
   property Values[Index: Integer]: Integer read GetVal write SetVal; default;
 end;

{ TIntArr }

function TIntArr.GetVal(Index: Integer): Integer;
begin
 Result := Val[Index];
end;

procedure TIntArr.SetVal(Index: Integer; const Value: Integer);
begin
 Val[Index] := Value;
end;

procedure TForm7.FormCreate(Sender: TObject);
var
 Arr: TIntArr;
begin
 Arr[10] := 20;
 ShowMessage(IntToStr(Arr.Val[10]));
end;

---

← →
Glex ©   (2006-05-02 00:15) [4]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c