delphi调用Excel查找定位
var
ExcelFile:string;
SourceRange,DesRange:Variant;
Row,Column,i:integer;
begin
if OpenDialog1.Execute then
begin
ExcelFile:=OpenDialog1.Files[0];
if not FileExists(ExcelFile) then Exit;
end
else
Exit;
try
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.open(ExcelFile);
DesRange:=ExcelApp.WorkSheets[1].Cells.Find('姓名');
DesRange:=DesRange.offset[1]; //在查找到的单元格向下偏移1
Row:=DesRange.Row; //开始的行号
Column:=DesRange.Column; //列号
i:=1;
while i<10 do
begin
ExcelApp.WorkSheets[1].Cells[Row,Column]:='love my wife';//写入数据
I:=I+1;
Row:=Row+1;
end;
ExcelApp.Visible:=True;
finally
End;
end;
相关文档：
如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer� ......
转载自：http://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice技术的出现将各种开发技术和语言完全的融合了，下面就这种融合在C#和delphi之间的交互做一次全面的体现
1.使用C#创建一个Webservice服务。
使用vs2005的模板创建C#的webservice非常容易。原文件如下:
[WebService(Namespace ......
function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55. ......
dynamic就是它是动态方法，没有静态地址，所以速度慢一点
virtual是虚方法，如果在基类中不声明成虚方法的话，继承后，该方法会提示一警告信息，把基类中方法屏蔽掉了
---------------------------------------------------------------
动态（Dynamic）和虚拟（Virtual）后都可以使用Override关键字在派生类中对对应 ......
[code=Delphi(Pascal)]
unit uThreadPool;
{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }
interface
uses
Windows,
Classes;
// 是否记录日志
// {$DEFINE NOLOGS}
type
TCriticalSection = class(TObject)
protected
FSec ......
