Discussion :

[Pigoulou]

Bonjour,

Je ne connais pas la programmation en C.

Je cherche à traduire un algorithme C en pascal.

L'algorithme contient comme données des pointeurs sur chaine de caracteres.
char * Chaine1;

Et passe cette chaine à une fonction priori en passant le pointeur :
Convertir(&Chaine1).

La déclaration de la fonction convertir en pascal est donc :
function Convertir(Chaine1: Pchar);


Mais comment définir la variable Chaine1 dans le programme pascal? Je crois qu'en C les chaines de caracteres sont caractérisées par un zéro terminal. Ce qui n'est pas le cas des chaines "string" en pascal.

Merci pour votre aide.

Pigoulou.

[Alcatîz]

Bonjour !

En général, les chaînes AZT sont déclarées en Pascal sous la forme

Code :

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

Array [0..xx] of Char;

Je ne sais pas comment ton code est rédigé mais tu pourrais peut-être utiliser la fonction StrPCopy ?

[Eric Sigoillot]

En général, les chaînes AZT (dites chaîne ASCIIZ) sont représentées en Pascal par le type PChar.

On a donc char * équivalent à PChar (le type PChar est un pointeur et est défini de manière simple comme PChar = ^Char : c'est donc strictement la même chose).

Vu l'appel de ta fonction, je traduirais plus comme ceci :

Code :

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

1
2
 
procedure Convertir(var S: PChar);

Et l'appel se ferait comme ça :

Code :

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

1
2
3
4
5
6
7
 
var
  Chaine1: PChar;
begin
  ...
  Convertir(Chaine1);
  ...

La formulation que propose Alcatîz est utile pour passer du type string au type PChar. Mais si tu utilises directement les PChar, ce problème ne se pose plus.

Attention toutefois, les PChar se comportement exactement comme en C, il faut bien penser à les allouer avec GetMem et à les libérer avec FreeMem.
Cet inconvénient n'existe bien entendu pas avec les tring et les tableaux de caractères.

A noter que la fonction StrPCopy se situe dans l'unité Strings sous Turbo Pascal et dans l'unité SysUtils sous Delphi.

@++

[Pigoulou]

merci pour toutes ces infos