Ayuda con arreglos !!

[[Bicho]]

Hola Siegfried, se bienvenido al ClubDelphi, te recomiendo que te leas la Guía de Estilo, para que las próximas veces pongas un título más descriptivo al hilo que has iniciado.

Respecto a tu pregunta, ¿esos datos necesitas guardarlos en una base de datos? o sólo quieres visualizarlos en una rejilla de datos cada vez que quieras cargarlos de un fichero Excel?

Es que no me ha quedado clara tu pregunta. Intenta explicar que quieres hacer de una forma un poco más clara y con detalles como la versión del sistema operativo que usas, la versión del Excel, que version de Delphi, y si has de usar base de datos, cual usas.

Saludos

[Siegfried]

ok, prometo a la siguiente poner un titulo mas descriptivo, de lo que se trata es que tengo un archivo en excel(2003) y lo leo con delphi 4, estoy trabajando con archivos planos, como grabo las variables cia, Codigo, descripcion y Cantidad, etc, si las voy a ocupar para diferentes compañias y diferentes sub compañias.

Lo que quiero es poder leer esos datos y poder diferenciarlos

Ejemplo
Primera vez que se lee el archivo trae estos datos
Cia : Hotel Melia
SubCia : Turquesa
Materiales y precio :
1 10.00
2 20.00
3 30.00
4 40.00

Segunda vez
Cia : Hotel Melia
SubCia : Cancun
Materiales y precio :
1 10.00
2 30.00
3 50.00
4 80.00

Tercera vez
Cia : Hotel Radisson
SubCia : Cancun
Materiales y precio :
1 10.00
2 10.00
3 10.00
4 10.00

Cuarta vez
Cia : Hotel Melia
SubCia : Cancun
Materiales y precio :
1 10.00
2 10.00
3 10.00
4 10.00

Mi declaracion es esta y algo me dice que esta algo confusa.

Código Delphi [-]
 
  Reg_Materiales = Record
    NoMat    : Char3;
    Cia         : Char3;
    SubCia    : Char3;
    Material  : Char20;
    Descrip   : Char64;
    NoMat     : Char3;
    Existen    : Array[1 .. 10, 1 .. 10] Of Char9;
    Cant       : Array[1 .. 10, 1 .. 10] Of Char9;
    Precio     : Array[1 .. 10, 1 .. 10] Of Char9;
    Flags      : Char6;
    Lf          : Char;
    Cr         : Char;
  End;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  Excel: Variant;
  Archivo : String;
  Cont: Integer;
  Codigo,
  Descripcion,
  unidad : String;
begin
  //***** Creamos el Objeto Ole *****//
  try
    Excel := CreateOleObject('Excel.Application');
  except
    Excel.Quit;
    showmessage('No se pudo crear el Objecto Excel.');
  raise;
  end;
  // Leemos el archivo
  Archivo := 'c:\Siegfried.xls';
  Excel.Workbooks.Open(Archivo);
  Cont:= 2;
  try
    Repeat
      // Importamos Datos de excel
      Cia := Excel.Cells[Cont,1].Value
      SubCia := Excel.Cells[Cont,2].Value
      Material := Excel.Cells[Cont,3].Value;
      Descripcion := Excel.Cells[Cont,4].Value;
      Cantidad:= Excel.Cells[Cont,5].Value;
      Existencia:= Excel.Cells[Cont,6].Value;
      Precio:= Excel.Cells[Cont,7].Value;
      inc(Cont);
    until Excel.Cells[Cont,2].Value = '';
    Excel.quit;
    ShowMessage(' Archivo importado satisfactoriamente');
  except
    ShowMessage('El Archivo no pudo ser importado');
  end;
end;

Y muchas gracias por responder Bicho