Umbau C nach Delphi

[yörsch]

Hai Zusammen,

Kann damit einer anfangen? Ich bin eindeutig bisser in Delphi...

Code:

char * pBuffer = (char*) new char[ iSizeOfBufferToSupply ];

Meine Übersetzung

Delphi-Quellcode:

pBuffer    : array of ^CHAR   ;
iSizeOfBufferToSupply : Integer;
...
SetLength(pBuffer,iSizeOfBufferToSupply );

und Noch einen

Code:

struct flag {
  unsigned fFlipVert;
  unsigned fFlipHori;
  unsigned fDibWidth;
  unsigned fSyncStamp; 
}

Meine Übersetzung

Delphi-Quellcode:

 flag =  packed Record
  fFlipVert : Byte;
  fFlipHori : Byte;
  fDibWidth : Byte;
  fSyncStamp: Byte;
 end;

Gruß

Jörg

[shmia]

Das lässt sich relativ elegant mit einem AnsiString lösen:

Delphi-Quellcode:

var
   buffer : Ansistring;
   pbuffer : PChar;
begin
   SetLength(buffer, iSizeOfBufferToSupply);
   pbuffer := PChar(buffer); // Zeiger auf 1. Byte

Der Vorteil in Vergleich zu new & dispose bzw. GetMem & FreeMem ist, dass du dir
über die Freigabe des Speichers keine Gedanken machen musst.

[Der_Unwissende]

Zitat von yörsch:

Code:

struct flag {
  unsigned fFlipVert;
  unsigned fFlipHori;
  unsigned fDibWidth;
  unsigned fSyncStamp; 
}

Meine Übersetzung

Delphi-Quellcode:

 flag =  packed Record
  fFlipVert : Byte;
  fFlipHori : Byte;
  fDibWidth : Byte;
  fSyncStamp: Byte;
 end;

Hi,
ich würde denken, dass deine zweite Übersetzung so nicht stimmt. Bei mir ist es dann mit C auch nicht soweit her, aber wenn ich mich nicht irre, wird ein einfaches unsigned wie ein unsigned int behandelt, es wird also die Standardgröße auf deinem System verwendet.
Entsprechend solltest Du es eher mit es eher mit

Delphi-Quellcode:

 flag =  packed Record
  fFlipVert : Integer;
  fFlipHori : Integer;
  fDibWidth : Integer;
  fSyncStamp: Integer;
 end;

übersetzen.

[yörsch]

Erstmal DANKE für Eure Antworten

[Chewie]

Zitat von Der_Unwissende:

Zitat von yörsch:

Hi,
ich würde denken, dass deine zweite Übersetzung so nicht stimmt. Bei mir ist es dann mit C auch nicht soweit her, aber wenn ich mich nicht irre, wird ein einfaches unsigned wie ein unsigned int behandelt, es wird also die Standardgröße auf deinem System verwendet.

Soweit sehe ich das auch. Aber:

Zitat von Der_Unwissende:

Entsprechend solltest Du es eher mit es eher mit

Delphi-Quellcode:

 flag =  packed Record
  fFlipVert : Integer;
  fFlipHori : Integer;
  fDibWidth : Integer;
  fSyncStamp: Integer;
 end;

übersetzen.

Wieso hier Integer? Wir reden doch von vorzeichenlosen Typen, hier wäre also nicht Integer, sondern Cardinal korrekt.

[Der_Unwissende]

Zitat von Chewie:

Wieso hier Integer? Wir reden doch von vorzeichenlosen Typen, hier wäre also nicht Integer, sondern Cardinal korrekt.

Hast natürlich recht, war ja unsigned, hüstel.