paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Patch from Sergey Smirnov to fix TTimeField.AsString

Browse Source
This commit is contained in:
michael 2005-04-26 15:45:30 +00:00
parent 2d951fa6c2
commit e97b4edd00
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/db/db.pp
View File

@ -561,6 +561,8 @@ type
{ TTimeField }
TTimeField = class(TDateTimeField)
protected
procedure SetAsString(const AValue: string); override;
public
constructor Create(AOwner: TComponent); override;
end;
@ -1909,7 +1911,10 @@ end.
{
$Log$
Revision 1.48 2005-04-24 19:21:28 joost
Revision 1.49 2005-04-26 15:45:30 michael
+ Patch from Sergey Smirnov to fix TTimeField.AsString
Revision 1.48 2005/04/24 19:21:28 joost
- some fixes in assignment of transactions and databases
Revision 1.47 2005/04/13 22:09:15 joost

12
fcl/db/fields.inc
View File

@ -1647,6 +1647,13 @@ begin
SetDataType(ftTime);
end;
procedure TTimeField.SetAsString(const AValue: string);
Var R : TDateTime;
begin
R:=StrToTime(AVAlue);
SetData(@R);
end;
{ TBinaryField }
@ -2291,7 +2298,10 @@ end;
{
$Log$
Revision 1.31 2005-04-16 10:02:13 michael
Revision 1.32 2005-04-26 15:45:30 michael
+ Patch from Sergey Smirnov to fix TTimeField.AsString
Revision 1.31 2005/04/16 10:02:13 michael
+ Patch to show/enter alternate charsets in grid editor.
Revision 1.30 2005/04/10 22:18:43 joost