Copiar campo

[lore]

Hola, saludos a todos , les cuento que quiero pasar el contenido de un campo a otro para que en una grilla me quede algo parecido
Desde Hasta Valor
0 10 1
10 20 2
20 30 3

y el siguiente código es:

Tabla.Active := true;
Tabla.Insert;
if Tabla.RecordCount = 0 then
begin
Tabla.FieldByName('Desde').AsInteger := 0;
Tabla.FieldByName('Hasta').AsInteger := SpinEdit1.Value;
Tabla.FieldByName('Valor').AsCurrency := SpinEdit2.Value;
Tabla.Post
end
else
begin
Tabla.FieldByName('Desde').AsInteger := TablaHasta.AsInteger;
Tabla.FieldByName('Hasta').AsInteger := SpinEdit1.Value;
Tabla.FieldByName('valor').AsCurrency := SpinEdit2.Value;
Tabla.Post;
end;

pero no lo consigo, ah , y si selecciono una fila en la grilla los dos últimos campos volcarlos en las columnas de un listview. Les agradecería enormente ya que estoy trabada con esto y no consigo avanzar.

[__cadetill]

Hola Lore

No entiendo muy bien que es lo que quieres hacer, pero lo del ListVuew puedes hacer algo así

var 
  v : TListItem;
begin
  // El método ADD del ListView devuelve un objeto de tipo TListItem
  v := ListView1.Items.Add;
  v.Caption := TablaHasta.AsString;
  v.SubItems.Add(TablaValor.AsString);

Suponiendo que tienes el ListView definido con 2 columnas

[lore]

Disculpá, a lo que me refiero es que al ingresar un registro, el segundo campo del registro pase a ser el valor del primer campo del registro que le sigue, o sea que tome una secuencia así: 1°reg.(0,10), 2°reg.(10,20), 3°reg.(20,30)

[__cadetill]

Bueno, entonces antes de añadir el registro has de capturar el valor del registro anterior (por ejemplo en el BeforeInsert del TTable).

Podria quedar algo así:

var
  ValorAnt : integer;

procedure TMiForm.Table1BeforeInsert(DataSet: TDataSet);
begin
  if Tabla.RecordCount = 0 then
    ValorAnt := 0
  else
    ValorAnt := Table1.FieldByName('Desde').AsInteger;
end;

procedure TMiForm.Button1Click(Sender: TObject);
begin
  Tabla.Active := true;
  Tabla.Insert;
  Tabla.FieldByName('Desde').AsInteger := ValorAnt;
  Tabla.FieldByName('Hasta').AsInteger := SpinEdit1.Value;      
  Tabla.FieldByName('Valor').AsCurrency := SpinEdit2.Value;
  Tabla.Post
end;

Más o menos esa seria la idea