Hallo Lee,
tja, dann fehlt da vielleicht irgendwo ein Semikolon.
Ich habe das mal getestet mit nachstehender Prozedur.
Wundere dich nicht, dass die auch Test heißt. (Bei mir gibt es in jedem Projekt eine Prozedur "Test" (zum Testen, wie der Name sagt.)).
Zu
Meine Frage: es ist ganz klar, dass Dreiecke[i] ein Zeiger auf ein TDreieck ist. Aber was ist denn hDreieck(Dreiecke[i])? Also hDreieck(ein Zeiger auf ein TDreieck ) ist auch ein Zeiger auf ein TDreieck? Ich bin verwirrt.
Nein, es ist eben nicht ganz klar, dass Dreiecke[i] ein Zeiger auf ein TDreieck ist.
Das weißt du, nicht aber der Compiler, denn TList ist einfach nur eine Liste mit Pointern.
Dadurch dass du die TList "Dreiecke" nennst, wird Dreiecke[i] für den Compiler nicht zu einem Zeiger auf ein TDreieck.
Erst durch hDreieck(Dreiecke[i]) wird der Pointer zu einem Pointer auf ein TDreieck.
Und mit dem ' ^ ' dahinter 'weiß' der Compiler, dass er auf einen Record TDreieck zugreifen soll.
OT : Wenn du die Variable "Dreiecke" umbenennst in "Kirchturmuhr" wird daraus ja auch kein Zeiger einer Uhr.
Delphi-Quellcode:
type
TVektor = record
x, y, z: real;
end;
TDreieck = record
n: TVektor; // n ist Normalvektor
p: array[1..3] of TVektor; //p hat Koordinaten von 3 Eckpunkten
end;
hDreieck=^TDreieck;
var
Dreiecke:TList;
PROCEDURE TMain.Test;
var i,j:integer; pDreieck:hDreieck; list:TStrings; s:string;
begin
Dreiecke:=TList.Create;
for i:=1 to 3 do begin
New(pDreieck);
pDreieck.n.x:=i*100+1;
pDreieck.n.y:=i*100+2;
pDreieck.n.z:=i*100+3;
for j:=1 to 3 do begin
pDreieck.p[j].x:=i*100+j*10+1;
pDreieck.p[j].y:=i*100+j*10+2;
pDreieck.p[j].z:=i*100+j*10+3;
end;
Dreiecke.Add(pDreieck);
end;
list:=TStringList.Create;
for i:=0 to Dreiecke.Count-1 do
with hDreieck(Dreiecke[i])^ do begin
list.Add('n '+
FloatToStr(n.x)+' '+FloatToStr(n.y)+' '+FloatToStr(n.z));
for j:=1 to 3 do
list.Add('p['+IntToStr(j)+'] : '+
FloatToStr(p[j].x)+' '+FloatToStr(p[j].y)+' '+FloatToStr(p[j].z));
list.Add('');
end;
list.SaveToFile('Log.txt');
list.Free;
for i:=0 to Dreiecke.Count-1 do Dispose(Dreiecke[i]);
Dreiecke.Free;
end;
Das Ergebis in Log.txt :
Code:
n 101 102 103
p[1] : 111 112 113
p[2] : 121 122 123
p[3] : 131 132 133
n 201 202 203
p[1] : 211 212 213
p[2] : 221 222 223
p[3] : 231 232 233
n 301 302 303
p[1] : 311 312 313
p[2] : 321 322 323
p[3] : 331 332 333