haentschman

Hi...

Why if RHini = nil if if the variable is local ?

better:

RHini := TIniFile.Create(AppDir+'\RemoteHost.cfg');
try
  RHini.WriteString('RemoteHost','User',UserName);
finally
  RHini.Free;
end;

Hi...

If you can...change to Firebird. The "mother" of Firebird (many years ago) is Interbase. The licence is free.

https://firebirdsql.org/en/server-packages/

Hi...

https://www.youtube.com/results?search_query=delphi+tutorial+english

...maybe there is something for you.

Quote

Six years ago (2018) there was an edition of FastReport for CE, but now you must buy it.

...sorry, it is new for me.

Hi...😎

Quote

The community version of Delphi 11 does not contain any Reporting Components

...wrong. 😉 FastReport Delphi Edition...

The right way:

1. use a reporting tool (print, export, preview)

2. do not print the visual component (TDBGrid) ... print the data in the dataset

3. design the report

4. finish...😛

FastReport videos (VCL):

https://www.youtube.com/watch?v=H6ntcbqF0MU

https://www.youtube.com/@FastReportsAcademy

Quote

quick and easy way

...nothing is quick and easy. 🙄 You have to learn something new every day.

Delphi: Only the subscription expires. The license remains valid.

Hi...

Quote

I was wondering if I could encrypt that file so that users cannot read that information.

...encrypt not the file, only the information. 😉

XML like INI:

<Password>xbWONK6X9KT/Pq1LFcV+4VRA8tePadM1yL+iVp3hA4rkgkbckH/EG00NYnuCkN22Zyg=</Password>

There are several methods of encryption. DEC for example: https://github.com/MHumm/DelphiEncryptionCompendium

...die mit den Bonbons. 😋

Hi...😎

https://dwp.gksoft.ch/en/Delphi-Welcome-Page-Plugin.html

..it is my:

Hi...

procedure TfrmDino.BitBtn1Click(Sender: TObject);
begin
  Application.Terminate;
end;

Terminate is the last option to end the program.
With Terminate NO more events are executed. Better to terminate is self.close or close

Quote

Better stop using it.

Why BDE with D12?

FDquery1.Open(query);
//or
FDquery1.Open('Select * from DAT2'); 

...What about queries with parameters...then that doesn't work.   2 notations with or without parameters...no. 

Hi...😎

The Query needs the connection. Via ObjectInspector or via code. Check this...😉

FDQuery1.Connection := FDConnection1; // or via ObjectInspector

FDQuery1.SQL.Text := query;
FDQuery1.Open; // better

Quote

'D:Delphi 11 Community\My Projects\Connecting to SQLite\Data\dat2.sqlite'

...there is a \ missing. "D:\Delphi..." 😎

Hi...😎

Quote

In MMX properties - Pascal - Sorting - Format unit uses clauses make sure that Group and sort uses is checked.

Now is Checkbox = True. Than...is it ok.

😢 I put this in the groups...

Quote

Winapi
System.Win
System
Vcl
Data
FireDAC
cx
DM
x
x.Tools
Frame
Form

 

after:

uses
  System.Classes, System.SysUtils, System.Variants, System.Generics.Collections, System.Generics.Defaults, System.DateUtils, System.Math,
  System.StrUtils, Vcl.Imaging.pngimage, Data.DB, FireDAC.Stan.Param, FireDAC.Stan.Option, FireDAC.Comp.Client, FireDAC.Comp.Script,
  DataModuleTextConstants, x.Classes.Common, x.Classes.Base, x.Classes.Data, x.Constants, x.Types, x.Tools.Mapping,
  x.Tools.DateTime, x.Tools.TryFinally, x.Tools.Json, x.Tools.Regex, x.Tools.IO, x.Tools.BitMask, x.Database.Common,
  x.Preferences;

What ist wrong?

PS: 15.1.8

Sorry...😉

PS: with "*" ("Form.*") also...  

PS: FireDAC and more are missing (first test)  😉

...🤔

before:

uses
  System.Classes, System.SysUtils, System.Variants, System.Generics.Collections, System.Generics.Defaults, System.DateUtils, System.Math, System.StrUtils,
  Vcl.Imaging.pngimage,
  Data.DB,
  FireDAC.Stan.Param, FireDAC.Stan.Option, FireDAC.Comp.Client, FireDAC.Comp.Script,
  DataModuleTextConstants,
  x.Classes.Common, x.Classes.Base, x.Classes.Data, x.Constants, x.Types,
  x.Tools.Mapping, x.Tools.DateTime, x.Tools.TryFinally, x.Tools.Json, x.Tools.Regex, x.Tools.IO, x.Tools.BitMask,
  x.Database.Common,
  x.Preferences;

after:

uses
  System.Classes, System.SysUtils, System.Variants, System.Generics.Collections, System.Generics.Defaults, System.DateUtils, System.Math,
  System.StrUtils, Vcl.Imaging.pngimage, Data.DB, FireDAC.Stan.Param, FireDAC.Stan.Option, FireDAC.Comp.Client, FireDAC.Comp.Script,
  DataModuleTextConstants, x.Classes.Common, x.Classes.Base, x.Classes.Data, x.Constants, x.Types, x.Tools.Mapping,
  x.Tools.DateTime, x.Tools.TryFinally, x.Tools.Json, x.Tools.Regex, x.Tools.IO, x.Tools.BitMask, x.Database.Common,
  x.Preferences;

@Uwe Raabe

Hi...😎

Is it possible to start each group in a new line?

uses
  Winapi.Windows,
  System.Classes, System.Generics.Collections, System.Generics.Defaults, System.SysUtils,
  ...

Hi...

Quote

I've seen it in multiple places on the internet

...sometimes the internet is not correct. The styleguide from Emba is correct! https://docwiki.embarcadero.com/RADStudio/Sydney/en/Delphi’s_Object_Pascal_Style_Guide

Quote

your formatting is not consistent

+1

better:

(indent)

if condition then
begin
  code;
end
else 
  if otherCondition then
  begin
    more code;
  end;
  
//or:

if condition then
begin
  code;
end
else 
begin
  if otherCondition then
  begin
    more code;
  end;
end;

Hi...

Quote

But I would like training to stay like this

Why? This is not in accordance with the official style guide. https://docwiki.embarcadero.com/RADStudio/Sydney/en/Delphi’s_Object_Pascal_Style_Guide
I know that you can create your own styles. But do you think about those who get your source code and can hardly read it?

Quote

Why the Community Edition?

...🙄 No answer?

You have a perfect licence and you can use it on the laptop. Install the Professional or Enterprise (what you have) version with your key. 😎

Quote

When I enter my registration code for 11.3

Why the Community Edition? 🤔 You can use your personally registration on multiple computers...only uses by your self. 👍

thanks...

User: DomainName\xxx ... not working. 😪 Was to be expected. It is the database user, not the domain user...