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

Delphi ÅÅÁÐ×éºÏ - Delphi / ÓïÑÔ»ù´¡/Ëã·¨/ϵͳÉè¼Æ

±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³ÉÄÄЩ×éºÏ£¿
Çî¾Ù·¨

ÒýÓÃ
±ÈÈç 4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31Õ⼸¸öÊýÖÐÈ¡8¸öÊý
ÔõôµÃ³ö Õâ×éÊý¿ÉÒÔ×é³ÉÄÄЩ×éºÏ£¿


ÎÊÌâ ÊÇÎÒ²»»áд°¡ Äãд¹ýÂð ¿ÉÒÔ·¢¶Î´úÂë ÎҲο¼²Î¿¼Âð

¼òµ¥µÄÓÃforÑ­»·£¬Ò»¸ö¸öÈ¥ÅÅÁÐ

for i := 1 to 8 do
  begin
  for j:= (i+1) to 8 do
  begin
  Memo1.Lines.Add(IntToStr(a[i]) + ',' + IntToStr(a[j]));
  end;
  end;

ÕâÊÇÑ¡³öÊý¾ÝºóÅÅÁеĴúÂ룬µ«Ñ¡³öÊý¾ÝµÄ´úÂëÎÒÒ²²»ÖªµÀ£¬²éÁËÏÂÍøÕ¾ÐèÒªÓõ½µÝ¹é£¬±È½Ï¸´ÔÓ£¬µÈ´ý¸ßÊÖÄܹ»Ð´³ö´ÓM¸öÊýÖÐÈ¡ÖÐN¸öÊýµÄ×éºÏ´úÂë

µÝ¹éËã·¨
Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
s1,s2:string;
str,str1:TStrings;
i,j,m,n:Integer;
begin
s1:=Trim(self.Edit1.Text);//ÕâÀï¾ÍÊÇÄãµÄ×Ö·û´®¡®4£¬6£¬8£¬12£¬16£¬17£¬20£¬28£¬29£¬30£¬31¡¯
s2:=Trim(self.Edit2.Text);//ÕâÀïÊäÈë8
if (s1='') or (s2='') then
Exit;
str:=TStringList.Create;
str.Clear;
str1:=TStringList.Create;
str1.Clear;
self.getn(s1,'',StrToInt(s2),str);
i:=str.Count;
self.Memo1.Lines.Clear;
for j:=0 to i-1 do
begin
s1:=str.Strings[j];
self.Memo1.Lines.Add(s1);
end;
end;

procedure TForm1.getn(ss,


Ïà¹ØÎÊ´ð£º

delphi ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

delphi ×·Òª°æȨ·Ñ£¡£¡ - Delphi / ·Ç¼¼ÊõÇø

ÄãÃÇÓöµ½Õâ¸öÎÊÌâÂð£¿Ê¹ÓÃdelphi µÄʱºò£¬À´ÁËÒ»·âÐÅ¡£ËµÒªÎҽ̰æȨ·Ñ¡£Îһ赹¡£Ôõô°ì£¿
²»ÄÜÔõô°ì,Ò»ÊÇÀíËûÃÇ 2ÊDz»ÀíËûÃÇ

Äã·Å»°½ÐËûÃÇÀ´¹«Ë¾²é¡£¡£¡£¿´ËûÃÇÓе¨Ã»£¿

²»ÀíËûÃǾÍÊÇ£¬µ±Ê±Ò²ÎÊÎÒÃǹ«Ë¾ÒªµÄ ......

delphiÊéд¸ñÔò? - WindowsרÇø / ·Ç¼¼ÊõÇø

ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,´úÂëµÄÿһÐÐҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,ÓеĻ¹ÒªÁíÆðÒ»ÐÐ,Õâ¸öÓй涨Âð?ÒªÔõôд?

ÄѵÀ²»ÄÜÔõÑùдÂð?ÎÒ´ò¸ö±È·½,(.´ú±í³ÌÐò´úÂë)
..............................
......... ......

delphiÊéд¸ñÔò? - Delphi / ·Ç¼¼ÊõÇø

ÔÚÍøÉÏ¿´µ½ºÜ¶àÈËд³ÌÐò´úÂë,дµÄ´úÂëÿһÐж¼ÊÇҪô¾Í¿ÕÒ»¸ö¿Õ¸ñ,Ҫô¾Í¿ÕºÃ¼¸¸ö,Õâ¸öÓй涨Âð?Ôõô¿´?
ÒÔÏÂÊÇÎÒÔÚÍøÉÏÕÒµÄÒ»¶Î³ÌÐò´úÂë
===================================================================== ......

delphi ÐÂÔösheetÎÊÌâ - Delphi / VCL×é¼þ¿ª·¢¼°Ó¦ÓÃ

ÈçºÎʹÐÂÔöµÄsheetÔÚÇ°Ò»¸ösheetºó£¬excelĬÈÏÓÐ3¸ösheet,ÈçÎÒÐÂÔöÒ»¸ösheet4,ÔõÑùʹËüÊDzåÔÚsheet3ºóÄØ£¬¶ø²»ÊDzåÔÚsheet1Ç°£¿
ÓÒ¼ü²»ÐÐÂð£¿

Worksheets.Add ·½·¨ 
¸Ã·½·¨ÓÃÓÚн¨¹¤×÷±í¡£
Function Ad ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ