Delphi-Quellcode:
type
T3DPoint = record
X, Y, Z: Double;
Value1, Value2 : Double;
end;
T3DArray = array of T3DPoint;
var
3DArray : T3DArray;
Einen neuen Punkt mit Werten legst du dann so an:
Delphi-Quellcode:
begin
SetLength(3DArray, length(3DArray)+1);
with 3DArray[length(3DArray)-1] do
begin
X := 123.456;
// usw.
end;
end;
Problem ist dann nur, wenn der Wert eines in der Array vorhandenen Punktes geändert werden soll, musst du den Array von 0 bis length(3DArray)-1 durchsuchen, um ihn wiederzufinden.