Hi Guys,
I'm having some trouble when I'm trying to Initialize a constant record when one of the types is a "VARIANT" one.
For example:
This WORKS:
const
myRec : array [0..1] of record Num : integer; Str : string; end =
(
(Num: 100; Str: 'ABC'),
(Num: 200; Str: 'DEF')
);
But...
Hi everybody,
I created a Form and in the "uses" of this Form, I declared an unit called "UGLOBAL", after that, I saved it as FormPattern.
So, I went into: File->New->Other and I chose the form above and the Inherit option, and it was generated a new Form as I had setted, but missing the...
Hi everybody,
I'm having a little trouble to check if an object was already created.
I tried some examples that I've found on google but without any lucky.
Example:
procedure TForm1.TestClick(Sender: TObject);
var
conn : TADOConnection;
begin
try
if not Assigned(conn) then...
Hi,
I created the following class:
type
TDBConector = class(TCustomClientDataSet)
Conn : TADOConnection;
private
DBConfig : TDBConfig;
public
constructor Create(Aowner : TComponent); overload;
end;
And the constructor where the error occurs, in fact the error occurs on the...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.