Von C nach Delphi: Benötige Hilfe

[Uwe Raabe]

Zitat von Jazzman_Marburg:

Was hat es mit dem abschließenden base_rectangle auf sich?

In C wird damit gleich eine Variable dieses Typs deklariert.

Delphi-Quellcode:

type
  Float = Single; // oder Double? Vergess ich immer wieder
  TRectangle = record  // hier müsste man eventuell noch das Align anpassen
    area: float;     
    height: float;   
    width: float;    
    fixed: Integer;     
    ptr: TTreeNode;    // oder wie der Typ bei dir nun heißt
  end;

var
  base_rectangle: TRectangle;

[Mithrandir]

Zitat von Uwe Raabe:

Delphi-Quellcode:

type
  Float = Single; // oder Double? Vergess ich immer wieder
  TRectangle = record  // hier müsste man eventuell noch das Align anpassen
    {...}
    ptr: PTreeNode;    // oder wie der Typ bei dir nun heißt <--- Dit is n Pointer... *g*
  end;

var
  base_rectangle: TRectangle;

[Uwe Raabe]

Zitat von Daniel G:

    ptr: PTreeNode; // oder wie der Typ bei dir nun heißt <--- Dit is n Pointer... *g*

Stimmt, hatte irgendwie TTreeNode als class im Sinn. Wie komm ich bloß darauf...

[Jazzman_Marburg]

Vielen Dank an alle, aber da hätte ich noch einen :

Delphi-Quellcode:

treeptr Rootptr()
{
/* initialize the root of the tree */
   treeptr t = (treeptr)malloc(sizeof(*t));
   t->key = -1;
   t->op = '?';
   t->left = NULL;
   t->right = NULL;
   return t;
}

Lauter Böhmische-Döfer...

Lieben Dank
Jazzman

[himitsu]

malloc ist soviel wie GetMem, wobei hier New sich hier auch gut machen würde.

-> entspricht dem .

[Medium]

Genauer genommen entspricht "->" "^.", aber Delphi dereferenziert glaub ich bei typisierten Pointern implizit.

[Jazzman_Marburg]

Danke.

D.h. obiges sollte in Delphi dann so etwa aussehen:

Delphi-Quellcode:

FUNCTION Rootptr: PTreeNode; // initialize the root of the tree
VAR t : PTreeNode;
BEGIN
  t       := GetMem(PTreeNode, ^t);
  t.key   := -1;
  t.op    := '?';
  t.left  := NULL;
  t.right := NULL;
  Result  := t;
END;

Vielen Dank
Jazzman

[Uwe Raabe]

Statt NULL solltest du besser nil nehmen. Null ist als function deklariert, die einen Null-Variant zurückgibt.

[Jazzman_Marburg]

Danke - NIL sieht tatsächlich besser aus als NULL.

Aber ich tu mich mit dem folgendem noch schwer:

Code:

treeptr Rootptr()
{
/* initialize the root of the tree */
   treeptr t = (treeptr)malloc(sizeof(*t));
   t->key = -1;
   t->op = '?';
   t->left = NULL;
   t->right = NULL;
   return t;
}

Da sieht mir mein GetMem irgendwie nicht korrekt aus -- und der Compiler meldet in dieser Zeile ein:
Fehler '(' erwartet, aber ',' gefunden
Hier nochmal meine 'Übersetzung':

Delphi-Quellcode:

FUNCTION Rootptr: PTreeNode;
VAR t : PTreeNode;
BEGIN
  t       := GetMem(PTreeNode, SizeOf(^t));  
  t.key   := -1;
  t.op    := '?';
  t.left  := NIL;
  t.right := NIL;
  Result  := t;
END;

Vielleicht jemand eine Idee?

Gruß
Jazzman

[wicht]

GetMem(t, SizeOf(TTreeNode));