Attila Kovacs

keywords: "fetchall" / "optimistic"

@Stefan Glienke The last (edited) version still has the "label" and does not yield on HexToBinStefan(#0). Not sure if this should be considered a bug or not.

I thought ppl. who are having more than one unit in a row are doesn't care about the order as it's impossible to reorder it quickly with the line-up/down expert.

What does this UsesCleaner supposed to do? It removes linked modules from the uses list.

Too bad there is no multiple inheritance. Is it possible to hook a constructor on startup?

Which ones?

I'll go with "yet". I'll take your word for it 😉

How can I ignore it?

@Juan C.Cilleruelo I think it's about half the price, but get an offer. And if you do so, don't miss this (if you have purchased FD separately back in the days) : Do you offer competitive upgrades? Yes, we do offer competitive upgrades, with the proof of purchase of competing product (invoice, order confirmation etc).

@Juan C.Cilleruelo Take a look at UniDAC (or SDAC) and at dbForge Studio for MSSQL, both are excellent tool sand DevArt is a really great partner. I think you will be able to transform your own ORM to use UniDAC. For the case, they also offer ORM's and .NET products. They are also customer oriented and they have a great support. Or, as I always mention, you could also quit your subscription and use the last IDE + FD what you have.

So did I when I ignored him for the extensive AD for his own product. 😄 For me it's a fake Delphi group.

Maybe a missing sum? (SELECT SUM((OD.QTY - OD.REMQTY) * OD.UPRICE) FROM ORDETAIL OD WHERE O.ID=OD.ID)

your code is just Ahm, I see, virtual mode is like the component is a hole to the memory and the hole is being moved, but the size is always the same.

I'm not sure if it's known at any level.

I'm wondering if it would be possible to make this dialog more user friendly, like a two stage state, both triggered with ctrl-f12. As default it would pop-up and show the files in the project, and the second ctrl-f12 (at opened list) would show the extended file list. Or, for my sake, duplicate the settings on the second tab for the first and for the second ctrl-f12, so everybody would be served and satisfied. And then ctrl-f12 could just switch between the settings at the opened list.

http://google.com/ncr

You could try to use the dataset's ".Filter" and ".Filtered" properties instead of this exotic SetRange.

A blind man walks into a bar. And a table. And a door. And a staircase.

@Lars Fosdal It's the GExperts section 😛 Again 😉 Maybe we need some css tuning on the title 😉

That is so easy, a little wizard with 2 menus. Forgive me for the code quality, looks like I did not give too much flamingos about it. // Paste procedure TClipboardWizard.mePasteFromClipboard(Sender: TObject); begin with BorlandIDEServices as IOTAEditorServices do if Assigned(TopView) then begin TopView.Buffer.EditPosition.InsertText(GetFormattedString); TopView.Paint; // invalidation end; end; function TClipboardWizard.GetFormattedString: string; var List: TStringList; q: integer; begin if Clipboard.HasFormat(CF_TEXT) then begin List := TStringList.Create; try List.Text := Clipboard.AsText; for q := 0 to List.Count - 2 do List[q] := #39 + List[q].Trim.Replace(#39, #39#39) + #32#39#43#32#47#47; q := List.Count - 1; List[q] := #39 + List[q].Trim.Replace(#39, #39#39) + #32#39#59#32#47#47; Result := List.Text; finally List.Free; end; end; end; //Copy procedure TClipboardWizard.meCopyToClipboard(Sender: TObject); begin with BorlandIDEServices as IOTAEditorServices do if Assigned(TopView) then Clipboard.AsText := RemoveUnneededChars(TopView.Block.Text); end; function TClipboardWizard.RemoveUnneededChars(const Value: string): string; var List: TStringList; q: integer; begin if Value.Trim <> '' then begin List := TStringList.Create; try List.Text := Value; for q := 0 to List.Count - 1 do List[q] := List[q].Trim([#32, #33, #34, #35, #36, #37, #38, #40, #41, #42, #43, #44, #45, #46, #47, #48, #49, #50, #51, #52, #53, #54, #55, #56, #57, #58, #59, #60, #61, #62, #63, #64, #65, #66, #67, #68, #69, #70, #71, #72, #73, #74, #75, #76, #77, #78, #79, #80, #81, #82, #83, #84, #85, #86, #87, #88, #89, #90, #91, #92, #93, #94, #95, #96, #97, #98, #99, #100, #101, #102, #103, #104, #105, #106, #107, #108, #109, #110, #111, #112, #113, #114, #115, #116, #117, #118, #119, #120, #121, #122, #123, #124, #125, #126, #127]).Replace(#39#39#39, #39#39#32#39).Trim([#39]).Replace(#39#39, #39); Result := List.Text; finally List.Free; end; end else Result := ''; end;

I only know one company who refuses to host old version of their products. If he had a license he should contact DevExpress and ask for the package or for declaring it as abandonware.

Ask DevExpress?

TEventHandler<T> ? TObservable<T> ? Just my 2 cents, never used them, but it's a good base to start the conversation.

If it's true, is it related to the bloated dcu's with generics reported by Stefan back in the days?

You could also quit your emba subscription and use the last one you have with FD.