Bonjour à tous,

J'ai un problème de conversion de NSString en string :

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
37
38
 
type
  TDM_AccesBase = class(TDataModule)
  procedure DataModuleCreate(Sender: TObject);
  private
    {$IFDEF FPC}
      pAB_sFileName : NSString;
    {$ENDIF}
...
procedure TDM_AccesBase.DataModuleCreate(Sender: TObject);
begin
{$IFDEF FPC}
  pAB_sFileName := MyDirectory.stringByAppendingPathComponent(NSSTR(PChar('/MyDB.sqlite')));
{$ENDIF}
end;
 
{$IFDEF FPC}
function TDM_AccesBase.MyDirectory : NSString;
var
  paths : NSArray;
  fileName : NSString;
 
begin
  paths := NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, true);
  fileName := paths.objectAtIndex(0);
  Result := fileName;
end;
{$ENDIF}
 
...
 
var NomFichier : string;
 
begin
{$IFDEF FPC}
	try
 NomFichier := pAB_sFileName.UTF8string;  <---- ça plante la
....
Pourquoi cela plante à l'affectation de la variable NomFichier, pourtant UTF8string fait la conversion, non ?