Manlio Laschena

I am experiencing the error on object, but only in debug mode 32B. If I switch to realease the code compiles and run without problem. Can you give me a hint where to look for mistake ?

You hit exactly the target. Thanks a lot. I wasted so much time. Neverthless the alias pointed to the working folder, therefore I don't understand exactly why resulted in a invalid directive. Would be interested to know your opinion. Generally the alias refer to a compatibility version.

Hi David, I completely agree with you. It's more then two hours I am debugging my project settings, with no result, If you rewind my comments I have ported the code to a Delphi XE5 on another machine and I had no problems at all. Unfortunately I cannot work on that computer and I have to come back to a windows 11 with Sydney. It was just the starting of an app and now I decide to write again the few lines of code from the scratch on a new project. I don't like it, as I remain with an unsolved bug. But as I know myself, having time, I will return to investigate. For my experience these type of problems generally are very very very simple to Hide them behid silly things. Thanks for your time Manlio

Hi David, At the beginning of that "story" I was requested to copy the code and I did (roll back). Then you are asking the error message and I did. There is no other info I "blind". Don't understand what you are asking for .

Hi David, do you really think I am so stupid to voluntarily blid people could help me ? It's enough to ask ! ---------------- [dcc32 Fatal Error] F1030 Invalid compiler directive: '-AC:\Users\manli\Documents\Lavori\Projects\2023\Test\InputQuery\;Generics.Collections=System.Generics.Collections;Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE' --------------------------------- BTW I ported the app to another machine (windows 10) with Delphi XE5 and resulted no invalid compiler directive on debug mode.

the problem is that I cannot run on debug mode. I said the code compiles only on release mode. I am just at the first lines of coding now. In the progress I will need to run on debug mode: no developer is perfect !!

voci[3] was due to my error to code when I am almost sleeping ! At the moment I can only code under release mode, but I must find a solution. A solution could be to turn the entry phase into a dll and start from scratch the real application hoping withou the invalid compiler directive. I am confused. Never seen an exception only on debug mode. Thanks for your time Manlio

It's just few lines, beginning a simple app. Unable to find any trivial item. ----------------------------- unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,ABSMain,DB,DBCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; ABSDatabase1: TABSDatabase; ABSTable1: TABSTable; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } function Validatevoci(const voci:array of string):Boolean; public { Public declarations } end; var Form1:TForm1; voci: array[0..2]of string; // = ('First name','Last name','email'); implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); Begin if inputquery('Pls enter data',['First name', 'Last name', 'Email' ],voci, validatevoci) then begin edit1.Text:= voci[0]; edit2.Text:= voci[1]; edit3.Text:= voci[2]; end; end; function TForm1.Validatevoci(const voci:array of string):Boolean; var g:string; begin g:=Application.Title; Application.Title:=' Errore '; //per modificare il titolo del displaybox Result := (voci[0]+voci[1]+voci[3])<>''; if not result then begin showmessage('You must enter full Name and Email data'); Application.Title:=g; // Button1.click; end end; procedure TForm1.FormCreate(Sender: TObject); begin ABSDatabase1.DatabaseFileName:=ExtractFilePath(Application.ExeName)+'Customers.abs'; ABSDatabase1.Open; ABSTable1.TableName:='Cust01'; ABSTable1.Open; Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; end; end.