skyzoframe[hun]

https://www.packtpub.com/

I use Interbase, and I require these files on the client side. Install if not installed already.: vcredist_x64.exe or vcredist_x86.exe The main folder of the YourPrg.exe ibclient64.dll or gds32.dll.

Yes , you are right.

I mean, before you put anything into the array, you have to clear the record, then fill the record. If you don't do so, then there are the opportunity to create redundancy.

In these case, maybe you need one more row. LMyRecordWithValues := default (TMyRecordWithValues);

The best solution for converting the query into an array was developed by Pawel Glowacki in Chapter 9 of the Expert Delphi book. I use the same technique all the time, except I do everything at runtime. ToDoListSQLite.7z

@Rollo62 Do you have any solution for the problem? https://docwiki.embarcadero.com/CodeExamples/Sydney/en/FMXTCanvasFillFunctions_(Delphi)

Now it has. https://docwiki.embarcadero.com/CodeExamples/Alexandria/en/SelectDirectory_(Delphi)

The first step is solved, by using the update flag, creating a negative and positive ID with one trigger when inserting anything into the database. // interbase database // before insert AS declare variable COUNT_ID INTEGER;declare variable I INTEGER;/**/ begin COUNT_ID=0; i=0; new.TIME_CREATE=Current_TimeStamp; /* UPDATE_KEY -> default False! */ if (new.UPDATE_KEY=False) then begin /*when create*/ if (not exists( select * from MGR_SZABASZAT where ID>-1)) then begin new.ID=0; end else begin select count(*) from MGR_SZABASZAT where ID>-1 into :COUNT_ID; i=:COUNT_ID; WHILE (i>0) DO begin if (not exists (select ID from MGR_SZABASZAT where ID=:i)) then begin new.ID=:i; i=0; end else i=i-1; end /* WHILE (i>0) DO*/ end /*if (not exists( select * from MGR_SZABASZAT)) then*/ end else begin /*update*/ if (not exists( select * from MGR_SZABASZAT where ID<0)) then begin new.ID=-1; end else begin select count(*) from MGR_SZABASZAT where ID<0 into :COUNT_ID; i=:COUNT_ID+1; i=i*-1; WHILE (i<0) DO begin if (not exists (select ID from MGR_SZABASZAT where ID=:i)) then begin new.ID=:i; i=0; end else i=i+1; end /* WHILE (i<0) DO*/ end /*if (not exists( select * from MGR_SZABASZAT)) then*/ end end

Also, select some range and press "Ctrl+/" , it gives "//" to each selected line. Press again, and will remove it.

I found these.: https://www.tweaking4all.com/software-development/software-delphi/delphi-ide-code-editor-keyboard-shortcuts/ https://leanpub.com/codefasterindelphi

creativity the key, AI can not handle that...

ctrl+shift+c+left mouse press

I mean in delphi. for example.. ctrl + shift + c , on procedure or function yougot there, what you wrote there. anyway alt+f4 are the best all the time :)

🙂