dhp9951
Messages postés10Date d'inscriptiondimanche 27 février 2005StatutMembreDernière intervention 6 novembre 2009
-
26 déc. 2008 à 20:55
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 2016
-
26 déc. 2008 à 22:34
Bonsoir à tous, lorsque j'insere une ligne dans un checklistbox1, j'affiche, via un timer le temps écoulé dans une autre chelistbox (checklistbox2). bref un petit chronomètre qui se déclenche pour chaque ligne insérée
procedure TForm1.Timer4Timer(Sender: TObject);
var
Calcul,tt,ta: String;
aa: integer;
begin
for aa := 0 to checklistbox1.Items.Count -1 do
begin
tt:=timetostr(time);
ta:=checklistbox2.Items.Strings[aa];
Calcul := TimeToStr(StrToTime(tt) - StrToTime(ta));
Checklistbox3.items.strings[aa] := ' '+calcul;
end;end;
Mon problème est le suivant:
je souhaite, en récupérant le temps indiqué pour chaque ligne, lancer une petite procédure de calcul.
par ex, si le temps est < à 00:00:30, alors xxxxx.
Je sais récupérer la valeur de ce temps (au format string) mais je n'arrive pas à faire cette opération de calcul, meme en convertissant en strtotime. je tombe toujours sur des problèmes d'incompatibilité.
Une Solution?
A voir également:
C# convert string to datetime
String pascal - Meilleures réponses
Delphi convert datetime to string - Meilleures réponses