问专家-如何交换TStrings类的变量

如何交换TStrings类的变量

编号：	QA003569
建立日期：	2000年11月22日	最后修改日期：	2000年11月22日
所属类别：	Delphi - 其他方面

    操作系统: windows98
    编程工具: delphi5
    问题: 对于一个变量的值的交换我遇到了如下问题：
    例如：A,B,C为三个TStrings类的变量，我想把A的内容和B的内容交换，用C作为中介，即：
    1.C:=A;
    2.A:=B;
    3.B:=C;
    这样的做法使得A的值无法赋予B，我测试时发现在做第二步时，B的值赋予A后，使得C的值也变了，变的和B的值一样，好象C只是一个指向A的指针，而并不是，C复制了A的内容。我怎样解决这个问题，使得A,B的值能交换?
    水平: 刚入门(yinwei)

    我并没有遇到你说的问题。下面是我用来测试的代码，你可以和你的比较一下。
    procedure TForm1.Button1Click(Sender: TObject);
    var a, b, c: TStrings;
    begin
     a := TStringList.Create;
     b := TStringList.Create;
     c := TStringList.Create;
     a.Add('a');
     b.Add('b');
     c.Add('c');
     c := a;
     a := b;
     b := c;
     ShowMessage('a = ' + a[0] + ' b = ' + b[0] + ' c = ' + c[0]);
    end;

此问题由李海回答。

附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, 其他方面, 。

	把这个问题推荐给朋友

Web Designed by ZebraStudio