Como se inicializa uma StringList

Question

Sempre recebo uma Warning, na compila��o por n�o inicializar uma variavel stringlist, como posso inicializa-la e onde?

try
StringList := TStringList.Create;
sLinha := padr(�CODIGO�,10);
sLinha := sLinha + padr(�DATA�,11);
sLinha := sLinha + padr(�NOME�,51);
finally
StringList.Free;
end;

Massuda · Answer

No c�digo que voc� postou, se ocorrer uma exce��o ao criar a StringList, o finally ser� executado usando um valor que n�o foi inicializado. Normalmente eu codificaria assim...

Objeto := TSeuObjeto.Create
try
  // faz alguma coisa com o objeto
finally
  Objeto.Free;
end;

...no seu caso, ficaria...

...
StringList := TStringList.Create; 
try 
  ...
finally 
  StringList.Free; 
end;

Rgaffo · Answer

fa�a assim:[b:b01f8d5958]procedure [/b:b01f8d5958]Tform1.Button1Click(Sender : TObject);[b:b01f8d5958]var[/b:b01f8d5958]   Lista : TStringList;[b:b01f8d5958]Begin[/b:b01f8d5958]Lista := TStringList.Create;{ Agora fa�a o que quiser }[b:b01f8d5958]End;[/b:b01f8d5958]...