我在遊戲中用Tstringlist 記錄某棋類可行歩
但是我發現bug
是否眞是bug ?

比下是簡化例子 (Delphi 10.2 運行結果是0)
========================================================
unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons;

type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
aa:Tstringlist;
procedure TEST(a: Tstringlist);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.TEST(a: Tstringlist);
begin
a.Clear;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
aa.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
aa:= Tstringlist.Create;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
aa.Add('123');
aa.Add('456');
TEST(aa);
Form1.Caption := inttostr(aa.Count); //delphi result 0
end;

end.

可是瑞凡，你把他 Clear 了耶

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

編輯記錄

我只是Clear程序入面的變數(aa)
程序出面的變數(a)應該沒有影響
＿
===================引 用 Jasonwong 文 章===================
可是瑞凡，你把他 Clear 了耶

Hi,您好:
請參考這裡的說明
http://www.programmer-club.com.tw/showSameTitleN/delphi/19915.html
謝謝!

===================引 用 sum2012 文 章===================
我只是Clear程序入面的變數(aa)
程序出面的變數(a)應該沒有影響
＿
===================引 用 Jasonwong 文 章===================
可是瑞凡，你把他 Clear 了耶

謝謝,Clear 了耶