[Delphindo] function bertipe class

[ariefn]

Halo Delphindo,
Saya punya permasalahan begini:

function GetList:TString;   {function bertipe class}
begin
  ....
  SL:TStringList.Create;
  try
    ...
  finally
    Result:=SL;
    SL.Free;  {Sudah di-free disini}
  end;
end;

procedure UseTheList;
begin
  MySL:=TStringList.Create;
  MySL.Assign(GetList); {Ini akan run time error}
   
  MySL.Free;
end;


Pada proc. UseTheList,
  MySL.Assign(GetList) akan gagal dijalankan karena SL sudah di-free pada function 
GetList.

Bagaimana mengatasi hal ini.

(Note : Saya tidak ingin mendeklarasikan var Global pada unit ini, misalnya 
MySL dijadikan var Global)

Adakah cara/trik mengatasi hal ini ?

TIA.


[Non-text portions of this message have been removed]


------------------------ Yahoo! Groups Sponsor ---------------------~-->
Flexible Keyboard is the ideal accessory for PDA users that are on the move.
http://us.click.yahoo.com/dCBVZC/WnCFAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->

Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/