shandiantianying的专栏

var  className: string; HelperClass: THelperClass;begin  Result := nil;  className := FConfig.ReadString('Configuration', 'className', '');  if className = '' then    Exit;  if

procedure TForm1.Button1Click(Sender: TObject);var  sj, aj, sjj: ISuperObject;  i: integer;begin  sj := SO();  sjj := SO();  aj := SA([]);  for i := 0 to 10 do  begin    sj.s['Phon

function TForm1.GetSendText(RichEdit: TExRichEdit): string;var  MsgListInfo: TStrings;  i, m, n: integer;  x, y: LongInt;  WideStr: WideString;begin  Result := '';  MsgListInfo := TStr

Delphi Cxgrid获取选中行列，排序规则，当前正在编辑的单元格内的值cxGrid1DBTableView1.Controller.FocusedRowIndex 当前行号cxGrid1DBTableView1.Controller.FocusedRow 当前行cxGrid1DBTableView1.Controller.FocusedColumn 当前列cxGrid1DBT

RegisterHotkey(self.handle,globalatom('myhostkey'),mod_control+mod_alt,VK_key12); procedure Hostkey(var msg:Tmessage);message WM_HOTKEY;egin  procedure HostKey(var msg:Tmessage);begin