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);
˧¸ç£¬Ìù¸öÍêÕûµãµÄ°¡£¡ºìÉ«²¿·ÖÊǹؼü£¬ËÖªµÀÄãÊÇզѻ·µÄ£¡
²»¿ÉÒÔ
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¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿
¾ÍÊÇֻдһ¸ö·½·¨
È»ºóȥʵÏÖÕâ¸ö·½·¨£¿
ÈçºÎ¿ÉÒԵϰ¸ÃÈçºÎд£¿
ÓÖÊÇÄãѽ£¬¿ÉÒԵģ¬È磺
unit Base64;
interface
uses SysUtils, Classe ......
delphi7 idhttp1 ÊÇ·ñ¿ÉÒÔÄ£ÄâÊó±êµã»÷ij¸öÇøÓò
ÎÒ²»´òËãÓà webbrowser1 ´òËãÓÃidhttp1 À´ÊµÏÖ Ð¡µÜÇóÖú
¿´²»¶®£¬ÄÄÖÖÄ£ÄâÊó±êµã»÷£¿
1£¬Ê¹Óà »ðºüä¯ÀÀÆ÷2.0ÔÚ¹¤¾ß-Ò³ÃæÐÅÏ¢-±íµ¥- »ñµÃËùÓÐ±íµ¥Ð ......
»¹Ã»Óùý »ØÍ·ÊÔÏÂ
¶À¼Ò£ºDelphi 2010³õÌåÑ飬ÊÇʱºòÅׯúDelphi 7ÁË
http://news.csdn.net/a/20090911/213665.html
Delphi 2010ÒÑÓÚ½üÈÕÓÉEmbarcadero¹«Ë¾·¢²¼¡£×÷ÕßKim Madsen×÷ΪһÃû×ÊÉîµÄD ......
ÏëʹÓÃdelphi×Ô¶¯Éú³É¡°ÄêºóÁ½Î»+Ô·Ý+ËÄλ±àºÅ¡±µÄÁ÷Ë®ºÅ
ÏÖÐÂÔöµÚÒ»Ìõ¼Ç¼µÄʱºòÄÜÉú³É
µÚ¶þÌõµÄʱºòÁ÷Ë®ºÅµÄ×îºóһλ¾ÍûÁË
´ó¼Ò°ïæ¿´¿´ÎҵĴúÂë´íÔÚÄÄÀï
Delphi(Pascal) code:
procedur ......
»¶ÓÈȰ®±à³Ì£¬Ç«ÐéºÃѧµÄÈ˼ÓÈë
ȺÖÐÓÐË
up
ÒýÓÃ
ȺÖÐÓÐË
ÓÐÁÄÌìµÄÈË£¬Ì¸¼¼ÊõµÄÈË¡£
¼ÓÈë¡¡
up
up
up
up
³õѧÕߣ¬¼ÓÈëÒ»¸ö£¡£¡
Up
UP
¼Ó
ÐÂÊÖ++
......