引言: 站長大大 您好 小弟請教一個新手問題，現今小弟利用TSTRINGLIST讀取資料，再存入TLIST中。 但卻不知如何將TLIST中的資料再倒回TSTRINGLIST中以供取出處理，能否請教各位大大，有何方法可處理該一狀況，如果可以，是否能利用範例講解一下,因為小弟看DELPHI內的HELP看不太懂它有關的作法。萬份感謝

var
 I: Integer;
begin
 for I:= 0 to List.Count -1 do
   StringList.Add(List.Items[I]); 
end;

引言: 站長大大 您好 小弟請教一個新手問題，現今小弟利用TSTRINGLIST讀取資料，再存入TLIST中。 但卻不知如何將TLIST中的資料再倒回TSTRINGLIST中以供取出處理，能否請教各位大大，有何方法可處理該一狀況，如果可以，是否能利用範例講解一下,因為小弟看DELPHI內的HELP看不太懂它有關的作法。萬份感謝

引言: 應該這樣可以 ... FStringList.Assign(FList)

引言: 謝謝各位大大回應小弟的問題 首就JASONWONG大大的方法，不知是小弟使用錯誤或方法不對？它出現型態錯誤的訊息。

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    var
  L : TList;
  a : Array of String;    procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  L := TList.Create;
  SetLength(a,Memo1.Lines.Count);
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    a[i] := Memo1.Lines[i];
    L.Add(PChar(a[i]));
  end;
end;    procedure TForm1.Button2Click(Sender: TObject);
var
  i : integer;
begin
  Memo2.Lines.Clear;
  for i := 0 to L.Count - 1 do
    Memo2.Lines.Add(PChar(L[i]));
  L.Free;
end;    end.