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

DelphiÖÐFormat×Ö·û´®ËµÃ÷

DelphiÖÐFormat×Ö·û´®ËµÃ÷
function Format(const Format: string; const Args: array of const):
string;
Format×Ö·û´®ËµÃ÷£º
"%" [index ":"] ["-"] [width] ["." prec] type
(1)
¸ñʽ»¯×Ö·û´®±ØÐëÒÔ%¿ªÍ·
(2) [index ":"]
Ë÷ÒýÖ¸µÄÊÇArgs²ÎÊýÁбíÖÐÒªÏÔʾµÄÿһÏîµÄÐòºÅ¡£±ÈÈ磺ArgsÊÇ
                 
['a',
'c']£¬ÄÇô'a'µÄË÷Òý¾ÍÊÇ0£¬¶ø'c'µÄË÷Òý¾ÍÊÇ1£¬¶øÇÒÓÉÓÚÖ»ÓÐ
                 
Á½ÏËùÒԾͲ»»á³öÏÖ´óÓÚ1µÄË÷ÒýÖµ¡£
                 
Format('%2:s %1:s %0:s', ['1st', '2nd',
'3rd']);
                 
½á¹û£º'3rd 2nd 1st'
(3) ["-"]
Õâ¸ö±êʶ·ûµÄ×÷ÓÃÊǵ±ÒªÏÔʾµÄ×Ö·ûµÄ¸öÊýÉÙÓÚ[width]ʱ£¬ÔÚÓÒ±ßÌî²¹¿Õ¸ñ£»
           
Èç¹ûû¼ÓÉÏ["-"]£¬ÔòÔÚ×ó±ßÌî²¹¿Õ¸ñ¡£
           
Format('(%4s)', ['aa']); ½á¹û£º' aa'
(4) [width]
¿í¶È
             
¹æ¶¨ÁËÒªÏÔʾµÄ×Ö·ûµÄ¸öÊý¡£Èç¹ûÒªÏÔʾµÄ¿í¶È´óÓÚ[width]£¬Ôò°´Êµ¼ÊµÄ
             
¿í¶ÈÀ´ÏÔʾ£»·´Ö®£¬ÔòÌî²¹¿Õ¸ñ»ò°´ÒªÇóÌî²¹ÆäËü×Ö·û¡£
(5) ["." prec]
¾«¶È
                
ÕâÊÇÕë¶Ô¸¡µãÊýÀ´ËµµÄ£¬Ò»°ã¾ÍÊÇָСÊýµãºóµÄλÊý¡£
(6) type ÀàÐÍ(¼ûÏÂÃæ)
typeµÄ¿ÉÄÜÖµÓÐÏÂÁÐÕâЩ£º
(1) d
ÓзûºÅÊ®½øÖÆÊý
       
Args±ØÐëÊÇÓзûºÅÕûÐÍÊý¡£Èç¹ûÔÚ¸ñʽ»¯×Ö·û´®Öл¹¼ÓÈëÁË["."
prec]£¬ÔòÈç¹ûArgs
       
µÄ³¤¶ÈÈç¹ûСÓÚ¸ø³öµÄ¾«¶ÈÊýʱ£¬ÔÚÇ°±ßÌî²¹0£»Èç¹û´óÓÚ¾«¶ÈÊý£¬°´Êµ¼Ê³¤¶ÈÏÔÊ


Ïà¹ØÎĵµ£º

delphi Éú³Éxml ·½·¨ Óë delphi txtÎļþ²Ù×÷

Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>ÕÅÈý</name><sex>ÄÐ</sex></user>';
sh ......

delphi dll ʵÀý Óë dll´°ÌåʵÀý

delphi dll ʵÀý Óë dll´°ÌåʵÀý
±¾¶¯Ì¬Á´½Ó¿â·½·¨ÓÐ
Min,Max,SynAPP,ShowForm,showmyform
dll¹¤³ÌÎļþ
Library Project1;
uses
  dllUnit1 in 'dllUnit1.pas' {Form1};
function Min(X, Y: Integer): Integer; export;
begin
if X < Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): ......

delphi dll ¾²Ì¬µ÷ÓúͶ¯Ì¬µ÷Ó÷½·¨×ܽá

dll µ÷Ó÷½·¨ÓÐ ¾²Ì¬µ÷ÓúͶ¯Ì¬µ÷ÓÃÁ½ÖÖ·½·¨
Óõ½µÄdllΪÉÏƪÎÄÕÂËù±àдµÄdll.
×ܽáÈçÏ£º
Unit Unit1;
Interface
Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
Type
  TForm1 = Class(TForm)
    Button1: TButton; ......

¡¾×ª¡¿delphi¶ÁдtxtÎļþ

http://meidi152.blog.163.com/blog/static/5423302009610103610744/
 
1. memo¿Ø¼þ¶ÁÈ¡txt
memo1.Lines.LoadfromFile('E:\*\*.txt');
2.
Procedure NewTxt(FileName:String);
Var
F : Textfile;
Begin
if fileExists(FileName) then DeleteFile(FileName); {¿´ÎļþÊÇ·ñ´æÔÚ,ÔÚ¾Í刪³ý}
AssignFile(F, ......

ÔÚDelphiÖнâÃÜMagento¼ÓÃܵÄÐÅÓÿ¨ºÅ

ÎÊÌâ±³¾°£º
       ¹«Ë¾Ï£ÍûʹÓÃMagentoÀ´½øÐнӵ¥£¬¶øºó°Ñ¶©µ¥µ¼Èëµ½Ò»¸öERPϵͳÖÐ(¶©µ¥´¦ÀíÒýÇæ)¡£
ÎÊÌ⣺
       ÔÚʹÓÃWebService´ÓMagentoÖлñÈ¡PaymentÐÅϢʱ£¬ÐÅÓÿ¨ÊDZ»¼ÓÃܵÄ(·¨Âɹ涨²»ÔÊÐíÔÚÊý¾Ý¿âÖд洢ÐÅÓÿ¨µÄÃ÷ÎÄÐÅÏ¢)£¡
      ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ