pasar de edit a dbgrid

[edgar_prospero]

que hay amigos a ver quien me puede echar la mano tengo varios edit a los que agrego informaciion que tengo en una base de datos lo que quiero lograr es esa informacion pasarla a un dbgrid en forma de lista cada dato que vaya necesitando como si fuera una venta lo intente pasar un edit con el siguiente codigo pero no lo logre ojala me puedan ayudar

Código Delphi [-]
Tabla.FieldByName('Codigo').AsString := codigo.Text;

[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.