Discussion :

[Duan]

Dans une application, je sauve le contenu d'un DriveComboBox dans le registre

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
 
procedure TForm1.DriveComboBox1Change(Sender: TObject);
  var
    Reg: TRegistry;
    ID:string;
  begin
     ID:= DriveComboBox1.Drive;
     Reg := TRegistry.Create;
    try
      Reg.RootKey :=HKEY_CURRENT_USER;
      Reg.OpenKey('Software\RechPhoto',True);
      Reg.WriteString('Initial',ID);
      Reg.CloseKey;
    finally
      Reg.Free;
    end;
  end;

Jusque là, pas de problèmes; quand je veux récupérer cette information pour que mon ComboBox la reprenne, ca se complique :

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
  procedure TForm1.FormShow(Sender: TObject);
  var
    Reg: TRegistry;
    ID: String;
  begin
    Reg := TRegistry.Create;
    try
      Reg.RootKey :=HKEY_CURRENT_USER;
      Reg.OpenKey('Software\RechPhoto',True);
      ID:=Reg.ReadString('Initial');
      DriveInitial.Drive:=PChar(ID); // Ici j'ai une erreur
      Reg.CloseKey;
    finally
      Reg.Free;
    end;
  end;

J'obtiens le message d'erreur: Type incompatible PChar et PAnsiChar.
J'ai fais plusieurs recherches dont le tuto de Reisubar sur les Pchar mais sans résultats concluants.
Où est mon erreur SVP.

Merci

Duan

[Cl@udius]

Salut

La propriété Drive du Combo attends un Char (non un PChar), donc ceci devrait aller mieux:

Code :

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

1
2
 
DriveInitial.Drive := ID[1];

@+ Claudius

[Duan]

Un grand merci Cl@udius ; ça marche impeccable;
Je vais imprimer et relire le Tuto de Reisubar pour mieux comprendre la différence entre ces Char,PChar,PAnsiChar ect. qui me causent souvent des problèmes. Si quelqu'un a d'autres tutos ou conseils, je suis preneur. En attendant, je met RÉSOLU.



Duan