31. januar 2002 - 23:34Der er
3 kommentarer og 2 løsninger
Dum kode fejl?
Følgende kode burde give en fejlmeddelelse hvis man taster et forkert datoformat ind i min dbgrid. Men i stedet for at åbne min messagedlg, får jeg den sædvanlige "exception class Econverterror, is not a valid date".
Nogle ideer til at få rettet koden?
if DBGrid2.SelectedField.FieldName = 'Dato' then begin try if dbgrid2.SelectedField.DisplayText <> ' - - ' then StrToDate(dbgrid2.SelectedField.DisplayText); except on EconvertError do begin MessageDlg('fejl i dato',mtError,[mbOK],0); end; end; End;
procedure TFalcoControl.vDBGridS2DataDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with Sender as TDBGrid do begin try if Columns[DataCol].FieldName = 'Dato' then StrToDate(dbgrid2.SelectedField.DisplayText); except on EconvertError do begin MessageDlg('fejl i dato',mtError,[mbOK],0); end; end; end;
Min dbgrid viser indholdet af en tabel og 'Dato' er et TDateField. Skal jeg mon "forhindre" delphi i at forsøge at skrive en ukorrekt værdi til TDateField feltet i min tabel?
Ja det var da det bedste kun at have korrekte datoer i tabellen, så får du jo heller ingen problemer med dit dbgrid
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.