Probleme de type ( j'ai un pbe avec TTime)
bonjour;
j'ai utilisé une base de donnee (une table de Paradox) avec 3 champs, un champ de type D (Date), et les autres de types T (Time).
j'ai utilisé une variable "som" de type TTime initialisé à 0.
la variable "som" est la somme des durée calculer
Code:
1
2
3
4
5
6
7
8
9
|
for (i=0;i<=Table1->FieldCount;i++)
{
ListBox1->Items->Strings[i]= Table1->FieldByName("Date")-> AsString+" "+Table1->FieldByName("Debut")->AsString+" "+Table1-> FieldByName("Fin")->AsString;
som+=(Table1->FieldByName("Fin")->Value)-(Table1->FieldByName("Debut")->Value);
Table1->MoveBy(1);
}
Table1->First();
Edit2->Text=som; |
merci.
