

baeckerg
Members-
Content Count
23 -
Joined
-
Last visited
Community Reputation
5 NeutralRecent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
And some are no longer MVPs (I remember another well known German MVP), probably because of being too honest
-
you just have to press the blank invisible button - randomly assigns self-destruct sequence
-
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
-
I will be less active for a few weeks
baeckerg replied to Lars Fosdal's topic in Community Management
Stay well and speedy full recovery -
How about this one: http://docwiki.embarcadero.com/Libraries/Sydney/en/FMX.Layouts.TFlowLayoutBreak
-
Android Mobile application using Firemonkey
baeckerg replied to Antony Augustus's topic in I made this
Sorry - I should have congratulated on the app - I consider it a good idea and it looks well planned @Kas Ob.definitely good suggestions- 18 replies
-
- android
- firemonkey
-
(and 1 more)
Tagged with:
-
Android Mobile application using Firemonkey
baeckerg replied to Antony Augustus's topic in I made this
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- 18 replies
-
- android
- firemonkey
-
(and 1 more)
Tagged with:
-
Why can't I install this monospaced font in Delphi ?
baeckerg replied to A.M. Hoornweg's topic in Delphi IDE and APIs
I started to work with the new JetBrains Mono - really nice -
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
-
Database connection as parameter in class creation
baeckerg replied to baeckerg's topic in Databases
Thanks for the feedback and the valuable input Free will be part of the datamodule when it is destroyed 🙂