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

delphiÖÐcopyº¯ÊýµÄÎÊÌâ

edit2.Text:=edit2.Text+l.Strings[i]+',';
edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1);
ΪʲôÊä³öµÄ½á¹ûÀïûÓÐÁ˶ººÅ£¬±ÈÈç˵ÊäÈë11£¬10£¬12£¬13£¬18Êä³öÊÇ1011121318
Èç¹ûÈ¥µô-1µÄ»°¶ººÅ»¹ÓÐ10£¬11£¬12£¬13£¬18£¬
ÖÐÎĵĶººÅ£¿£¡

Ó¢ÎĵÄ

LÊÇÔõô¶¨ÒåµÄ

edit2.Text:=copy(edit2.Text,0,length(edit2.Text)-1);

ÒýÓÃ
edit2.Text:=edit2.Text+l.Strings[i]+',';
edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1);
ΪʲôÊä³öµÄ½á¹ûÀïûÓÐÁ˶ººÅ£¬±ÈÈç˵ÊäÈë11£¬10£¬12£¬13£¬18Êä³öÊÇ1011121318
Èç¹ûÈ¥µô-1µÄ»°¶ººÅ»¹ÓÐ10£¬11£¬12£¬13£¬18£¬

˧¸ç£¬Ìù¸öÍêÕûµãµÄ°¡£¡ºìÉ«²¿·ÖÊǹؼü£¬Ë­ÖªµÀÄãÊÇզѭ»·µÄ£¡

ÒýÓÃ
LÊÇÔõô¶¨ÒåµÄ
²»¿ÉÒÔ
L¶¨ÒåµÄÊÇtstringlist

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private


Ïà¹ØÎÊ´ð£º

Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿

Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿


¾ÍÊÇֻдһ¸ö·½·¨

È»ºóȥʵÏÖÕâ¸ö·½·¨£¿

ÈçºÎ¿ÉÒԵϰ¸ÃÈçºÎд£¿
ÓÖÊÇÄãѽ£¬¿ÉÒԵģ¬È磺
unit Base64;

interface

uses SysUtils, Classe ......

delphi idhttp1 ÊÇ·ñ¿ÉÒÔÄ£ÄâÊó±êµã»÷ij¸öÇøÓò

delphi7 idhttp1 ÊÇ·ñ¿ÉÒÔÄ£ÄâÊó±êµã»÷ij¸öÇøÓò

ÎÒ²»´òËãÓà webbrowser1 ´òËãÓÃidhttp1 À´ÊµÏÖ Ð¡µÜÇóÖú
¿´²»¶®£¬ÄÄÖÖÄ£ÄâÊó±êµã»÷£¿



1£¬Ê¹Óà »ðºüä¯ÀÀÆ÷2.0ÔÚ¹¤¾ß-Ò³ÃæÐÅÏ¢-±íµ¥- »ñµÃËùÓÐ±íµ¥Ð ......

¶À¼Ò£ºDelphi 2010³õÌåÑ飬ÊÇʱºòÅׯúDelphi 7ÁË

»¹Ã»Óùý »ØÍ·ÊÔÏÂ

¶À¼Ò£ºDelphi 2010³õÌåÑ飬ÊÇʱºòÅׯúDelphi 7ÁË
http://news.csdn.net/a/20090911/213665.html


Delphi 2010ÒÑÓÚ½üÈÕÓÉEmbarcadero¹«Ë¾·¢²¼¡£×÷ÕßKim Madsen×÷ΪһÃû×ÊÉîµÄD ......

delphi×Ô¶¯Éú³ÉÁ÷Ë®ºÅ

ÏëʹÓÃdelphi×Ô¶¯Éú³É¡°ÄêºóÁ½Î»+Ô·Ý+ËÄλ±àºÅ¡±µÄÁ÷Ë®ºÅ
ÏÖÐÂÔöµÚÒ»Ìõ¼Ç¼µÄʱºòÄÜÉú³É
µÚ¶þÌõµÄʱºòÁ÷Ë®ºÅµÄ×îºóһλ¾ÍûÁË
´ó¼Ò°ïæ¿´¿´ÎҵĴúÂë´íÔÚÄÄÀï
  Delphi(Pascal) code:

procedur ......

delphi QQȺ 93282714

»¶Ó­ÈȰ®±à³Ì£¬Ç«ÐéºÃѧµÄÈ˼ÓÈë
ȺÖÐÓÐË­

up

ÒýÓÃ
ȺÖÐÓÐË­

ÓÐÁÄÌìµÄÈË£¬Ì¸¼¼ÊõµÄÈË¡£

¼ÓÈë¡­¡­

up
up
up
up

³õѧÕߣ¬¼ÓÈëÒ»¸ö£¡£¡

Up

UP

¼Ó

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