Ver Mensaje Individual
  #4  
Antiguo 19-10-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola pvillano y bienvenido a los foros de ClubDelphi

Poné en un form:
.TDBGrid
.TClientDataSet
.TDataSource
.TButton

Y relacionalos: (DBGrid1.DataSource -> DataSource1.DataSet -> ClientDataSet1)

Luego probá con este código:
Código Delphi [-]
uses Dialogs;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TOpenDialog.Create(nil) do
  try
    InitialDir:= 'C:\Ruta_A_Los_CDS\'; // Ruta donde estan tus archivos .CDS
    Options := [ofFileMustExist];
    Filter:= 'ClientDataSet Data|*.CDS|*.CDS';
    if Execute then
    begin
      ClientDataSet1.LoadFromFile(FileName);
      ClientDataset1.Open;
    end;
  finally
    Free;
  end;
end;

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 19-10-2011 a las 22:07:21. Razón: agregar cabecera de procedimiento
Responder Con Cita