Çë½Ì¹ØÓÚ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;
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÊÇÄĸö£¿
windowsµÄapi£¿
±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödLLÎÒûÓÐÔ´Âë¡£´óСд¾ø¶ÔÕýÈ·
dllÀïÃæµÄÒ»¸öCloseCommPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º
5¡¢CloseCommPort
VOID PASCAL CloseCommPort(HANDLE hCom) ......
ÀϲúƷά»¤ÎÊÌ⣬
Delphi °æ±¾£ºdelphi6
Èç¹ûн¨Ò»¸öApplication,
ÓÃÒ»ÏÂCode¿ÉÒÔ»ñµÃÕýÈ·µÄHandle
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle ......