Attila Kovacs

As the component itself stores only a reference in both cases, I can't see any benefit.

You both never worked with treeviews, do you?

"Host not found" to "ws.xn--twelvedata-lb99c.com" You will not have the drink, Kimi.

okay everybody, we make the photoshooting today.. remember, don't smile, and close your eyes! by the way, if the background isn't just white and you don't have to automatize https://www.photoroom.com/white-background/

Ok I thought he cited it from a working lib... @Anders Melander how dare you!??

match, matcher, matchest? The tolerance determines the result, isn't it?

or SameValue()

I wrote the battle of marathon back in 490 BC, yes.

guess work, because we can't see your code: remove the fields from the query component, leave it empty, set fetchall to false, do not use "select *", fetch the blobs separately, add a key field to the table, set the keyfield in the query component

why do you need the 2 different compare functions? why not just WHERE (A LIKE '%' + B + '%') OR (B LIKE '%' + A + '%') ? if you read it out loud, everybody beside to you will understand what you want

that's not how things work, I'm not sure your database is worth search anything...

Why would a search for "G:\Delphi Projects\image32_3.2.2\Examples\Layers101" find "G:\Delphi Projects\image32_3.2.2\" ?

You'll not have the drink Kimi

in the very next second it could have the rights and vice versa

this looks strange, even a logical control hierarchy is missing, otherwise they would be cropped on the bottom you should try using alignments instead of fixed positions

or you have a common form with some extra methods 🙂

I'd still go with compressionmode 1 and 25sec instead of 18% better compression and almost twice the time. HDD is cheap, time isn't.

the one I just downloaded.... must be the latest

downloaded and installed zipforge, pretty same as W10

I did not believe those numbers so I did it myself. source enwik9.zip http://mattmahoney.net/dc/textdata.html compression routine zf := TZipFile.Create; zf.Open('MyFile.zip', zmWrite); zf.Add('enwik9', '', zcDeflate); zf.Close; But, I don't know what TZipFile is using, own code or winapi.

We are not discussing here how to free a form, I'm always using caFree which is not part of the question.

in this case you need a wrapper unit with either making a gateway or extending the API with helpers

bullshit

I would not bother with the constructor just add a method for setup and show: procedure TTracksAddEditForm.ShowForm(const AsMode: string; AiAlbum: integer; const AsTrack: string); begin FsMode := AsMode; FiAlbum := AiAlbum; // or set the controls directly FsTrack := AsTrack; Show; end; use it: TTracksAddEditForm.Create(Self).ShowForm('Insert', blah, buh); or for showmodal function TSomeValueReturningForm.ShowForm(var AVar: string): TModalResult; begin FVar := AVar; Result := ShowModal; AVar := FVar; end; use it: lStringVar := 'Initialvalue'; case TSomeValueReturningForm.Create(Self).ShowForm(lStringVar) of mrOk: DoSomething(lStringVar); else Whatever... end; the variable var TracksAddEditForm : TTracksAddEditForm; is only needed if the forms are created with Application.CreateForm() by the dpr itself. Otherwise it should be deleted immediately.

reintroduce is missing