pasar de edit a dbgrid

[ecfisa]

Hola Edgar.

No estoy seguro de haber entendido bién lo que estás tratando de hacer, pero te pongo un ejemplo que pasa el contenido de uno o mas Edits a un DBGrid.

Código Delphi [-]
 with DBGrid1.DataSource.DataSet do
  begin
    if not (State in [dsEdit,dsInsert]) then 
      Edit; //  Insert o Append de acuerdo a lo que quieras
    FieldByName('Campo1').AsString:= Edit1.Text;
    FieldByName('Campo2').AsString:= Edit2.Text;
    ...
    Post; // si deseas guardarlo aquí
  end;

Saludos.

[edgar_prospero]

ya cambie aqui el componente en lugar de un dbgrid ahora estoy usando un stringgrid y quiero agregarle datos mediante un edit al darle enter la primera vez si lo logro y me manda la informacion pero la segunda vez la manda pero me sustituye el valor que ya tenia y lo que quiero es que los vaya poniendo como en una lista a continuacion pongo el codigo que estoy usando para tal cosa a ver si me pueden ayudar

Código Delphi [-]
procedure TForm2.codigoKeyPress(Sender: TObject; var Key: Char);

begin

STRINGGRID1.Cells[STRINGGRID1.Col,STRINGGRID1.Row]:=codigo.Text;

end;

[ecfisa]

Hola Edgar.

Sigo sin entender lo que deseas hacer.

A ver... Si queres poner los valores uno debajo de otro, tenés que incrementar el índice de las filas y dejar fijo el de las columnas, por ejemplo:

Código Delphi [-]
 with StringGrid1 do
  begin
    Cells[Col, FixedRows  ]:= Edit1.Text;
    Cells[Col, FixedRows+1]:= Edit2.Text;
    Cells[Col, FixedRows+2]:= Edit3.Text;
  end;

Y si deseas situarlos uno al lado del otro de izquierda a derecha incrementar el índice de las columnas y dejar fijo el de las filas:

Código Delphi [-]
 with StringGrid1 do
  begin
    Cells[FixedCols  , Row]:= Edit1.Text;
    Cells[FixedCols+1, Row]:= Edit2.Text;
    Cells[FixedCols+2, Row]:= Edit3.Text;
  end;

Pero estos son ejemplos muy generales y se pueden escribir de otras formas logrando igual resultado. Tendrías especificar con más detalle que estas buscando hacer.

Saludos.