Delphi --> DataSet con DBgrid ....

[Serghio]

como puedo enlazar estos dos objetos?............

[juagarc4]

Holap

La forma de enlazar estos dos controles es mediante un DataSource.
El DataSource es, como su nombre lo indica, una representación del "origen de los datos". DataSource no requiere el BDE, pero es el componente que "mapea" los componentes visuales de base de datos con los no visuales. El hacer un componente intermedio es importante porque de este modo podemos tener varias representaciones de los mismos datos sin tener que "atar" la representación de los datos en pantalla a la representación "física" de los datos. Un DataSource se conecta a su vez a cualquier componente tipo Dataset, como TQuery, TTable, TClientDataset, ¡o el que usted haya creado! DataSource nos permite ser consistentes en la representación de nuestros datos en pantalla sin preocuparnos de donde vengan los mismos (Tablas, queries, o nuestros propios metodos).

En el que hay una propiedad que se llama DataSet, ahi eliges el nombre de tu DataSet (Tabla, Query,etc...).
Luego en el DBgrid hay una propiedad que se llama DataSource, y ahi es dónde eliges tu DataSource.

Salu2

[Serghio]

En la Ayuda del Delphi, te dan un ejemplo de como trabajr con el REgEdit, especificamente recuperar el valor de un registro y este es el codigo:

//--------------------------------------------
uses Registry;
function GetRegistryValue: string;
var
Registry: TRegistry;
S: string;
begin
Registry:=TRegistry.Create;

Registry.RootKey:=HKEY_LOCAL_MACHINE;
//False because we do not want to create it if it doesn’t exist
Registry.OpenKey('MYKEY',False);
Result :=Registry.ReadString('VALUE1');

Registry.Free;
end;
//-------------------------------------------------

Claro tienes que cmabiar el valor de 'MIKEY', y el 'VALUE1', por tus datos, lo unico que conseguii era colgar mi maquina cuando lo corria ......

[juagarc4]

Holap
Creo que ya he visto el error:
Debes sustituir esta linea:

Código:

Result :=Registry.ReadString('VALUE1');

por esta otra:

Código:

GetRegistryValue :=Registry.ReadString('VALUE1');

Ahora tendrás el valor leido del registro en el retorno de la
función , es que el Return no funciona en Delphi, eso es de Visial Basic.
Para obtener el valor que devuelve una función hay que asignarselo así:
GetRegistryValue:=Registry.ReadString('VALOR1');
Ahora tu función quedaría de esta manera:

Código:

function TForm1.GetRegistryValue: string;
var
      Registry: TRegistry;
      S:String; //esta variable no se usa, se puede quitar.
begin
      Registry:=TRegistry.Create;
      Registry.RootKey:=HKEY_LOCAL_MACHINE;
//False because we do not want to create it if it doesn’t exist
      Registry.OpenKey('MYKEY',False);
      GetRegistryValue:=Registry.ReadString('VALOR1'); 
     Registry.Free;
end;

Ahora en el Form.Show por ejemplo, puedes poner un Label y llamar a la función:
label1.caption:=GetRegistryValue;
Además fíjate en la cabecera de la función:
function TForm1.GetRegistryValue: string;
la he incluido en la clausula

Código:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    function GetRegistryValue: string;
    procedure FormShow(Sender: TObject);

Ahora debe de funcionarte correctamente.
Salu2

[Serghio]

Estaba vagando por internet y encontre el siguiente codigo, que funciona de la patada
pruebenlo, esta todo correcto.............

Código:

procedure TForm1.CmdFileProClick(Sender: TObject);
  str : string;
begin
  with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      //asiganado la KeyRoot

      //ahora abriendo la clave o key
      if OpenKey('\Software\Microsoft\Windows\CurrentVersion',
                 false) then begin
          str := ReadString('ProgramFilesDir');
	  ShowMessage(str);
          CloseKey;
      end;
    finally
      Free;
    end;
end;