Discussion :

[Rayek]

Bonjour,

J'ai une structure de ce type

Code :

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

1
2
3
4
5
6
7
8
9
 
type TMaStruct = Record
  Case integer of
    0: (AdrComplet : String[10]);
    1:(
        Adr1 : Array [0..4] of Ansichar;
        Adr2 : array [0..4] of AnsiChar;
    );
end;

Le problème c'est quand j'affiche Adr1, j'ai un caractère au début qui ne correspond pas a ce que j'attend

Code :

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

1
2
3
4
5
6
7
8
 
var
  MaStruct : TMaStruct;
begin
  MaStruct.AdrComplet := '01234567890';
 
  Showmessage(MaStruct.Adr1 + ' - ' + MaStruct.Adr2);
end;

Est ce du au fait que le string à en 0 ( ou + ?) le nombre de caractères qui rempli sa ligne ?
Dois je prendre un autre type que le String (Pas un array de préférence) ?

Merci

[ShaiLeTroll]

Code :

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

1
2
3
4
5
6
7
8
9
type TMaStruct = packed Record
  Case integer of
    0: (AdrComplet : AnsiString[10]); // A cas où D2009 !
    1:(
        LenAdr: Byte; // Ben oui la longueur du chaine courte !
        Adr1 : Array [0..4] of Ansichar;
        Adr2 : array [0..4] of AnsiChar;
    );
end;

Pour l'affectation de 11 char dans 10 normalement ça tronque, heureusement que ça n'écrit pas chez le voisin !

[Rayek]

Ok, merci, ma réflexion était donc bonne ^^

[Dr.Who]

tu aurais egalement pus faire :

Code :

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

1
2
3
4
5
6
type 
  TMaStruct = packed record
    case integer of
      0: (AdrComplet : array[0..9] of char);
      1: (Adr1, Adr2 : array [0..4] of char);
  end;

Delphi, grace à la syntaxe etendue, interpretera les Array[0..n] of char comme des chaines assignable au String et inversement.

Code :

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

1
2
3
4
5
6
7
var
  S : string;
begin
  S := 'bonjour';
  MS.AdrComplet := S;
  S := MS.Adr1;
end;