Hi,
hab mal ne Frage...
Ich muß ganz ehrlich zugeben das ich bisher NIE nen Pointer verwendet habe..
Deswegen mal eine frage, ein Pointer ist doch eine Variable in der auf eine andere Variable gezeigt wird, ja???
Wenn ich nun eine Variable "MyObject" habe, welche vom Typ ein Record ist, und einen "Array of Pointer".
Verwenden tue ich das so:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
| type
TObjects = Record
[...]
end;
var
MyObject: TObjects;
Pointers: Array of Pointer;
procedure Add(Obj: TObjects);
begin
SetLength(Pointers,Length(Pointers)+1);
Pointers[High(Pointers)]:= ...
//Hier soll jetzt ein Pointer auf das Objekt welches übergeben wird
//gesetzt werden, wie?
end;
procedure Main;
var
i: Integer;
begin
for i:=Low(Pointers) to High(Pointers) do
Check(Pointers[i]);
// Die Procedure Check verlang als übergabe Parameter ein TObjects!
end; |
Das ist nur nen grobes beispiel, bitte nich nach dem sinn fragen.. hat hier in dem beispiel keinen *gg*
Au'revoir,
Aya~
