Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Çë½Ì¹ØÓÚdelphi¶ÁÈ¡×Ö·û´®µÄÎÊÌâ

ÎÒÏÖÔÚÒª¶ÁÈ¡Ò»¸öTXTÎļþ ÀïÃæ ´æ·ÅµÄ¸ñʽÊÇÕâÑù´ø¸ñʽµÄ

Êý¾Ý1----Êý¾Ý2----Êý¾Ý3----Êý¾Ý4

ÎÒÏëʵÏÖ·Ö±ð¶ÁÈ¡ Êý¾Ý1  Êý¾Ý2  Êý¾Ý3  Êý¾Ý4

ÇëÎÊdelphiÏÂÓÐʲôºÃµÄ·½·¨Â𣿠±¾ÈËÐÂÊÖ¶Ô×Ö·û´®´¦Àí²»Êì¡£

¿ÒÇë¸ßÊÖ°ï棡£¡
1¡¢Èç¹ûÊý¾Ý¸ñʽºÍ´óС¹Ì¶¨£¬ÄÇô½¨ÒéÄ㶨ÒåÒ»¸ö¼Ç¼ÀàÐÍ£¬È»ºóÓüǼ¶ÁÈ¡¡£
2¡¢Èç¹ûÊý¾Ý¸ñʽºÍ´óС²»¹Ì¶¨£¬ÄÇô¾ÍÒª±È½ÏÌØÕ÷ÂëÁË£¬ÈçÄã¸ø³öµÄ¡°----¡±£¬Óøö¼ÆÊýÆ÷£¬¼Ç¼ÿ´ÎÓöµ½µÄ¡°-¡±Ö±µ½Óöµ½·Ç¡°-¡±±àÂë,Èç¹ûÊÇÁ¬Ðø4¸ö£¬ÔòÈ϶¨ÎªÌØÕ÷Â룬²»ÊÇÁ¬Ðø4¸ö£¬¾ÍÇåÁã¼ÆÊýÆ÷¡£
2µÄ¾ßÌå×ö·¨¾ÍÊǶ¨ÒåÒ»¸ö×ֽڿ飬ȻºóÓÃRead»òBlockReadÌî³ä×ֽڿ飬Ȼºó±éÀúËý£¬ËÑË÷ÌØÕ÷Âë¡£
¸øÁËÄã˼·ºÍ·½·¨£¬µ«ÎÒ²»»á¸ø³ö´úÂ룬ÄÇÊÇÄã×ÔÓÉ·¢»ÓµÄÎÊÌâÁË¡£
àÅ£¬ÎÒ¾õµÃ°ïÈËÒ²Òªµãµ½¼´Ö¹£¬¹ý¶ÈÈÈÇ飬°ïÄã²Ù°ìÒ»Çз´¶øÊǺ¦Äã¡£

¸øÄã¸öº¯Êý£¬ÒÔÇ°´ÓÍøÉÏÕª³­ºó×Ô¼º¸ÄµÄ£¬Ï£ÍûÄܶÔÄãÓÐËù°ïÖú

Delphi(Pascal) code:
function SplitString(Source, Deli: string): TStringList; stdcall;
var
EndOfCurrentString: byte;
StringList: TStringList;
begin
StringList := TStringList.Create;
while Pos(Deli, Source) > 0 do
begin
EndOfCurrentString := Pos(Deli, Source);
StringList.add(Copy(Source, 1, EndOfCurrentString - 1));
Source := Copy(Source, EndOfCurrentString + length(Deli), length(Source) - EndOfCurrentString);
end;
Result := StringList;
StringList.Add(source);
end;



Ïà¹ØÎÊ´ð£º

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

delphi±£´æµÄÎÊÌâ

ÎÒÿ´Î±£´æµÄʱºò¶¼ÊÇÈ«²¿±£´æ
µ«ÊÇÓÐЩÓò»µ½
ÎÒÏëÎÊÏÂ
±£´æµÄÄÇЩÄÄЩÊÇÓÐÓÃµÄ ±ÈÈçdfmÕâ¸öºó׺µÄËûÓÐʲôÓÃ
»¹ÓÐÆäËûµÄºó׺µÄËûÃǶ¼ÓÃʲôÓã¿
Ò»°ãÀ´Ëµ£¬±£´æ.dpr, .res, .pas, .dfm¾Í¹»ÁË

dfm´ ......

delphi paradoxÊý¾Ý¿â

DBGridÁ¬½ÓÊý¾Ý¿âÎļþ£¬ÔÚQueryµÄCachedUpdateΪFalseµÄʱºòÒ»Çж¼Õý³££¬²åÈ룬ɾ³ý
µ±ÎÒ°ÑCachedUpdate¸ÄΪTrueʱ£¬²åÈë±í¾Í»áÌáʾ"Table is not indexed"£¬Èç¹û½¨Á¢Ö÷¼üË÷Òý¾Í¿ÉÒÔÁË£¬µ«ÊÇÎÒµÄÊý¾Ý±í ......

Delphi Services ÀïÃæFindwindow ÎÊÌâ

ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6

Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......

Delphi ʹÓÃshockwaveflash¿Ø¼þµÄÎÊÌâ

ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐòתÒƵ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ