Cronómetro y listview

[[Lepe]]

Para el tema de la rejilla, es copiado literalmente de la ayuda de delphi, adaptandolo te puede servir:

var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin

          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;

Empezado por juanchi

y al seleccionar uno que los pase al listview como un tiempo decreciente.

No sé si lo he entendido. Creo que quieres restarle X minutos a una hora determinada. Si dispones de las Rusas (RxLib) puedes usar la funcion que posteé antes, pasandole un nº negativo. Si no dispones de ella, tendrías que hacer un cálculo. Sabiendo que una fecha es un nº real, 32723,05671 y que 1 unidad corresponde a 1 dia de tiempo, puedes hacer tu mismo el cálculo para saber: 30 minutos cuantos dias son, y restar ese valor directamente a una fecha dada.

Ahora te toca pensar a ti un poquito

Te aconsejo que te pares a estudiar un poquito el tema de las fechas en delphi, con 10 minutos peleandote, te aclarará muchas dudas.

ShowMessage(Formatdatetime('dd/mm/yyyy hh:nn:ss', now - MiValorDouble)

sodulaS