C Code in Delphi?

[milchbrötchen]

Guten Abend zusammen,
ich habe den unten stehenden Beispielquelltext in C.
"einfuegen" ist eine Procedure aus einer dll-Datei, die ich jetzt aus meinem Delphiprogramm aufrufen möchte.
Ich komme aber leider nicht mit den ganzen * und & klar :?
Wie müssen also die mittleren 5 Zeilen in Delphi aussehen?
Vielen Dank für die Hilfe :)

Code:

char db[10];
char eingabe[32];

char ergebnis[32];
char * erg_ptr;
char ** erg_ptr_ptr;
erg_ptr = &ergebnis[0];
erg_ptr_ptr = &erg_ptr;

einfuegen(db, eingabe, erg_ptr_ptr);

[himitsu]

So Einiges kann man sich aber aus den Namen ableiten.

Zitat:

Code:

erg_ptr_ptr = &erg_ptr;

Delphi-Quellcode:

erg_ptr_ptr := @erg_ptr;

:zwinker:

und die * sind jeweils eine Zeigerreferenz, also je ein "^".

Zitat:

Code:

char * erg_ptr;
char ** erg_ptr_ptr;

Delphi-Quellcode:

erg_ptr: ^AnsiChar;
erg_ptr_ptr: ^^AnsiChar;

aka

Delphi-Quellcode:

erg_ptr: PAnsiChar;
erg_ptr_ptr: ^erg_ptr;  // oder PPAnsiChar, bzw ^PAnsiChar

[implementation]

Delphi-Quellcode:

var
// char ergebnis[32];
  Ergebnis: array[0..31] of char;
// char * erg_ptr;
  erg_ptr: PChar;
// char ** erg_ptr_ptr;
  erg_ptr_ptr: PPChar;
begin
// erg_ptr = &ergebnis[0];
  erg_ptr := @ergebnis[0];
// erg_ptr_ptr = &erg_ptr;
  erg_ptr := @erg_ptr;
  ...
end;

[himitsu]

Da CHAR eigentlich ein Byte, bzw. PAnsiChar ist, sollte es besser auch so definiert werden ... vorallem da der TE seine Delphi-Version verheimlicht. (ab D2009 gibt es sonst Probleme)


:gruebel:

Delphi-Quellcode:

var
  db: array[0..9] of AnsiChar;
  eingabe: array[0..31] of AnsiChar;
  ergebnis: array[0..31] of AnsiChar;
  erg_ptr: PAnsiChar;
  erg_ptr_ptr: ^erg_ptr;

//erg_ptr := @ergebnis[0];
//erg_ptr_ptr := @erg_ptr;
//einfuegen(db, eingabe, erg_ptr_ptr); 
einfuegen(db, eingabe, @@ergebnis[0]);