![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola
![]() Si uso tablas en el programa, lo que escribiste me sirvió para el tiempo libre, y quiero hacer otra para el prepago, o sea tener en la tabla tiempos de 30, 60, una hora y media, etc, y seleccionar el tiempo adecuado. Saludos. ![]() |
#2
|
||||
|
||||
No le veo mucho problema, añadiendo en el uses Dateutil, puedes acceder a esta funcion (al menos en delphi 6):
Código:
H^.HoraInicio:= now; H^.HoraFin:=incminute(H^.horainicio, Form4.TarifaHasta.AsInteger); Por cierto, me alegro que el código anterior te sirva para algo ![]() Como te decia, antes de borrar un elemento del Listview, tienes que liberarlo con Dispose(TpTInfo(listview1.items[X].data)). Si hay elementos que no tienen el registro asociado, pues deberás hacer primero la comprobación de si ha sido creado o no. Saludos |
#3
|
|||
|
|||
Cita:
|
#4
|
||||
|
||||
Cita:
![]() sodulaS ![]() |
#5
|
|||
|
|||
Hola de nuevo
![]() Te cuento que he intentado pero no consigo que los valores enteros de la grilla de un formulario en la cual tengo los tiempos, y al seleccionar uno que los pase al listview como un tiempo decreciente. Gracias. Saludos. ![]() |
#6
|
||||
|
||||
Para el tema de la rejilla, es copiado literalmente de la ayuda de delphi, adaptandolo te puede servir:
Código:
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; Cita:
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 ![]() |
![]() |
|
|
![]() |
|