Context Navigation

URemote.pas

Last change on this file was 46, checked in by chronos, 13 years ago

File size: 1.3 KB

Line
1	unit URemote;
2
3	{$mode delphi}
4
5	interface
6
7	uses
8	Classes, SysUtils;
9
10	type
11
12	{ TRemoteObject }
13
14	TRemoteObject = class
15	Id: Integer;
16	procedure Load;
17	procedure Store;
18	end;
19
20	{ TRemoteList }
21
22	TRemoteList = class
23	private
24	function GetCount: Integer;
25	function GetItem(Index: Integer): TObject;
26	procedure SetCount(AValue: Integer);
27	procedure SetItem(Index: Integer; AValue: TObject);
28	public
29	procedure Delete(Index: Integer);
30	procedure Add(Item: TObject);
31	procedure Insert(Index: Integer; Item: TObject);
32	property Items[Index: Integer]: TObject read GetItem write SetItem;
33	property Count: Integer read GetCount write SetCount;
34	end;
35
36	implementation
37
38	{ TRemoteObject }
39
40	procedure TRemoteObject.Load;
41	begin
42
43	end;
44
45	procedure TRemoteObject.Store;
46	begin
47
48	end;
49
50	{ TRemoteList }
51
52	function TRemoteList.GetCount: Integer;
53	begin
54
55	end;
56
57	function TRemoteList.GetItem(Index: Integer): TObject;
58	begin
59
60	end;
61
62	procedure TRemoteList.SetCount(AValue: Integer);
63	begin
64
65	end;
66
67	procedure TRemoteList.SetItem(Index: Integer; AValue: TObject);
68	begin
69
70	end;
71
72	procedure TRemoteList.Delete(Index: Integer);
73	begin
74
75	end;
76
77	procedure TRemoteList.Add(Item: TObject);
78	begin
79
80	end;
81
82	procedure TRemoteList.Insert(Index: Integer; Item: TObject);
83	begin
84
85	end;
86
87	end.
88

Note: See TracBrowser for help on using the repository browser.