Mærkeligt prob. med Caption og og dato værdi

Kode 

Dato:= StrToInt(Dato)+StrToInt(Edit1.Text);
Caption[15]:= Dato[1];
Caption[16]:= Dato[2];

Min Form3's caption bliver ved et tryk på en knap hentet fra en DB. Det virker fint nok. Koden jeg bruger til det er denne:

Kode 

Form3.Caption:= ADOTable1.FieldByName('Test').AsString;

Men når jeg så bagefter prøvet at loade en ganske almindelig string med Form3's caption kommer programmet med denne fejl:

Project Projekt1.exe raised exeption class EConvertError with message "10-01-2005 01:49:00' is not a valid date'

Er der nogen der kan se grunden til denne (syntes jeg) mærkelige fejl?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Min Form3's caption bliver ved et tryk på en knap hentet fra en DB. Det virker fint nok. Koden jeg bruger til det er denne:

Kode 

Form3.Caption:= ADOTable1.FieldByName('Test').AsString;

Men når jeg så bagefter prøvet at loade en ganske almindelig string med Form3's caption kommer programmet med denne fejl:

Project Projekt1.exe raised exeption class EConvertError with message "10-01-2005 01:49:00' is not a valid date'

Er der nogen der kan se grunden til denne (syntes jeg) mærkelige fejl?

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Jeg tror fejlen ligger et andet sted i dit program, der er ikke noget umiddelbart i vejen med den kode linie .

MvH

Stefan Svensson
http://SimLock.frac.dk

Kalder du strtodate eller datetostr senere når du skriver en anden værdi i dens caption? eller måske kalder adotable1.findbyname('dato').AsDate eller noget lign?

Jeppe Johansen
Jeppesoftware@hotmail.com

Kode 

Form3.Caption := ADOTable3.FieldByName('Dato').AsString;

....
                 
Caption:= Form3.Capstion;
Dato:= Caption[15]+Caption[16];
Dato:= StrToInt(Dato)+StrToInt(Edit1.Text);
Caption[15]:= Dato[1];
Caption[16]:= Dato[2];

....

  Form2.ADOQuery1.Parameters.ParamByName('Dato').Value := Caption;

Kode 

Form3.Caption := ADOTable3.FieldByName('Dato').AsString;

....
                 
Caption:= Form3.Capstion;
Dato:= Caption[15]+Caption[16];
Dato:= IntToStr(StrToInt(Dato)+StrToInt(Edit1.Text));
Caption[15]:= Dato[1];
Caption[16]:= Dato[2];

....

  Form2.ADOQuery1.Parameters.ParamByName('Dato').Value := Caption;