Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
28. Nov 2009
FOR j := to_slice TO i-2 DO // "< i-1 im C-Code
Danke DeddyH!
Nachdem ich nun alle Array-Grenzen und For-Loop Abbruch-Bedingungen nach Deinem Vorschlag modifiziert habe, funktionert es!
Läuft wie von der Tarantel gestochen! Vielen Dank.
Auch an die anderen hilfreichen Geister: Vielen Dank!
Kleine Zusammenfassung meines Projekts "Von C nach Delphi":
Schon ein komisches Volk, diese...
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
28. Nov 2009
Gute Idee!
Ich muß alle Arrays mal darauf überprüfen -- aber zunächst hat es noch keine Wirkung gezeigt.
Die Schleife sieht wie folgt aus:
IF i > to_slice+1 THEN
BEGIN
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
28. Nov 2009
Moin, Moin!
Mein Projekt "von C nach Delphi" ist mittlerweile von der 1:1 Übersetzung ins Stadium des Debuggens übergegangen. D.h. die Compilierung ist fehlerfrei -- aber es hackt bei dem Versuch es laufen zu lassen, und da habe ich Zweifel an meinen Übersetzungskünsten bekommen.
Vielleicht kann sich nochmal ein Experte folgendes Coding anschauen - ich zeige nur die relevante Stelle, an der...
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
27. Nov 2009
Juups - Dankeschön!
Gruß
Jazzman
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
27. Nov 2009
Hallo.
Ähm, was ist denn der "entsprechende" Wert für RAND_MAX?
Oder missverstehe ich den Hinweis?
Gruß
Jazzman
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
27. Nov 2009
Hallo!
Ein weiterer Stolperstein im Projekt C ==> Delphi:
float s; /* real random number */
s = rand()/(RAND_MAX+1.0);
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
25. Nov 2009
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)
fprintf ("Number of modules = %d\n", no_modules);
fprintf (mod_file,"%e %e %d\n", in_module.height, in_module.width, in_module.fixed);
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
24. Nov 2009
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
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
24. Nov 2009
Danke - NIL sieht tatsächlich besser aus als NULL.
Aber ich tu mich mit dem folgendem noch schwer:
treeptr Rootptr()
{
/* initialize the root of the tree */
treeptr t = (treeptr)malloc(sizeof(*t));
t->key = -1;
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
24. Nov 2009
Danke.
D.h. obiges sollte in Delphi dann so etwa aussehen:
FUNCTION Rootptr: PTreeNode; // initialize the root of the tree
VAR t : PTreeNode;
BEGIN
t := GetMem(PTreeNode, ^t);
t.key := -1;
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
24. Nov 2009
Vielen Dank an alle, aber da hätte ich noch einen :cry: :
treeptr Rootptr()
{
/* initialize the root of the tree */
treeptr t = (treeptr)malloc(sizeof(*t));
t->key = -1;
t->op = '?';
t->left = NULL;
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
24. Nov 2009
Ok- jetzt habe ich es auch verstanden :wall:
Aber, ich habe immer noch Probleme mit dem folgenden ( :oops: scuzi!):
/* Type declarations for base modules information */
typedef struct rectangle {
float area; /* rectangle area */
float height; /* rectangle height */
float width; /* rectangle width */
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
24. Nov 2009
Sorry Jungens -- aber ich verstehe eure interne Debatte nicht:
Was hat es mit:
PTreeNode = TTreeNode;
und einem (nicht) vergessenen ^ auf sich?
(bin nur ein wenig irritiert)
Danke & Gruß
Jazzman
Forum: Object-Pascal / Delphi-Language
Delphi
by Jazzman_Marburg,
24. Nov 2009
Mahlzeit!
Ich möchte einen Teil eines C-Programms nach Delphi konvertieren, aber habe Probleme mit den im C-Teil ab- und an vorkommenden Pointern. Mir ist klar, dass ich auch in Delphi Pointer direkt nutzen kann -- aber da ich sie bisher noch nie gebraucht habe (jedenfalls nicht explizit) wäre es natürlich schön, wenn ich sie nun auch vermeiden könnte.
Es geht schon los mit folgendem:
/*...