Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

je suis en D2009

Malgré que j'ai lu et relu cet article : http://reisubar.developpez.com/tutor...ngs-pchars/#LC

Je n'arrive toujours pas à passer une chaine String en Array de AnsiChar.

J'ai ce type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Type
  TFileLigneEcriture = Record
    TYP     : array[0..0]  of AnsiChar; // 1 (alphanumérique)
    JL      : array[0..1]  of AnsiChar; // 2
    DAT     : array[0..5]  of AnsiChar; // 6
    PIE     : array[0..4]  of AnsiChar; // 5
    LIB     : array[0..31] of AnsiChar; // 32
 
//...
end;

Je l'utilise de cette manière :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
procedure ExportFile(BaseLocal,Chemin_Destination,Nom_Destination: String; LecturePartielle: Boolean);
Var
  LigEcr  : TFileLigneEcriture;
  FStream : TStream;
  LChaine : Integer;
 
  Cnx        : TADOConnection;
  Qry        : TADOQuery;
  Tbl        : TADOTable;
 
  OldDate : TDate;
  OldPiece: String;
  ChaineTampon: String; // Pour essayer
begin
  FStream := TFileStream.Create(Chemin_Destination+Nom_Destination,fmCreate);
  Try
//...
        Tbl.Open;
        While Not eof do
        begin
// Bloc d'entête
          OldDate  := Tbl.FieldByName('Date').AsDateTime;
          OldPiece := Tbl.FieldByName('NumPiece').AsString;
          while (OldPiece = Tbl.FieldByName('NumPiece').AsString) And (Not eof) do
          begin
// Bloc Ligne
            LigEcr.TYP    := '2';
            LigEcr.JL     := '00'; // Non utilisé
ChaineTampon := FormatdateTime('ddmmyy',Tbl.FieldByName('Date').AsDateTime);
// ???            SetLength(ChaineTampon,Length(LigEcr.DAT));
            LigEcr.dAT    := PAnsiChar(ChaineTampon); // <== marche pas
            LigEcr.PIE    := LeftStr(Tbl.FieldByName('NumPiece').AsString,Length(LigEcr.PIE)); // <== marche pas
            LigEcr.LIB    := LeftStr(Tbl.FieldByName ('LibelleEcriture').AsAnsiString,Length(LigEcr.LIB)); // <== marche pas
 
// ...
end;

Je peux pas utilisé autre chose que des array[0..0] of AnsiChar sinon le fichier texte comportera des caractères étranges.

La je n'arrive pas à compiler, plus particulièrement transformer mon string en Array de char....

Merci pour votre aide.

[ShaiLeTroll]

Ce n'est pas un pointeur que tu veux mais un tableau de char !

as-tu essayé :

Code :

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

LigEcr.dAT    := AnsiString(ChaineTampon);

je n'ai pas 2009, je ne peux donc pas vérifier ma proposition

ou alors déclarer ChaineTampon en AnsiString et Delphi fera lui même la conversion

[Dr.Who]

oui, ChaineTampon doit être en AnsiString!

[BuzzLeclaire]

@ShailLeTroll @Dr. Who

J'ia déjà essayer cela et sa ne fonctionne pas j'ai toujours le message

Types incompatibles : 'Array' et 'AnsiString'
Ou initialement
Types incompatibles : 'Array' et 'String'

J'ai essayé cela :

Code :

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

1
2
3
4
5
6
7
// ...
ChaineTampon: AnsiString;
end;
// ...
  ChaineTampon := FormatdateTime('ddmmyy',Tbl.FieldByName('Date').AsDateTime);
  LigEcr.DAT := AnsiString(ChaineTampon);
// ...

Ou directement cela

Code :

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

1
2
3
4
 
// ...
  LigEcr.DAT := Tbl.FieldByName('NumPiece').AsAnsiString;
// ...

Une idée ? car je trouve toujours pas...

[BuzzLeclaire]

Je vienss de tombé sur cette fonction.

StrPcopy();

Je vais voir si c'est jouable dans son intégralité.

[ShaiLeTroll]

Effectivement, j'utilise aussi souvent StrPLCopy, ce qui m'étonne, c'est que si tu as lu le Tuto de Reisubar, pourquoi ne pas l'avoir utilisé plus tôt, c'est expliqué dedans ?!

[BuzzLeclaire]

Effectivement, j'utilise aussi souvent StrPLCopy, ce qui m'étonne, c'est que si tu as lu le Tuto de Reisubar, pourquoi ne pas l'avoir utilisé plus tôt, c'est expliqué dedans ?!

Bah on va dire que j'avais lu entre les mots...
En fait rien ne m'indiquais que je pouvais partir d'un AnsiString pour optenir un Array of AnsiChar

De plus, après une réelle utilisation, cette fonction StrPCopy() est tout de même source d'erreur.