Problema con Array

[MikyVato]

Hola mi problema es el siguiente:
Lo que hago es Abrir un Archivo de Texto el cual solo contiene numeros de 8 caracteres como los siguientes (sin las viñetas Claro):

20004545
20005231
20001516Al leer el archivo lo asigno a un array de 9 carcteres y lo agrego a un ListBox pero me muestra la cadena con basura como puedo hacer para mostrar de forma correcta??
Acepto sugerencias - Si el array es de 8 carcteres la basura se acumula en la cadena siguiente y se es de 7 es peor. Con 9 entra la cadena y la basura

[Onti]

Al principio podrías Inicial izar tu array. con algo así :


For La:=1 to 9 do
VecArray[La]:='';

[ContraVeneno]

O podrías utilizar un TStringList y utilizar su propiedad "LoadFromFile". Consulta la ayuda de delphi para más información.

[MikyVato]

Gracias por la ayuda pero no pude solucionar mi problema
intente con

For La:=1 to 9 do
VecArray[La]:='';
Pero no da resultado siguen saliendo caracteres basura
Uso un Objeto TBoxList que usa TStringList, o me equivoco?
lo que hago es lo siguiente:


while not eof(f)do
begin
BlockRead(f,buf,sizeof(buf),leidos); //Leo un Bloque del Archivo y lo asigno a la Cadena buf
LBCadena.Items.Add(buf); // Inserto la Cadena en el Objeto
end;