ÇóÖúÒ»¸öDelphiÊý×ÖÓÎÏ·´úÂë
Çë´ó¼Ò°ïæ ллÁË ÓÃDelphi±àдһ¸öƽÐÐËıßÐÎ
1
111
11111
111
1
¾ÍÊÇÕâ¸öÑù× ÔÚÕâÀïллÁË
ƽÐÐËıßÐÎ,ÄãÊÇÒªÇó»Í¼»¹ÊÇÊý×ÖÅÅÁÐ?
ÊÇÊý×Ö ÅÅÁÐ ²»Êǻͼ лл´ó¸ç°ï°ïæ
ÄãÄǸöÊÇÁâÐΰ¡,Õâ¸ö²»ÄÑʵÏÖ,Ê×Ïȶ¨ÒåÒ»¸ö
Delphi(Pascal) code:
function HuaLingXing(const MaxA):string;
var
i:integer;
begin
i:=1;
while i<=MaxA do
begin
result:=result+'#13#10' + '1';
i:=i+2;
end;
end;
ÄãÕâ¸öÊÇ¿ØÖÆÌ¨³ÌÐòÂ𣿠ÎÒÏëµÄÊÇÔÚMemoÉÏÏÔʾµÄ
²»ÒªÒâ˼ÉÏÃæÓеãС´íÎó
Delphi(Pascal) code:
function HuaLingXing(const MaxA:integer):string;
var
i:integer;
function LXLine(const ALine:integer):string;
var
j:integer
begin
for j:=1 to ALine do
result:= result + '1';
end;
begin
i:=1;
while i<=MaxA do
begin
result:=result+'#13#10' + LXLine(i);
i:=i+2;
end;
end;
ÕâÊǺ¯Êý,·µ»ØµÄ¾ÍÊÇÄãÐèÒªµÄͼÐÎÁË,²ÎÊý¾ÍÊÇÖмä×î´óµÄÄÇÐеĸöÊý,ÎÒûÓе÷ÊÔÄã¿ÉÒÔÊÔÊÔ
ÄãÄܰÑÄãQQ¸æËßÎÒÂð ÎÒÏëÏòÄãÇë½Ì¼¸¸öÎÊÌâ ÎÒQQ342273794 Óм¸¸öµØ·½²»Ã÷°× ллÁË
ÕâÊÇÒ»¸ö¿ØÖÆÌ¨³ÌÐòÂð£¿
º¯Êý¾ÍÊǺ¯Êý,ÔÚ¿ØÖÆÌ¨¿ÉÒÔÓÃ,ÔÚ·Ç¿ØÖÆÌ¨Ò²¿ÉÒÔÓÃ.¿´À´²»»ù´¡²»Àΰ¡
лл°¡ ¸Õ²ÅÕæ
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌâ¡¢Æ½Ãæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
³ÌÐò×îºóÊä³öÒ»¸öS£¬Writeln('S='£¬S)£» Ϊɶ²»Ö±½Óдwriteln(s)
Writeln(C£¬'¡'£¬d)£»ÊÇɶÒâ˼
Êä³öÊä³öµÈʽ N3=X2—Y2 »òN*N*N=X*X—Y*YΪɶҪд³ÉWriteln(N,'*',N,'*', N,'=', X,'*', X,'— ......