delphi_手工创建dataset
procedure TForm1.Button3Click(Sender: TObject);
begin
//显示创建的数据集: dbgrid->datasource->clientdataset
//如果手工控制dbgrid显示宽度,dbgrid右键创建两个字段aa,bb,分别设置宽度即可
cds1.FieldDefs.Add('aa',ftString,40);
cds1.FieldDefs.Add('bb',ftInteger);
cds1.CreateDataSet;
cds1.Append;cds1.FieldValues['aa']:='a1';cds1.FieldValues['bb']:='10';cds1.Post;
cds1.Append;cds1.FieldValues['aa']:='a2';cds1.FieldValues['bb']:='20';cds1.Post;
cds1.Append;cds1.FieldValues['aa']:='a3';cds1.FieldValues['bb']:='30';cds1.Post;
//cds1.Active:=true;
//cds1.EmptyDataSet;
end;
相关文档：
var
L,i:integer;
Ustr,str:string;
p:char;
begin
str:='123456789ABCDEFG'
L:=length(str);
for i:=1 to l do begin
p:=str[i];
str[i]:=str[l-(i-1)];
......
比如操作
CSDN的登录
先用WebBrowser定位到登录页面
WebBrowser1.Navigate('http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/');
然后，看其HTML源代码，发现
名字为 ctl00$CPH_Content$tb_LoginNameOrLoginEmail的元素就是 其用户名的输入框了。
此时
使用
(WebBrowser1.Documen ......
定义：
CbName: TComboBox;
width: Integer; //实际所需的宽度
在执行代码中按如下方法写：
width := CbName.Canvas.TextWidth(CbName.Items[I]); //可用此方法通过遍历获得某选项的最大宽度，也可以按自己的� ......
在项目中，需要做一个日期的提醒功能，挺郁闷的，对日期的计算:
很幸运的是在delphi 中有现有的计算函数，DateUtils单元；
路径:*\Delphi7\Source\Rtl\Common 目录下。
贴出一部分:
function IncYear(const AValue: TDateTime;
const ANumberOfYears: Integer = 1): TDateTime;
// function Inc ......
最近一阵子，总是被一个莫名其妙的bug困扰。自己写的ocx（.net2005）在delphi7中调用，明明没有释放主动释放过内存，却被连续释放了两次。结果，程序退出时就down掉了。当然，这是在debug模式下才会出现，但是exe跑的时候会莫名奇妙的down掉，而且出错往往指向ocx，我想一定和ocx的调用有关。
上网找了purify，boundscheck ......
