Insertar Texto A Celdas Seleccionadas En Dbgrid

[Aliixeess]

Hola, tengo un dbgrid y lo que quiero hacer es agregar texto a las celdas que hayan sido seleccionadas por el usuario, bien puede ser una sola celda, o pueden ser varias y todas tendran la misma informacion. Alguna idea de como hacerlo? Help me please!!

[ecfisa]

Hola Aliixeess, bienvenido a Club Delphi

Como es costumbre con los que se inician te invitamos a que leas nuestra guía de estilo.

Hay algunos puntos importantes que estas omitiendo:

• ¿ Que base de datos estas usando ?
• ¿ Como estableces la conexión ?
• ¿ Mediante que componentes conectas a ella ?

Aunque en líneas generales podría decirse que la acción se resume a agregar en tu formulario:

• Un TDataSet
• Un TDataSource
• Un TDBGrid

Y vinculalos del siguiente modo:

• DataSet1->DataBase, DataSet->Tabla
• DataSource->DataSet = DataSet1
• DBGrid->DataSource = DataSource1

Se podría decir que ya podrías insertar datos en las celdas, pero todo esto varía de acuerdo al componente de datos vinculado al TDBGrid mediante el TDataSource que estes empleando.

Saludos

[Aliixeess]

Hago la conexion mediante zconnection, es un AdvstringGrid y en este mismo ya encontré como obtener las celdas seleccionadas:

procedure TfrmCalendariote.Button1Click(Sender: TObject);
var
inicioColumna, FinColumna, inicioFila, finFila : integer;
begin
with stringDia.Selection do
begin
inicioColumna := Left;
FinColumna := Right;
inicioFila := Top;
finFila := Bottom;
ShowMessage(Format('Desde, col: %d row: %d', [inicioColumna,inicioFila]) + #10 + Format('Hasta, col: %d row: %d', [finColumna, finFila]));
end;
end;

Ya solo falta llenar las celdas.

[ecfisa]

Hola Aliixeess.

Por favor cuando pongas código en tus mensajes usa Tag's:


No conozco el componente AdvstringGrid, pero por lo que veo en tu código tiene un comportamiento similar al TStringGrid, por lo que podrías probar de este modo:

Código Delphi [-]
procedure FillSelection(Grid: TAdvstringGrid; const Content: string);
var
  c,f: Integer;
begin
  with Grid.Selection do
    for f:= Top to Bottom do
      for c:= Left to Right do
        Grid.Cells[c,f]:= Content;
end;

Ej. de uso:

Código Delphi [-]
procedure TfrmCalendariote.Button1Click(Sender: TObject);
begin
   FillSelection(stringDia, 'Hola');
end;

Saludos

[Aliixeess]

Gracias!!!!

[Aliixeess]

Me marca error esta parte

Código Delphi [-]
procedure TfrmCalendariote.Button1Click(Sender: TObject);
begin
   FillSelection(stringDia, 'Hola');
end;

Tienes idea de cual puede ser el problema?

[ecfisa]

Empezado por Aliixeess

Me marca error esta parte

Código Delphi [-]
procedure TfrmCalendariote.Button1Click(Sender: TObject);
begin
   FillSelection(stringDia, 'Hola');
end;

Tienes idea de cual puede ser el problema?

Hola Aliixeess.

No sin ver el mensaje, ¿ Podrías ponerlo textualmente ?

Saludos