hi,

ich möchte mir einen 3D Plot erstellen und benutze dafür die TDraw3D Komponente, welche sich unter TeeChart Std befindet.

Dort möchte ich die Methode TCanvas3D.Polygon3D(TPoint3D[]) benutzen.

In die Methode muss ein Array übergeben werden des Typs Point3D. Dieser ist so weit ich das verstehe das gleiche wie der Typ point nur eben mit 3 Koordinaten.
Da Point3D allerdings nicht in Delphi als Typ hinterlegt ist erstelle ich ihn mir selbst durch:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, chart, ExtCtrls, TeeProcs, TeEngine, teedraw3d, StdCtrls, TeCanvas;

type
TPoint3D = packed record
X: Longint;
Y: Longint;
Z: Longint;
end;

zusätzlich habe ich auch mal noch versucht als ich diese function mit eingebunden hatte, da sie auch in der types.pas steht für Points:

function Point3D(X, Y, Z: Integer): TPoint3D;
begin
Result.X := X;
Result.Y := Y;
Result.Z := Z;
end;

So weit wie ich das verstanden habe, habe ich mir jetzt einen Datentyp erstellt, der vergleichbar ist mit dem vorhandenen Typ Point, allerdings drei Koordinaten besitzt, oder?

Dann definiere ich folgendes array:

array3d : array [0..5] of TPoint3d

und weiße den einzelnen Punkten noch ihre Werte zu.

Und dann rufe ich die Methode auf:

draw3d1.Canvas.Polygon3D(array3d);

mit der er nun eigentlich ein 3D Polygon erstellen sollte, oder?

Das Problem ist nun, dass beim Compilieren immer die Fehlermeldung erscheint, dass es sich um Inkompatible Typen handelt,
also array3d stimmt nicht mit dem Typ überein, der an die Methode übergeben werden soll.

Woran liegt das? Mache ich irgendwas falsch bei der Typendeklaration? Oder rufe ich die Methode falsch auf?

Ich komme nicht dahinter und habe auch schon so einiges probiert und auch leider nirgends eine Antwort gefunden...
Ich hoffe, einer von euch kann mir helfen, wäre super!

Danke schonmal euch allen!

phips

Dein Fehler ist, dass du die Datentypen selbst deklariert, anstatt die vordefinierten Typen aus der
Unit TeeProcs, TeEngine, teedraw3d, oder TeCanvas zu verwenden.
Könnte auch sein, dass du eine weitere Unit wie z.B. TeTypes einbinden musst.

Mach aus deinem Array einen Typ, also

markieren

Delphi-Quellcode:

type
  TArrayOf3D = Array [0..XXX] of TPoint3D;

var
  My3DArray : TArrayOf3D;

function foo(any3DArray: TArrayOf3D): TArrayOf3D;
begin
  Result := any3DArray;
end;

dann sollte es funktionieren.


Ändere mal bitte deinen Threadtitel in einen etwas aussagekräftigeren mit
hilfe des Editbuttons der so aus sieht: .

Danke euch für die schnelle Antwort!
Werde es gleich noch testen!