秋天的树

function TAutoCls.SetArray(iMode: Integer; vAry: OleVariant): WideString;var   i,j:Integer ;   s:string;begin   case iMode of      2:   //二维         begin            for  I:=VarArrayLowBound(vAry, 1)

参见http://www.wangchao.net.cn/bbsdetail_47176.html 外部调用Vote1.Base :=Base1.DefaultInterface; Base属性设置为Read|Write|Write byref， Type 为Base*。 procedure TVote.Set_Base(const Value: Base);var   e

1、导入后面板如没有显示图标，则可在Environmet Options 中 选择Ignore special ColClass Flags when importing中Can Create 2、导入成功但不能使用，如版本升级过(8.1)的可以用没有升级过的4.453版（换台机器装个d7）导入一次，导入后在Program Files/Borland/Delphi7/Imports/找

//------------------------------------RzListView选择新行并取消上次选择的痕迹 (显示的虚线框)lvRecord.ItemFocused:=nil;  //需加此句，取消上次选择的痕迹lvRecord.ItemIndex:=Index

-------------------------- 加载含换行符的文件（如QQ聊天记录)//readln 不区分换行符(#10)，替换为空字符assignfile(lTextFile,mFile);  reset(lTextFile);  //以只读方式打开文件  while

OpenDialog.FileName :=''; //需先清空OpenDialog.InitialDir:='c:\';

TArrayInt = Array Of Integer; //自定义整数数组 Function GetRandomIntArray(SrcArray: TArrayInt; Var DestArray: TArrayInt;  CntDest: integer): Boolean;Var  i, j, lRnd, lCntSrc: integer;Begin  Try