baeckerg
-
Content Count
25 -
Joined
-
Last visited
Posts posted by baeckerg
-
-
I moved away from those approaches and store in ISO 8601 format using the System.DateUtils.DateToISO8601. I find it more reliable and independent from system settings
-
And some are no longer MVPs (I remember another well known German MVP), probably because of being too honest
- 1
-
6 hours ago, Joseph MItzen said:Is that the new Like a Blank Book license?
you just have to press the blank invisible button - randomly assigns self-destruct sequence
- 1
-
if I remember correctly it was in one of the Nick Hodges books - but that is off the top of my head without any guarantee
-
I just played around and if you really only need to load a certain status into the database which you need to reload you could do something like this:
procedure TForm2.btn1Click(Sender: TObject); var I: Integer; node: TTreenode; ms: TMemoryStream; begin node := tv1.Items.Add(nil, 'ROOT Beer') ; for I := 0 to 10 do begin tv1.items.AddChild(node, 'Beer ' + i.toString); end; ms := TMemoryStream.Create; tv1.SaveToStream(ms); qry_1.SQL.Text := 'Insert into files (files) values (?)'; qry_1.Params[0].LoadFromStream(ms, ftBlob); qry_1.ExecSQL(); ms.Clear; qry_1.SQL.Text := 'Select f.files from files f limit 1'; qry_1.Open(); ms.Position := 0; TBlobField(qry_1.FieldByName('files')).SaveToStream(ms); ms.Position := 0; tv2.LoadFromStream(ms); ms.Free; end;
just a quick and dirty hack with two treeviews (tv1, tv2) and Firedac on SQlite
-
My solution was based on the fact that it is an integer field - therefore a simple "ADD" seamed to be the most straightforward way.
I am not working on interbase. Therefore my SQL is based on SQlite. There you could use
UPDATE mytable SET docno = CASE WHEN docno <2000 THEN docno + 210000 ELSE docno + 220000 END;
which would give you more flexibility. In SQLite you could also do
UPDATE mytable SET docno = CASE WHEN docno <2000 then '21'|| DOCNO ELSE docno + 220000 END;
since SQLite internally handles the fields as strings. But case can give you flexibility in case you need it
-
How about
Update mytable set docno = docno + 210000;
this modifies all records. If you want to limit the affected rows you would need to add a WHERE clause
-
Stay well and speedy full recovery
- 1
-
-
Sorry - I should have congratulated on the app - I consider it a good idea and it looks well planned
@Kas Ob.definitely good suggestions
-
sorry to say - but not appealing to me.
Components limited to Android Firemonkey? - This is odd as Firemonkey is supporting iOS, Windows, MacOS
Did you look at TMS FNC framework - one of my favourites for GUI development
-
I started to work with the new JetBrains Mono - really nice
-
8 hours ago, msintle said:That's about as relevant to the topic as is my asking what the story is behind your ghostbusters logo?
Or your question?
-
Great - did not want to intrude on any intellectual property
-
Thanks for sharing - my understanding is that the FMXBrowser is independent of the framework.
@Dave NottageWould you share all your enhancements or do you host it somewhere? Github? I think it would be much appreciated
-
Thanks for the feedback and the valuable input
Free will be part of the datamodule when it is destroyed 🙂
-
Hi,
in a program I have a central FireDAC connection to my database in a datamodule. I intend to have all record related activities (CRUD) in a class that holds the record. My questions are:
1) is there any penalty if I pass the connection (as var parameter?) to the constructor of the class?
2) is this the best way to separate the data from the UI?
many thanks in advance
Gernot
-
Did you look at TMS FlexCel? It works on VCL and FMX
-
-
Lots of trouble with Bitdefender especially during installation of TMS components. I consider it a good AV solution but I need to switch it off completely during installation of 3rd party tools
Spring4d compile error on Delphi CE 10.4.2
in General Help
Posted
You need to check under Downloads / Tags: Tags for Spring4D