delphi Êý×é¸úfor
ÈçºÎÓÃÊý×é¸úfor´òÓ¡³öÏÂÃæµÄͼÐÎ
*
**
***
****
Èç¹ûÓиüºÃµÄ·½·¨×îºÃҲдÉÏ XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: Integer;
stra,strb : string;
begin
setlength(arr,4);
for i := 0 to 3 do
begin
arr[i] := i+1;
end;
for i := 0 to high(arr) do
begin
stra := '';
for j := 0 to i do
begin
stra := stra + '*';
end;
strb := strb + stra + #13;
end;
ShowMessage(strb);
end;
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ
·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡¡*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
ÎÒÏëÒ»¸ö memo Á½¸öbutton Ò»¸öedit
memoÖе¼ÈëÎı¾ È»ºóµã»÷Ò»´Î button edit1.txt ×Ô¶¯Ìí¼ÓÒ»ÐÐmemo
Ôٴεã»÷ Ìí¼ÓmemoÏÂÒ»ÐÐÎı¾ ÈçºÎʵÏÖ
ÎҵĴúÂëÊÇ
==
procedure TForm1.Button2C ......
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥
ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ
È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷
ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......