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;
Ïà¹ØÎĵµ£º
ÓÐʱºòÎÒÃÇÐèÒª¿ÉÒÔ¸ßËÙ¼ìË÷µÄÁÐ±í£¬×ÔÈ»»áÏëµ½¹þÏ£±í£¬Æ½Ê±ÎÒÃÇ¿ÉÄÜÏëµ½ÓÃIniFilesµ¥ÔªÀïµÄTHashedStringList£¬µ« THashedStringListÿ´ÎÐÂÔöÒ»¸öItemºó¶¼ÐèҪˢÐÂÒ»±é£¬Êý¾Ý¶àÁË¿ÉÄÜ»áÓеãÂý£¬¸Ð¾õ²»Ì«ºÃ£¬¶øTStringHashÔòÖ»ÄÜ´æ IntegerÐ͵Ä(ËäÈ»ÎÒÃÇ¿ÉÒ԰ѱðµÄ¶«Î÷Ç¿ÖÆ×ª³ÉÕûÐÍ´æ½øÈ¥£¬µ«¸Ð¾õ²»Ì«ºÃ)¡£TStringHashÒÑ¾Ê ......
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Bu ......
ÀûÓÃÄÚ´æÁ÷À´ÅжÏÎļþµÄ¸ñʽ£¬ÆäʵÅжÏÎļþµÄǰ¼¸¸ö×ֽھͿÉÒÔ¼òµ¥µÄÅжÏÕâ¸öÎļþÊÇʲôÀàÐ͵ÄÎļþ¡£
procedure TFrm.CheckImgType(Sender: TObject);
var //ÉùÃ÷±äÁ¿
MyImage:TMemoryStream; //ÄÚ´æÁ÷¶ÔÏó
Buffer:Word;
i:integer;
beg ......
Ëæ×ÅÍøÂçµÄÈÕÒæÆÕ¼°£¬RM£¨Real Media£©¸ñʽµÄ¶àýÌåÎļþÓÉÓÚѹËõ±È¸ß¶øÊܵ½ÊÀ½ç·¶Î§µÄÈÏͬºÍ»¶Ó¡£°²×°ÍêRealPlayerÖ®ºó£¬ÏµÍ³Öн«»á±»¼ÓÈëÒ»¸ö²¥·ÅRM¸ñʽµÄActiveX¿Ø¼þ£¬ÎÒÃǾÍÊÇÀûÓÃÕâ¸ö¿Ø¼þÀ´ÊµÏÖRM¸ñʽÎļþµÄ²¥·Å¡£
1¡¢°²×°ActiveX¿Ø¼þ
µã»÷Component²Ëµ¥ÏµÄImport ActiveX ControlÑ¡Ï¾Í»á³öÏÖÒ»¸öÏÖÔڿɰ²×°µÄ ......