这是一个简单的问题。 如何初始化变量列做出如下声明。 procedure TfmSomeForm.grdSomeGridDblClick(Sender: TObject);
var
Column: TColumnEh;
IsSomething: Boolean;
begin
inherited;
//Initialize Column
IsS
我有一个使用Indy的POP3客户端，这很好连接，但我需要在证书无效时中止连接。任何人有想法？ procedure Tpop3client.connectPOP3;
var
status : Boolean;
I, msgTotal : Integer;
begin
if edSSL then begin
POP3.IOHandler := SSL;
POP3.Use
我想创建一个将设置其自己的属性的过程。请参考示例代码。我使用DELPHI XE 样本： procedure TCarcassUpdateForm.ChangeText;
begin
if self.Text = '' then
begin
Self.Text := '0';
end;
end;
//Edit 14
proce