delphi memo¼ÈëÎÊÌâ
ÎÒÏëÒ»¸ö memo Á½¸öbutton Ò»¸öedit
memoÖе¼ÈëÎı¾ È»ºóµã»÷Ò»´Î button edit1.txt ×Ô¶¯Ìí¼ÓÒ»ÐÐmemo
Ôٴεã»÷ Ìí¼ÓmemoÏÂÒ»ÐÐÎı¾ ÈçºÎʵÏÖ
ÎҵĴúÂëÊÇ
==
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.FileName);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer ;
k:string ;
begin
label1.Caption:='0';
k:=label1.Caption;
i:=0;
j:=memo1.Lines.Count ;
if i <>j then
edit1.Text:= memo1.Lines[i] ;
i:=i+1 ;
i:=strtoint(k);
label1.Caption:= k ;
=====
Ã²ËÆ¹¦ÄÜʵÏÖ²»ÁË ÇëÐÞÕýÏÂ
¶¨ÒåÒ»¸öÈ«¾Ö±äÁ¿l;
procedure TForm1.FormShow(Sender: TObject);//³õʼ»¯±äÁ¿lֵΪ0
begin
l:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=memo1.Lines.Strings[l];
inc(l);
end;
Â¥ÉϵĻù±¾¶Ô£¬²»¹ýÓ¦¸ÃÔÚµ÷ÈëÎı¾ÎļþÖ®ºóÇå0£º
procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
memo1.Lines.LoadfromFile(opendialog1.FileName);
l:=0;
end;
end
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=memo1.Lines.Strings[l];
inc(l);
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É
Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
Á½¸öÔÂǰ£¬¿ªÊ¼ÕÐÆ¸Delphi³ÌÐòÔ±£¬ÕÐÆ¸Ç°ËæÊÖдÁ˼¸µÀÌ⣬ÓÃÀ´±ÊÊÔ¡£
µ½ÏÖÔÚ»¹Ã»ÓÐÕе½ÈË£¬ºÜÎÞÄΣ¬±ê×¼ÉõÖÁ½µµ½Ö»ÒªÄÜ×öµÚ1¡¢3¡¢5Ìâ¾Í¼ÓõÄˮƽ¡£½á¹û¾¹È»Ã»ÓÐÈËÄܹ»½«Õâ3Ìâ¶¼´ð¶Ô¡£ºÜ¶àÈËÁ¬str ......
ÄÄÀïÓÐDelphiµÄÊÓÆµ½Ì³Ì£¿ÐÂÊÖÄÇÖÖµÄ
лл
¼ÓÔÂÁÁQQ£¬È»ºóÈÃÔÂÁÁ¸úÄãÊÓÆµ½²½â£¬Ãâ·ÑµÄÊÓÆµ½²½â
Óкܶ࣬µ«ÌìÏÂûÓÐÃâ·ÑµÄÎç²Í
2Â¥µÄÅóÓÑ ÔÂÁÁÊÇË£¿
ÒýÓÃ
2Â¥µÄÅóÓÑ ÔÂÁÁÊÇË£¿
´óÃû¶¥¶¥ ......
¸çÃÇ£¬µÜÃÇ£¬½ãÃÇ£¬ÃÃÃÇ£¬ ÇëÎÊËÓÐÓÃdelphi´ò°ü¹¤¾ßµÄ£¿
´ÓÍøÉÏÏÂÔØµÄҪô°²×°²»ÁË£¬ÒªÃ´Ã»Ê¹ÓÃ˵Ã÷Îĵµ¡£¸øÍƼöÏ£¿
²»Òª¸æËßÎÒ installshield for D7
up
bs sf
End_rbody_59866840//- ......