Array
(
)

Como se inicializa uma StringList

Wgm8
   - 12 dez 2005

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
   - 12 dez 2005

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...#Código

Objeto := TSeuObjeto.Create
try
// faz alguma coisa com o objeto
finally
Objeto.Free;
end;
...no seu caso, ficaria...#Código
...
StringList := TStringList.Create;
try
...
finally
StringList.Free;
end;



Rgaffo
   - 12 dez 2005

faça assim:

procedure Tform1.Button1Click(Sender : TObject);
var
Lista : TStringList;
Begin

Lista := TStringList.Create;

{ Agora faça o que quiser }
End;