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

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);


Ïà¹ØÎÊ´ð£º

ACCESSµÄ×Ô¶¨Ò庯ÊýÔÚdelphiÀïÔõôÓÃÄØ...

ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()

¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...

Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!


(ÔÚA ......

ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ

ÕâÓïÑÔºÃÄѰ¡  ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......

תÌùÒ»·â£ºDelphi³ÌÐòÔ±ÏÖ×´£¨ÕÐÆ¸¸ÐÏë¡¢ÕÐÆ¸ÊÔÌ⣩

Á½¸öÔÂǰ£¬¿ªÊ¼ÕÐÆ¸Delphi³ÌÐòÔ±£¬ÕÐÆ¸Ç°ËæÊÖдÁ˼¸µÀÌ⣬ÓÃÀ´±ÊÊÔ¡£
    µ½ÏÖÔÚ»¹Ã»ÓÐÕе½ÈË£¬ºÜÎÞÄΣ¬±ê×¼ÉõÖÁ½µµ½Ö»ÒªÄÜ×öµÚ1¡¢3¡¢5Ìâ¾Í¼ÓõÄˮƽ¡£½á¹û¾¹È»Ã»ÓÐÈËÄܹ»½«Õâ3Ìâ¶¼´ð¶Ô¡£ºÜ¶àÈËÁ¬str ......

ÄÄÀïÓÐDelphiµÄÊÓÆµ½Ì³Ì£¿ÐÂÊÖÄÇÖÖµÄ

ÄÄÀïÓÐDelphiµÄÊÓÆµ½Ì³Ì£¿ÐÂÊÖÄÇÖÖµÄ
лл
¼ÓÔÂÁÁQQ£¬È»ºóÈÃÔÂÁÁ¸úÄãÊÓÆµ½²½â£¬Ãâ·ÑµÄÊÓÆµ½²½â

Óкܶ࣬µ«ÌìÏÂûÓÐÃâ·ÑµÄÎç²Í

2Â¥µÄÅóÓÑ ÔÂÁÁÊÇË­£¿

ÒýÓÃ
2Â¥µÄÅóÓÑ ÔÂÁÁÊÇË­£¿


´óÃû¶¥¶¥ ......

ÄÄΪ´óÏºÍÆ¼öÒ»ÏÂdelphi´ò°ü¹¤¾ß

¸çÃÇ£¬µÜÃÇ£¬½ãÃÇ£¬ÃÃÃÇ£¬ ÇëÎÊË­ÓÐÓÃdelphi´ò°ü¹¤¾ßµÄ£¿

´ÓÍøÉÏÏÂÔØµÄҪô°²×°²»ÁË£¬ÒªÃ´Ã»Ê¹ÓÃ˵Ã÷Îĵµ¡£¸øÍƼöÏ£¿

²»Òª¸æËßÎÒ installshield for D7
up

bs sf



End_rbody_59866840//- ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ