Von C nach Delphi: Benötige Hilfe

[Jazzman_Marburg]

Zitat:

GetMem(t, SizeOf(TTreeNode));

Hhmm, das wiederum führt zu:

E2010 Inkompatible Typen: 'PTreeNode' und 'procedure, untyped pointer or untyped parameter'

Da ist irgendwie der Wurm drin.

Gruß
Jazzman

[himitsu]

GetMem ist eine Prozedur

Delphi-Quellcode:

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

in Delphi beendet Result nicht die Prozedur, also braucht man keine TempVariable

Delphi-Quellcode:

FUNCTION Rootptr: PTreeNode;
BEGIN
  New(Result); 
  Result.key   := -1;
  Result.op    := '?';
  Result.left  := NIL;
  Result.right := NIL;
END;

[Jazzman_Marburg]

Hallo!

Die Übersetzung macht (dank eurer großen Hilfe) Fortschritte, aber scheitere ich schon wieder.
Kann mir das jemand nach delphianisch übersetzen?

(Statt in einen File, soll alles in eine Liste : TStringList geschrieben werden)

Code:

  fprintf ("Number of modules = %d\n", no_modules);
  fprintf (mod_file,"%e %e %d\n", in_module[i].height, in_module[i].width, in_module[i].fixed);

Für die erste Zeile habe ich es mit:
Liste.Add(FORMAT('Number of modules = %d', IntToStr(no_modules)));
versucht, aber das bringt Fehler: E2250 Es gibt keine überladene Version von 'Format', die man mit diesen Argumenten aufrufen kann

Deshalb habe ich die zweite Zeile erst garnicht erst versucht.

Eine Idee?

Danke & Gruß
Jazzman

[DeddyH]

Liste.Add(FORMAT('Number of modules = %d', [IntToStr(no_modules)])); //die eckigen Klammern nicht vergessen

[Jazzman_Marburg]

Merci.

Jazzman

[Jazzman_Marburg]

Hallo!

Ein weiterer Stolperstein im Projekt C ==> Delphi:

Code:

  float s;   /* real random number */

  s =  rand()/(RAND_MAX+1.0);

"RAND_MAX" kennt Delphi ja nicht.
Was wäre dann wohl eine korrekte Übersetzung?

Vielen Dank im voraus
Jazzman

[DeddyH]

Dann definier doch einfach eine Konstante mit dem entsprechenden Wert.

[Jazzman_Marburg]

Hallo.

Ähm, was ist denn der "entsprechende" Wert für RAND_MAX?

Oder missverstehe ich den Hinweis?

Gruß
Jazzman

[DeddyH]

const RAND_MAX = $7FFF; Zumindest bei Microsoft, beim GNU-Compiler wäre das MAXINT, wie ich in einer schnellen Recherche ermitteln konnte.

[Jazzman_Marburg]

Juups - Dankeschön!

Gruß
Jazzman