Question, C to delphi.

**LuciferS** · 08/12/2009, 08h38

Salut, j'aimerais savoir comment traduire cette partie de code.
Je n'arrive pas a imaginer la facon de le faire.
Je comprend que heightMap est un array, mais je ne comprend pas les additions.
En plus elle sont appliquer correctement au array sans utiliser the row.
Exemple heightMap[i]...
La partie que j'ai besoin d'aide est celle sou le loop for.

Code c :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
unsigned char *heightMap = NULL;
heightMap = (unsigned char*)malloc(sizeof(unsigned char) * SQR(lscHmSz + 1));
for (i = 0; i <= lscHmSz; i++) {
  memcpy(heightMap + i*(lscHmSz + 1),tgaFile->data + i*lscHmSz,lscHmSz);

Merci!

**ShaiLeTroll** · 08/12/2009, 10h29

Bon, j'espère que c'est correct

suppons que tgaFile->data est un Pointer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
  heightMap: PChar;
  lscHmSz: Cardinal; ??? ou Integer, on peut pas mapper plus de 2Go en Delphi (du moins avec mon D7)
  I: Integer;
...
begin
  heightMap := nil;
  GetMem(heightMap, SizeOf(Char) * SQR(lscHmSz + 1)); 
 
  for I := 0 to lscHmSz do
    CopyMemory(PChar(Cardinal(heightMap) + i * (lscHmSz + 1)), PChar(Cardinal(tgaFile.data) + i*lscHmSz), lscHmSz);

**Paul TOTH** · 08/12/2009, 13h43

ou encore ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
  heightMap: PChar;
  lscHmSz: Cardinal; ??? ou Integer, on peut pas mapper plus de 2Go en Delphi (du moins avec mon D7)
  I: Integer;
...
begin
  heightMap := nil;
  GetMem(heightMap, SizeOf(Char) * SQR(lscHmSz + 1)); 
 
  for I := 0 to lscHmSz do
    move(PChar(tgaFile.data)[i * lscHmSz], heightMap[i * (lscHmSz + 1)], lscHmSz);

**ShaiLeTroll** · 08/12/2009, 14h50

Tient, un message à disparu ...

Paul, très joli !
C'est vrai que c'est tout de suite plus compréhensible en Pur Tableau Delphi

Une Variante avec Inc aussi, avec lscHmSz élevée, le temps d'execution peut-être réduit, l'opérateur * étant assez lent ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  heightMap: PChar;
  PDest, PSrc: PChar; 
  lscHmSz: Cardinal; ??? ou Integer, on peut pas mapper plus de 2Go en Delphi (du moins avec mon D7)
  I: Integer;
...
begin
  heightMap := nil;
  GetMem(heightMap, SizeOf(Char) * SQR(lscHmSz + 1)); 
 
  PDest := tgaFile.data;
  PSrc := heightMap;
 
  for I := 0 to lscHmSz do
  begin
     Move(PDest^, PSrc^, lscHmSz);
     Inc(PSrc, lscHmSz);
     Inc(PDest, lscHmSz + 1); 
  end;