delphi-2009

I came across this while looking for a database connection pool implementation for Delphi. An object pool needs two methods: get - to acquire an object from the pool (this will create a new instance if the pool is empty or its size has not reached its maximum size), this methods must be thread safe so that one object can not be acquired by two threads at the same time. If all objects are iin use, the get method must block (maybe with an optional time out) put - to release (return) an object to the pool So a use case would look like O := Pool.Get; try ... use O finally Pool.Put(O); end; Update:

Is it possible to derive a class from a specialized generic type: TGenericBase <T> = class // ... end; TSpecializedDerived = class (TGenericBase <String>) // ... end; Just wondering if this is possible at all... EDIT Code works fine when I put it in a new project. Must be due to some other mistake; sorry about that Yes. I do it all the time. It's very useful. One of my favorite tricks goes something like this: TSpecializedList = class(TObjectList<TMyType>) public (extra methods specific to handling TMyType objects) end; 来源： https://stackoverflow.com/questions/793735/derive-from-specialized

Basically I want an activity indicator that will show at a glance that there is an active calculation in progress on that tab. I'm looking for something very simple, like showing a gif on the tab, or showing a sequence of strings that change with a timer. I don't want a complicated solution or a solution that requires new components. I already have an implementation, but I'm having a problem with it that I'm asking for a more specific solution to here: How to show backslash in a japanese locale In the case that there isn't a solution to the other problem, or that there is a significantly

Consider an interface like IMyInterface = interface procedure DoSomethingRelevant; procedure Load (Stream : TStream); procedure Save (Stream : TStream); end; and several classes that implement the interface: TImplementingClass1 = class (TInterfacedObject, IMyInterface) ... end; TImplementingClass2 = class (TInterfacedObject, IMyInterface) ... end; ... I have a class that has a list of IMyInterface implementors: TMainClass = class strict private FItems : TList <IMyInterface>; public procedure LoadFromFile (const FileName : String); procedure SaveToFile (const FileName : String); end; Now to the