TOPIC:

Reading from ini files does not seem to work in the current versions of CT. Tried on macOS and windows with no luck

procedure TMainForm.FormCreate(Sender: TObject);
v
begin
  IniPath := Application.Location;
  IniFile := 'pisinvoicing.ini';
//  callResult := iniRead(iniPath);
     Memo1.Clear;
     Memo1.Append('Inipath =' +IniPath);
     Memo1.Append('BUndle Path = '+ExtractFilePath(GetBundlePath));
//  ShowMessage(ExtractFilePath(GetBundlePath));
  //  Users/joaobarbosa/Data/PSINVOICING.FDB
//  MyIniFile := TIniFile.Create(ExtractFilePath(GetBundlePath) + IniFile);
//  MyIniFile := TIniFile.Create('/Users/joaobarbosa/Myprojects/PInvoicing/Invoicing/pisinvoicing.ini');
//  MyIniFile := TIniFile.Create(IniPath+'pInvoicing.ini');

  try
     with MyIniFile do
     begin
       AppServer := MyIniFile.ReadString('SYSPARAMS', 'AppServer', '');
       AppDatabase := MyIniFile.ReadString('SYSPARAMS', 'AppDatabase', '');
     end;
   finally
     // After the ini file was used it must be freed to prevent memory leaks.
     MyIniFile.Free;
   end;
   dmPis.psconnection.HostName:=AppServer;
   dmPis.psconnection.Database:=AppDatabase;
   dmPis.psconnection.Connect;
   VatNo := dmPis.CompanyQry.FieldByName('taxno').AsString;
   CompanyName := dmPis.CompanyQry.FieldByName('companyname').AsString;
   lblCompanyName.Caption:=CompanyName;
 Memo1.Append('Host=' +AppServer);
 Memo1.Append('Db=' + AppDatabase); //
end; 
 

Where is MyIniFile := TIniFile.Create(

//  MyIniFile := TIniFile.Create(ExtractFilePath(GetBundlePath) + IniFile);
//  MyIniFile := TIniFile.Create('/Users/joaobarbosa/Myprojects/PInvoicing/Invoicing/pisinvoicing.ini');
//  MyIniFile := TIniFile.Create(IniPath+'pInvoicing.ini');

Try and TMemIniFile Class

just under the Mainform class
var
MainForm: TMainForm;

MyIniFile: TiniFile;
IniPath : string;
IniFile : String;

Not the declaration of MyIniFile

but the creation of MyIniFile
MyIniFile := TIniFile.Create(FooFile);

Please,
check if FooFile exists before
create TIniFile class variable;
MyIniFile := TIniFile.Create(FooFile);

 

ok found the issue, which was not happening in previous versions because I used the same project I was using before. the creation order of the forms in autocreate, I had to put the data module form first then it all works. Even the edit boxes on the form work.

Thank you for your help.

Thanks Sir