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
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
Delphi¿ÉÒÔ²»Ð´Ààֻд·½·¨Âð£¿
¾ÍÊÇֻдһ¸ö·½·¨
È»ºóȥʵÏÖÕâ¸ö·½·¨£¿
ÈçºÎ¿ÉÒԵϰ¸ÃÈçºÎд£¿
ÓÖÊÇÄãѽ£¬¿ÉÒԵģ¬È磺
unit Base64;
interface
uses SysUtils, Classe ......
ÈçÌ⣬ÓÐ2Äê¾ÑéµÄÅóÓÑ£¬·¢µ½ÎÒµÄÓÊÏ䣺19618033@qq.com¡£
½ØÖ¹10ÔÂ28ÈÕ¡£
´ó¸ç£¬×ܵĸø¸öµ¥Î»½éÉÜɶµÄ°É
ÒýÓÃ
´ó¸ç£¬×ܵĸø¸öµ¥Î»½éÉÜɶµÄ°É
×¥À͹¤»¹ÒªÊ²Ã´½éÉܰ¡£¡
Ŷ ÉϵÛ
kampan,ÉúÁËÒ² ......
Ϊʲô´íÎó
procedure TForm1.btn1Click(Sender: TObject);
var
xml:TXMLDocument;
node:IXMLNode;
begin
xml:=TXMLDocu ......
ºÃ¾ÃûÓóÌÐòÁË£¬·¢ÏÖdelphi 7 ÓеãÂäÎéÁË¡£
ÏÈÏëѧϰÆäËû±à³Ì¹¤¾ß£¬»òÕß×îаæµÄdelphi£¬Çë´ó¼ÒÍÆ¼öÍÆ¼ö¡£
·½ÏòÓÐûÓж¨ÏÂÀ´?ÓÐÄ¿±ê²ÅºÃÑ¡¹¤¾ß°¡
ÄǾÍѧC££°É
Èí¼þÒªÇó£¬ÀàËÆdelphi7µÄ±à³Ì»·¾³£¬Ï²»¶ ......