Dans une application, je sauve le contenu d'un DriveComboBox dans le registre
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.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;
J'obtiens le message d'erreur: Type incompatible PChar et PAnsiChar.
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'ai fais plusieurs recherches dont le tuto de Reisubar sur les Pchar mais sans résultats concluants.
Où est mon erreur SVP.
Merci
Duan
Partager