Nombres automáticos.

[Cecilio]

Hola
en la sección de trucos he usado este código que me resulta muy interesante:

For x := 0 To ComponentCount - 1 Do
  If Components[x] Is TEdit Then
    TEdit(Components[x]).Text := '';

Pero me gustaría ampliarlo: Vereis imagina que en un DataSet tengo un registro de una DB, y quiero poner el valor en cada Edit. Cada Edit tiene el mismo nombre que el nombre del campo.

¿ como se podría hacer ?

Es decir con for recorres todos los campos, y si existe un componente con el mismo nombre que el campo pon en su propiedad text el valor del campo.

[[maeyanes]]

Hola...

Tienes dos opciones:

Código Delphi [-]
var
  I, J: Integer;

begin
  for I := 0 to Pred(DataSet.Fields.Count) do
    for J := 0 to Pred(Form.ComponentCount) do
      if (Form.Components[J] is TEdit) and (DataSet.Fields[i].FieldName = Form.Components[J].Name) then
      begin
        TEdit(Form.Components[J]).Text := DataSet.Fields[i].AsString;
        Break // Dejamos de buscar en los controles
      end
end;

La otra opción es usar el método FindComponent:

Código Delphi [-]
var
  I: Integer;
  Edit: TEdit;

begin
  for I := 0 to Pred(DataSet.Fields.Count) do
  begin
    Edit := Form.FindComponent(DataSet.Fields[i].FieldName) as TEdit;
    if Assigned(Edit) then
      Edit.Text := DataSet.Fields[i].AsString
  end
end;

Saludos...

[Cecilio]

Muchas gracias.

Usaré la segunda opción, la entiendo menos, pero parece más rápida.

Gracias de nuevo.

[[eduarcol]]

una cosa segun entiendo cada campo tiene el nombre del edit, pero no necesariamente su indice, asi que yo sugeriria algo como :

Código Delphi [-]
var
  I, J: Integer;

begin
    for J := 0 to Pred(Form.ComponentCount) do
      if (Form.Components[J] is TEdit) then
      begin
        TEdit(Form.Components[J]).Text := DataSet.FieldbyName(TEdit(Form.Components[J]).Name).AsString;
      end;
end;

pero para que funcione debe ser cierta la premisa de que el nombre del campo = al nombre del edit

[Cecilio]

Va de perlas.

Muchas gracias a todos.