AList:TStringList;AList:=TStringList.Create;
AList.Add(Edit1.Text);
AList.Add(Edit2.Text);AList.Text是你要的字串在另一程序中也用
BList.Text:=AList.Text;
Edit1.Text:=bList.String[0];
Edit2.Text:=bList.String[1];
AList.Add(Edit1.Text);
AList.Add(Edit2.Text);AList.Text是你要的字串在另一程序中也用
BList.Text:=AList.Text;
Edit1.Text:=bList.String[0];
Edit2.Text:=bList.String[1];
比如可以这样
button1.tag := 1;
button2.tag :=2;然后共用一个过程
procedure button1click(sender.Tobject);
begin
case Tbutton(sender).tag of
1: showmessage('button1 is clicked!');
2: showmessage('button2 is clicked!');
end;
end;
http://www.csdn.net/expert/topic/584/584477.xml?temp=.4200098