Que estoy haciendo mal en este proceso?

[kdemia]

totalmente, pero no lo puedo guardar en un archivo :/ File of array_dinamico no se puede hacer

[[Chris]]

Empezado por kdemia

totalmente, pero no lo puedo guardar en un archivo :/ File of array_dinamico no se puede hacer

Sinceramente nunca había escuchado eso de File of... Te compila esa línea?

[kdemia]

si es para manejar archivos.. osea en vez de usar base de datos asi automaticas como mysql y esas cosas uso archivos..

[ecfisa]

Empezado por kdemia

si es para manejar archivos.. osea en vez de usar base de datos asi automaticas como mysql y esas cosas uso archivos..

Hola kdemia.

Precisamente por el archivo tipado (File of) que te limita al uso estático, es que me parece que la solución es dimensionar el array lo suficientemente grande para contener las máximas cotas posibles. Pero claro, en varios casos se va a desperdiciar espacio.

Un saludo.

[[Chris]]

Acabo de leer un poco en delphi.about sobre esta declaración File of, que sinceramente desconocía. Según leí, puedes utilizar File of con arreglos dinámicos.

El problema que veo es que quieres definir una nueva clase que sería nada más que un arreglo dinámico. Esto no se puede hacer. Lo que debes hacer es crear el arreglo dinámico como variable (al igual que otro cualquier arreglo dinámico) y luego asignarle su longitud con la rutina SetLength. Deduzco, que no es necesario utilizar SetLength cuando estés abriendo un archivo, sino sólo para guardarlo. Más o menos creo que sería así:

Código Delphi [-]
procedure PasarAArchivo(const Alto, Ancho: Integer);
var
    Arreglo: Array of array of Integer;
    OIFile: File of Array of array of Integer;
    I: Integer;
begin
    // definir las longitudes bidimencionales de Arreglo
    SetLength(Arreglo, Alto, Ancho);

    // rellenar los datos de Arreglo ....
    // .....

    // guardar el arreglo en un archivo.
    try
        AssingFile(IOFile, 'archivo_a_guardar.dat');
        Rewrite(IOFile);
        for I := 0 to Max(Arreglo) do
            Write(IOFile, Arreglo[i]);
    finally
        CloseFile(IOFile);
    end;
end;

Creo que también deberías considerar utilizar registros en lugar de arreglos polidimencionales. Los registros son más fáciles de leer y entenderse para el programador.

[ecfisa]

Hola Chris.

Hasta donde sé, desde Pascal 5.5 hasta Delphi 7 incluido, no permiten usar arreglos dinámicos en archivos tipeados.
Dado que los archivos con tipo, son archivos de acceso directo, no creo que sus registros pudieran tener diferentes tamaños.

Con el código que adjuntas (usando Delphi 7) en la línea donde se declara el archivo con tipo, obtengo el siguiente error de compilacion:

Type 'dynamic array' needs finalization - not allowed in file type.

Lo que ciertamente ignoro, si esto es así para las versiones posteriores de Delphi.

También coincido con vos que es mucho más sencillo y práctico utilizar registros en lugar de arreglos multi-dimensionales.

Un saludo.

[[Chris]]

Hola ecfisa!

Gracias por la aclaración. Creo que mi ignoracia al respecto de File of se ha notado . Entonces no se me ocurre otra cosa, a menos que talvez se pueda simplemente utilizar la declaración File of Array of Integer para la variable IOFile y verificar que con eso los datos se guarden correctamente.

Pero bueno, talvez la declaración:

Código Delphi [-]
type
  Arreglo = Array[0..Ancho, 0..Alto] of integer;

en registros se puede traducir como:

Código Delphi [-]
type
    Arreglo = record
        ArregloInterno: array of integer;
    end;

y de ahí utilizarla a cómo el compañero había querido hacerlo.