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)];
......
delphi中Webbrowser的使用
1.获得网页中变量值
htm中<script> var currID=123</script>
程序中可以这么调用 id := Form1.WebBrowser1.OleObject.Document.script.currID
值得说明的是,变量可以是javascript定义的,也可以是vbs ......
procedure TForm1.Button2Click(Sender: TObject);
var
o : Olevariant;
begin
webbrowser1.Navigate('http://www.163.com');
delay(2000);
o := WebBrowser1.OleObject.document.all.item('username',0);
o.value := 'username';
o := W ......
Delphi 7事件的多处理机制
Allen Tao
2007-08-19
首先解释一下这个题目。在我使用Delphi 7的过程中发现，一个对象的事件只能被一个过程处理。如果多次给这个对象的事件赋给处理事件的过程，最后真正处理事件的将是最后赋值的那个过程。例如，有类TMyClass中定义了一个事件OnSomeFired，在类TClientClass中� ......
转:DELPHI 中如何提升进程令牌
近一段时间在用DELPHI写个程序,当我写到一个结束其他进程的模块的时候有时不成功,那是因为其他进程,如病毒进程的权限高,通过常规的结束进程的函数行不通,要首先提高自身程序的权限,再结束其他进程
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代� ......
