programmerdelphi2k

considere (too) alternative "Def" function to: StrToxxxDef(..., ...)

this help you? procedure TForm1.TreeView1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_UP, VK_DOWN: // TreeView1.OnClick(self); Caption := TreeView1.Selected.Text; end; end; I forgot "OnChange" works in mouse/keyboard procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin Caption := Node.Text; end;

https://www.embarcadero.com/products/rad-studio/features/feature-matrix say: FireMonkey Application Platform for creating native Android ARMv7 applications for Android 13, 12, 11, 10, Pie (9.0), Oreo (8.1). = PRO/CE

if you think that way, then... sorry about this!

TGlobe in Torry's Delphi Page - 2007 --- using "WhoIS" I found this: later, I found FBI page about Jin H Park (male) as member in Ransomware team... BUT I DONT IF "IT'S REALLY TRUE" THIS INFO about Jin, because the "H" can be any other name! https://l.facebook.com/l.php?u=https%3A%2F%2Fwww.fbi.gov%2Fnews%2Fpressrel%2Fpress-releases%2Fnorth-korean-regime-backed-programmer-charged-with-conspiracy-to-conduct-multiple-cyber-attacks-and-intrusions&h=AT2gx2J-BRmv51xFtJ50dM8ZxUpizKf1TWp3ZgnQ1AzDi8YA6IIpOC4JVLveqy3b3V9LuLibNRQC7sLUNkDcz9N6sS6DCUFkNnFdtvG5ly5vnaUPhaMi9YRnXXgFmhXbz7OeUKlX_IdocUpkF4S6&__tn__=-UK*F

no that I know! but I always work with "saves..." OFF!

you can try using "FDLocalSQL" as your hub: example: MyDS_FDMemTableX = my real data (or any other dataset) in this dataset create a "new field" as "InternalCalc" ... of course, needs to be a field with size and type as your necessity!!! add the event "OnCalcFields" with your expression for create the logic necessary now, you'll need 1 FDConnection, 1 FDLocalSQL and 1 FDQuery 1 FDConnection using SQLite, with ":memory" database... open it! 1 FDLocalSQL to accomodate your dataset desired... in this case, this dataset will be "MyDS_FDMemTableX" 1 FDQuery will be used to create your SQL select... pointing to your "MyDS_FDMemTableX" now, open your FDConnection, FDLocalSQL, and your FDQuery to see the result for more details see the HELP: Delphi Help -> Example and Samples -> FireDAC.TFDLocalSQL InMemDB Sample procedure TForm1.FDMemTable1CalcFields(DataSet: TDataSet); begin FDMemTable1FullNameInternalCalc.AsString := FDMemTable1LastName.AsString+' '+FDMemTable1FirstName.AsString; end; MyDS_FDMemTableX: FDMemTable1: TFDMemTable; FDMemTable1FirstName: TStringField; FDMemTable1LastName: TStringField; FDMemTable1FullName: TStringField; FDQuery = select * from FDMemTable1 order by FullNameInternalCalc

did see this: https://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.EResNotFound try re-construct the form again with same components/etc... but a new form!!!

In tools options: "Automatic Saves" is on or off?

Firebird is "almost" than Interbase Firebird came from Interbase 6 when open-sourced Firebird is reliable, and multi-user server (there is limit on database, basically your system) Firebird is supported in many platforms and languages: http://firebirdsql.org/en/features/ https://firebirdsql.org/en/sql-conformance/ Firebird supports a number of hardware and software platforms: Windows, Linux, MacOS, HP-UX, AIX, Solaris and more. (now in Android embedded it's possible too) It runs on at x386, x64 and PowerPC, Sparc and other hardware platforms, and supports an easy migration mechanism between these platforms. Firebird is included into the following Linux repositories: Fedora, OpenSuse, CentOS, Mandriva, Ubuntu. Firebird is supported by numerous database connectivity options: Firebird.NET JayBird (Java) Delphi/C++ Builder drivers (Embarcadero Delphi/C++ Builder IDEs include dbExpress drivers to work with Firebird.) // FireDAC FB and ODBC ! FreePascal & Lazarus PHP for Firebird FireRuby and more! Firebird is really free for usage (commercial or not) Firebird is powerfull and open-source: for more details http://firebirdsql.org/ Firebird it's really easy to use and learn! you dont need a big server, ok, run it in a 386 and TCP/IP network!

https://en.delphipraxis.net/topic/4799-how-to-create-an-object-instance-from-its-class-name/

type TRecResult = record b:boolean; m: string; ... function xxxx(...): TRecResult;

if using ... AOut=""); works. then maybe needs change to function xxxx(....): string;

see if possible ... var AOut = "");

out needs always a var.... use some like this: xxxx( xxxx; var AOut: string = "")

now, you know "why" use "out Params" - always to receive/to transport some, never like "var Vars"

else, LText will be "empty"!

"ErrorMessage" is a "string", then is not same than an object/property-event for example, to Assigned() usage. you should use: if ErrorMessage = '' or ErrorMessage.IsEmpty... then... but in your case above, it start "empty" but you cannot known if "it" was defined or not, normally, it should be referenced in the source, like: var LText:string; begin ValidEmail( xxxxx, LText); because "out ErrorMessage" that needs a "var" to received value returned when out-scope. "out" is almost the same than "var" out = out var = in/out

did read this ? https://docwiki.embarcadero.com/RADStudio/Sydney/en/Connect_to_MySQL_Server_(FireDAC) https://dev.mysql.com/doc/refman/5.7/en/integer-types.html https://stackoverflow.com/questions/16798744/why-does-tinyint1-function-as-a-boolean-but-int1-does-not

Win10/i4770k/8cpu/16GB/ RAD11.3 / Release/ 32b=119Mib / 64bit=159MiB

$121m until $137m to Senior, it's real or a fantasy? Salary: Senior Delphi Developer (April, 2023) | Glassdoor

market ask "C#" or "Delphier" currently? then... where are you now? Australia or San Francisco https://www.salary.com/research/salary/recruiting/delphi-developer-salary https://www.payscale.com/research/AU/Skill=Delphi/Salary

As I said before, "someone" is trying to "systematize" something that is "conspective", not systemic!