Cpp nach Delphi übersetzung

[Horst0815]

folgenden Cpp Code

Code:

if ((err = LoadWSOfile((flge == errnone ? iFileLength - Size_XYZ_file : iFileLength))) == errnone)

hab ich zu

Delphi-Quellcode:

err :=  LoadWSOfile(flge);
if flge = Integer(errnone) then flge := iFileLength - Size_XYZ_file else flge := iFileLength;
 if err = Integer(errnone) then

Übersetzt, scheint aber falsch zu sein

[frankyboy1974]

hallo,

ich würde das so lesen

Delphi-Quellcode:

if flge = errnone then
  err:= LoadWSOfile(iFileLength - Size_XYZ_file)
else
  err:= LoadWSOfile(iFileLength);
if err= errnone then

mfg

[uligerhardt]

Die Fallunterscheidung gehört doch in den Parameter von LoadWSOFile, nicht außerhalb des Aufruf. (Wenn ich mich bei den Klammern nicht verzählt habe. )
Siehe frankys Post.

[Horst0815]

Dankeschön

und welcher Datentyp ist das eigentlich

Code:

byte *SMSign[2] = {SMSign0, SMPign1};

ein PByte-Array? weil

Code:

byte SMSign0[] = "ein string";
byte SMSign1[] = "noch ein string";

[TiGü]

Zitat von Horst0815:

und welcher Datentyp ist das eigentlich ein PByte-Array?

array of PByte?
PByte = ^Byte?

[Horst0815]

wie übersetz ichs dann?

[Der schöne Günther]

Du wirst in deinem C-Code irgendwo wohl etwas wie

Code:

typedef unsigned char byte;

drin haben, oder?

Ich glaube an einfachsten fährst du nicht mit Byte Char-Arrays, sondern dem Delphi-Typen PChar bzw. in diesem Fall wohl PAnsiChar .

[Horst0815]

in der Tat

Code:

#define dword unsigned int
#define word unsigned short

aber nix mit byte


ja hatte es bisher mit PChar umgesetzt wollt nur sicher gehen

[Der schöne Günther]

Das define/typedef kommt möglicherweise aus einem Import. Aber es geht doch um ein Delphi in welchem ein Char größer als ein Byte ist, richtig? Dann wäre PAnsiChar doch das richtige.

[mensch72]

mein Delphi ab 2007 kennt PByteArray, was man überall wo in Cpp mit BYTE* gearbeitet wird in Delphi verwenden kann.

Da in CPP gerne mit BYTE Arrays für normale nicht UniCode Zeichenketten(= Zeichenarrays) gearbeitet wird, sollte man bei CPP->Delphi Vorhaben sich mal solche 3 Hilfsfunktionen in Delphi basteln. Ich habe das schmutzig für UniCode XE selbst per jedem 2. Byte gelöst, weil ich leider noch kein auf für FMX OutOfTheBox portables Beispiel für Delphi UnicodeString <-> UTF8ByteArray gefunden habe. TEncoding wäre da ja dafür wohl gedacht, aber ich habe es noch nicht geschafft, meine 3 simplen Funktionen per TEncoding zu realisieren...

function TXTstringToPByteArray(const value:string; const baUTF8 : PByteArray; const maxlen:Integer):Integer;
function PByteArrayToTXTstring(var value:string; const baUTF8 : PByteArray; const maxlen:Integer):Integer; overload;
function PByteArrayToTXTstring(const baUTF8 : PByteArray; const maxlen:Integer):string; overload;

Sollte es jemanden geben, der die paar Zeilen mit TEncoding für UniCodeString<->UTF8ByteArray griffbereit oder im Gedächtnis hat, wäre das auch hier sicher helfen