天道酬勤,学无止境

TStringList.Assign

关于 TStringList.Assign - 回复 "u9cm" 的问题

关于 TStringList.Assign - 回复 "u9cm" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/12/29/1230404.html#1416838 譬如有两个 TStringList 对象: List1 和 List2; List2.Assign(List1) 就是把 List1 的内容复制给 List2; List2 := List1 相当于给 List1 再取一个名字. 举例:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var

2021-05-19 02:36:09    分类:博客    TStringList.Assign   程序开发