//¶¨Òå¼û3¡£
7¡£ÊôÐÔÁбí
×ÖÌå·ç¸ñ:font-style: [normal  italic  oblique];
×ÖÌå´óС:font-size: [xx-small  x-small  small  medium  large  x-large  xx-large  larger  smaller  <³¤¶È>  <°Ù·Ö±È>]
Îı¾ÐÞÊÎ:text-decoration:[ underline  overline  line-through  blink ]
Îı¾×ª»»:text-transform:[none  capitalize  uppercase  lowercase]
±³¾°ÑÕÉ«:background-color:[<ÑÕÉ«>  transparent]
±³¾°Í¼Ïó:background-image:[  none]
Ðиß:line-height: [normal  <Êý×Ö>  <³¤¶È>  <°Ù·Ö±È>]
±ß¿òÑùʽ:border-style: [ none  dotted  dashed  solid  double  groove  ridge  inset  outset ]
Ư¸¡:float: [left  right  none]
8¡£³¤¶Èµ¥Î»
Ïà¶Ôµ¥Î»:
em (em,ÔªËصÄ×ÖÌåµÄ¸ß¶È) 
ex (x-height,×Öĸ "x" µÄ¸ß¶È) 
px (ÏñËØ,Ïà¶ÔÓÚÆÁÄ»µÄ·Ö±æÂÊ) 
¾ø¶Ô³¤¶È:
in (Ó¢´ç,1Ó¢´ç=2.54ÀåÃ×) 
cm (ÀåÃ×,1ÀåÃ×=10ºÁÃ×) 
mm (Ã×) 
pt (µã,1µã=1/72Ó¢´ç) 
pc (ÅÁ,1ÅÁ=12µã) 
¡ó[delphi]vclÖÆ×÷¼òÒª²½Öè
1.´´½¨²¿¼þÊôÐÔ·½·¨Ê¼þ
(½¨Á¢¿âµ¥Ôª,¼Ì³ÐΪеÄÀàÐÍ,Ìí¼ÓÊôÐÔ¡¢·½·¨¡¢Ê¼þ,×¢²á²¿¼þ,½¨Á¢°üÎļþ)
2.ÏûÏ¢´¦Àí
3.Òì³£´¦Àí
4.²¿¼þ¿ÉÊÓ
¡ó[delphi]¶¯Ì¬Á¬½Ó¿âµÄ×°ÔØ
¾²Ì¬×°ÔØ:procedure name;external 'lib.dll';
¶¯Ì¬×°ÔØ:var handle:thandle;
handle:=loadlibrary('lib.dll');
if handle<>0 then
begin
{dosomething}
freelibrary(handle);
end;
¡ó[delphi]Ö¸Õë±äÁ¿ºÍµØÖ·
var x,y:integer;p:^integer;//Ö¸Ïòinteger±äÁ¿µÄÖ¸Õë
x:=10;//±äÁ¿¸³Öµ
p:=@x;//±äÁ¿xµÄµØÖ·
y:=p^;//Ϊy¸³ÖµÖ¸Õëp
@@procedure//·µ»Ø¹ý³Ì±äÁ¿µÄÄÚ´æµØÖ·
¡ó[delphi]ÅжÏ×Ö·ûÊǺº×ÖµÄÒ»¸ö×Ö·û
bytetype('ÄãºÃhahaÂð',1) = mbleadbyte//ÊǵÚÒ»¸ö×Ö·û
bytetype('ÄãºÃhahaÂð',2) = mbtrailbyte//Êǵڶþ¸ö×Ö·û
bytetype('ÄãºÃhahaÂð',5) = mbsinglebyte//²»ÊÇÖÐÎÄ×Ö·û
¡ó[delphi]memoµÄ¶¨Î»²Ù×÷
memo1.lines.delete(0)//ɾ³ýµÚ1ÐÐ
memo1.selstart:=10//¶¨Î»10×Ö½Ú´¦
¡ó[delphi]»ñµÃË«×Ö½Ú×Ö·ûÄÚÂë
function getit(s: string): integer;
begin
result := byte(s[1]) * $100 + byte(s[2]);
end;
ʹÓÃ:getit('¼Æ')//$bcc6 ¼´Ê®½øÖÆ 48326
¡ó[delphi]µ÷ÓÃaddÊý¾Ý´æ´¢¹ý³Ì
´æ´¢¹ý³ÌÈçÏÂ:
create procedure addrecord(
record1 varchar(10)
record2 varchar(20)
)
as
begin
insert into tablename (field1,field2) values(:record1,:record2)
end
Ö´Ðд洢¹ý³Ì:
execute procedure addrecord("urrecord1","urrecord2") 
¡ó[delphi]½«Îļþ´æµ½blob×Ö¶ÎÖÐ
function blobcontenttostring(const filename: string):string;
begin
with tfilestream.create(filename,fmopenread) do
try
setlength(result,size);
read(pointer(result)^,size);
finally
free;
end;
end;
//±£´æ×Ö¶Î
begin
if (opendialog1.execute) then
begin
sfilename:=opendialog1.filename;
adotable1.edit;
adotable1.fieldbyname('visio').asstring:=blobcontenttostring(filename);
adotable1.post;
end;
¡ó[delphi]°ÑÎļþÈ«²¿¸´ÖƵ½¼ôÌù°å
uses shlobj,activex,clipbrd;
procedure tform1.copytoclipbrd(var filename:string);
var
fe:tformatetc;
medium: tstgmedium;
dropfiles:pdropfiles;
pfile:pchar;
begin
fe.cfformat := cf_hdrop;
fe.dwaspect := dvaspect_content;
fe.tymed := tymed_hglobal;
medium.hglobal := globalalloc(gmem_share or gmem_zeroinit, sizeof(tdropfiles)+length(filename)+1);
if medium.hglobal<>0 then begin
medium.tymed := tymed_hglobal;
dropfiles := globallock(medium.hglobal);
try
dropfiles^.pfiles := sizeof(tdropfiles);
dropfiles^.fwide := false;
longint(pfile) := longint(dropfiles)+sizeof(tdropfiles);
strpcopy(pfile,filename);
inc(pfile, length(filename)+1);
pfile^ := #0;
finally
globalunlock(medium.hglobal);
end;
clipboard.setashandle(cf_hdrop,medium.hglobal);
end;
end;
¡ó[delphi]Áоٵ±Ç°ÏµÍ³ÔËÐнø³Ì
uses tlhelp32;
procedure tform1.button1click(sender: tobject);
var lppe: tprocessentry32;
found : boolean;
hand : thandle;
begin
hand := createtoolhelp32snapshot(th32cs_snapall,0);
found := process32first(hand,lppe);
while found do
begin
listbox1.items.add(strpas(lppe.szexefile));
found := process32next(hand,lppe);
end;
end;
¡ó[delphi]¸ù¾Ýbdetable1½¨Á¢Ð±ítable2
table2:=ttable.create(nil);
try
table2.databasename:=table1.databasename;
table2.fielddefs.assign(table1.fielddefs);
table2.indexdefs.assign(table1.indexdefs);
table2.tablename:='new_table';
table2.createtable();
finally
table2.free();
end;
¡ó[delphi]×î²ËÀí½âdll½¨Á¢ºÍÒýÓÃ
//ÏÈ¿´dll source(file-->new-->dll)
library project1;
uses
sysutils, classes;
function addit(f:integer;s:integer):integer;export;
begin
makeasum:=f+s;
end;
exports
addit;
end.
//µ÷ÓÃ(in ur project)
implementation
function addit(f:integer;s:integer):integer;far;external 'project1';//ÉêÃ÷
{µ÷ÓþÍÊÇaddit(2,4);½á¹ûÏÔʾ6}
¡ó[delphi]¶¯Ì¬¶ÁÈ¡³ÌÐò×ÔÉí´óС
function gesselfsize: integer;
var
f: file of byte;
begin
filemode := 0;
assignfile(f, application.exename);
reset(f);
result := filesize(f);//µ¥Î»ÊÇ×Ö½Ú
closefile(f);
end;
¡ó[delphi]¶ÁÈ¡biosÐÅÏ¢
with memo1.lines do 
begin 
add('mainboardbiosname:'+^i+string(pchar(ptr($fe061)))); 
add('mainboardbioscopyright:'+^i+string(pchar(ptr($fe091)))); 
add('mainboardbiosdate:'+^i+string(pchar(ptr($ffff5)))); 
add('mainboardbiosserialno:'+^i+string(pchar(ptr($fec71)))); 
end; 
¡ó[delphi]¶¯Ì¬½¨Á¢mssql±ðÃû
procedure tform1.button1click(sender: tobject);
var mylist: tstringlist;
begin
mylist := tstringlist.create;
try
with mylist do
begin
add('server name=210.242.86.2');
add('database name=db27%);
add('user name=sa');
end;
session1.addalias('testsql', 'mssql', mylist); //«Ø¥ßmssql§O¦W
session1.saveconfigfile;
finally
mylist.free;
session1.active:=true;
database1.databasename:='db27%;
database1.aliasname:='testsql';
database1.loginprompt:=false;
database1.params.add('user name=sa');
database1.params.add('password=');
database1.connected:=true;
end;
end;
procedure tform1.button2click(sender: tobject);
begin
database1.connected:=false;
session1.deletealias('testsql'); §O¦W
end; 
¡ó[delphi]²¥·Å±³¾°ÒôÀÖ
uses mmsystem
//²¥·ÅÒôÀÖ
mcisendstring('open e:\1.mid type sequencer alias nn', '', 0, 0);
mcisendstring('play nn from 0', '', 0, 0);
mcisendstring('close animation', '', 0, 0);
end;
//Í£Ö¹²¥·Å
mcisendstring('open e:\1.mid type sequencer alias nn', '', 0, 0);
mcisendstring('stop nn', '', 0, 0);
mcisendstring('close animation', '', 0, 0);
¡ó[delphi]½Ó¿ÚºÍÀàµÄÒ»¸ö·¶Àý´úÂë
type{½Ó¿ÚºÍÀàÉêÃ÷:Çø±ðÔÚÓÚ²»ÄÜÔÚ½Ó¿ÚÖÐÉêÃ÷Êý¾Ý³ÉÔ±¡¢Èκηǹ«Óеķ½·¨¡¢¹«¹²·½·¨²»Ê¹ÓÃpublic¹Ø¼ü×Ö}
isample=interface//¶¨Òåisample½Ó¿Ú
function getstring:string;
end;
tsample=class(tinterfacedobject,isample)
public
function getstring:string;
end;
//function¶¨Òå
function tsample.getstring:string;
begin
result:='what show is ';
end;
//µ÷ÓÃÀà¶ÔÏó
var sample:tsample;
begin
sample:=tsample.create;
showmessage(sample.getstring+'class object!');
sample.free;
end;
//µ÷ÓýӿÚ
var sampleinterface:isample;
sample:tsample;
begin
sample:=tsample.create;
sampleinterface:=sample;//interfaceµÄʵÏÖ±ØÐëʹÓÃclass
{ÒÔÉÏÁ½ÐÐÒ²¿É±í´ï³Ésampleinterface:=tsample.create;}
showmessage(sampleinterface.getstring+'interface!');
//sample.free;{ºÍ¾Ö²¿À಻ͬ,interfaceÖеÄÀà×Ô¶¯ÊÍ·Å}
sampleinterface:=nil;{ÊͷŽӿڶÔÏó}
end;
¡ó[delphi]ÈÎÎñÌõ¾Í¿´²»µ±³ÌÐò
var
extendedstyle : integer;
begin
application.initialize;
extendedstyle := getwindowlong (application.handle, gwl_exstyle);
setwindowlong(application.handle, gwl_exstyle, extendedstyle or ws_ex_toolwindow and not ws_ex_appwindow);
application.createform(tform1, form1);
application.run;
end. 
¡ó[delphi]alt+ctrl+del¿´²»µ½³ÌÐò
ÔÚimplementationºóÌí¼ÓÉùÃ÷:
function registerserviceprocess(dwprocessid, dwtype: integer): integer; stdcall; external 'kernel32.dll';
registerserviceprocess(getcurrentprocessid, 1);//Òþ²Ø
registerserviceprocess(getcurrentprocessid, 0);//ÏÔʾ
¡ó[delphi]¼ì²â¹âÇý·ûºÅ 
var drive:char;
cdromid:integer;
begin
for drive:='d' to 'z' do
begin
cdromid:=getdrivetype(pchar(drive+':\'));
if cdromid=5 then showmessage('ÄãµÄ¹âÇýΪ:'+drive+'ÅÌ!');
end;
end;
¡ó[delphi]¼ì²âÉù¿¨
if auxgetnumdevs()<=0 then showmessage('no soundcard found!') else showmessage('any soundcard found!');
¡ó[delphi]ÔÚ×Ö·û´®Íø¸ñÖл­Í¼
stringgrid.ondrawcellʼþ
with stringgrid1.canvas do 
draw(rect.left, rect.top, image1.picture.graphic); 
¡ó[sql server]sqlÖдúÌælikeÓï¾äµÄÁíÒ»ÖÖд·¨
±ÈÈç²éÕÒÓû§Ãû°üº¬ÓÐ"c"µÄËùÓÐÓû§, ¿ÉÒÔÓà
use mydatabase 
select * from table1 where username like'%c%" 
ÏÂÃæÊÇÍê³ÉÉÏÃ湦ÄܵÄÁíÒ»ÖÖд·¨: 
use mydatabase 
select * from table1 where charindex('c',username)>0 
ÕâÖÖ·½·¨ÀíÂÛÉϱÈÉÏÒ»ÖÖ·½·¨¶àÁËÒ»¸öÅжÏÓï¾ä,¼´>0, µ«Õâ¸öÅжϹý³ÌÊÇ×î¿ìµÄ, ÎÒÏëÐÅ80%ÒÔÉϵÄÔËË㶼ÊÇ»¨ÔÚ²éÕÒ×Ö 
·û´®¼°ÆäËüµÄÔËËãÉÏ, ËùÒÔÔËÓÃcharindexº¯ÊýҲûʲô´ó²»ÁË. ÓÃÕâÖÖ·½·¨Ò²Óкô¦, ÄǾÍÊǶÔ%,µÈÔÚ²»ÄÜÖ±½ÓÓÃlike 
²éÕÒµ½µÄ×Ö·ûÖпÉÒÔÖ±½ÓÔÚÕâcharindexÖÐÔËÓÃ, ÈçÏÂ: 
use mydatabase 
select * from table1 where charindex('%',username)>0 
Ò²¿ÉÒÔд³É: 
use mydatabase 
select * from table1 where charindex(char(37),username)>0 
asciiµÄ×Ö·û¼´Îª% 
¡ó[delphi]sqlÏÔʾ¶àÊý¾Ý¿â/±í
select distinct a.bianhao,a.xingming, b.gongzi from "jianjie.dbf" a, "gongzi.dbf" b 
where a.bianhao=b.bianhao
¡ó[delphi]rfc(request for comment)Ïà¹Ø
ietf(inte.net engineering task force)ά»¤rfcÎĵµhttp://www.ietf.cnri.reston.va.us
rfc882:±¨ÎÄÍ·±ê½á¹¹
rfc1521:mimeµÚÒ»²¿·Ö,´«Ê䱨ÎÄ·½·¨
rfc1945:¶àýÌåÎĵµ´«ÊäÎĵµ
¡ó[delphi]tnmuuprocessorµÄʹÓÃ
var instream,outstream:tfilestream;
begin
instream:=tfilestream.create(infile.txt,fmopenread);
outstream:=tfilestream(outfile.txt,fmcreate);
nmuue.method:=uucode;{uuencode/decode}
//nmuue.method:=uumime;{mime}
nmuue.inputstream:=instream;
nmuue.outputstream:=outstream;
nmuue.encode;{±àÂë´¦Àí}
//nmuue.decode;{½âÂë´¦Àí}
instream.free;
outstream.free;
end;
¡ó[delphi]tfilestreamµÄ²Ù×÷
//´ÓÎļþÁ÷µ±Ç°Î»ÖöÁcount×Ö½Úµ½»º³åÇøbuffer
function read(var buffer;count:longint):longint;override;
//½«»º³åÇøbuffer¶Áµ½ÎļþÁ÷ÖÐ
function write(const buffer;count:longint):longint;override;
//ÉèÖÃÎļþÁ÷µ±Ç°¶ÁдָÕëΪoffset
function seek(offset:longint;origin:word):longint;override;
origin={sofrombeginning,sofromcurrent,sofromend}
//´ÓÁíÒ»ÎļþÁ÷Öе±Ç°Î»Öø´ÖÆcountµ½µ±Ç°ÎļþÁ÷µ±Ç°Î»ÖÃ
function copyfrom(source:tstream;count:longint):longint;
//¶ÁÖ¸¶¨Îļþµ½ÎļþÁ÷
var myfstream:tfilestream;
begin
myfstream:=tfilestream.create(opendialog1.filename,fmopenread);
end;
[javascript]¼ì²âÊÇ·ñ°²×°ie²å¼þshockwave&quicktime
javascript">
var myplugin = navigator.plugins["shockwave"];
if (myplugin)
document.writeln("ÄãÒѾ­°²×°ÁË shockwave!")
else
document.writeln("ÄãÉÐδ°²×° shockwave!")

javascript">
var myplugin = navigator.plugins["quicktime"];
if (myplugin)
document.writeln("ÄãÒѾ­°²×°ÁËquicktime!")
else
document.writeln("ÄãÉÐδ°²×° quicktime!")

-----------------