易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi实现操作Excel示例

implementation
uses ComOBJ;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var ExcelAPP1:Variant;
    ExcelApp2:Variant;
    I,j: Integer;
    ID,IDX:string;
begin
try
  ExcelAPP1:=CreateOleObject('Excel.Application');
  ExcelAPP1.Workbooks.Open('D:\Program Files\Embarcadero\Projects\操作Excel\奖.xls');
  ExcelAPP2:=CreateOleObject('Excel.Application');
  ExcelApp2.Workbooks.Open('D:\Program Files\Embarcadero\Projects\操作Excel\贫2.xls');
  for I := 2 to 610 do 
  begin
    Label1.Caption:=IntToStr(i)+'行';
    ID:=trim(ExcelAPP1.cells[I,2].value);
    for j := 4 to 549 do   
    begin
      IDX:=trim(ExcelAPP2.cells[j,4].value);
      if (IDX=ID) then
      begin
        ExcelAPP1.cells[i,12].value:='已建档';
        Break;
      end;
    end;
  end;
  Label1.Caption:='全部完成,正在保存......';
  ExcelAPP1.Save;   
  Label1.Caption:='全部完成,已保存';
finally
  ExcelAPP1.WorkBooks.Close;
  ExcelAPP1.Quit;
  ExcelApp2.WorkBooks.Close;
  ExcelAPP2.Quit;
end;
end;


相关文档:

delphi 判断网络是否连通的方法

uses WinInet;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if InternetGetConnectedState(nil, 0) then
    ShowMessage('已连接')
  else
    ShowMessage('已断开');
end; ......

delphi 将汉字翻译成拼音缩写的函数介绍

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
 &n ......

DELPHI 实现内存修改的方法


注意:本文仅供技术交流,请勿用于非法用途。
要修改指定程序的指定地址数据,我们需要用到两个api函数,分别是ReadProcessMemory和WriteProcessMemory。
下载是函数的定义:
ReadProcessMemory
Reads data from an area of memory in a specified process. The entire area to be read must be accessible or the op ......

一名Delphi程序员的开发习惯

一.建立工程目录
   首先,第一步要做的,当然是给新项目建一个单独的目录(别笑)。目录名称与项目名称同名,或者另取一个也可,只要清楚、简练。然后,在此目录中创建以下各个目录:
   <Doc>:用来存放该项目相关的开发文档(需求说明,概要设计,详细设计等等等等);
   < ......

Delphi压缩图片代码

添加引用:uses JPEG;
//=====================图片处理函数,将覆盖原图片文件===========================
//=====filename:图片完整路径  PressQuality:压缩质量 Width:宽  Height:高
function CompressMainFun(filename: String; PressQuality,Width,Height:integer): Boolean;
var
  bmp: TBitmap ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号