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

+ Patch from Vincent Snijders to support MsecToDateTime on PPC

Browse Source 
git-svn-id: trunk@230 -
This commit is contained in:
michael 2005-06-07 09:17:32 +00:00
parent 3135ce1426
commit d47c1d2477
1 changed files with 39 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
fcl/db/dataset.inc
View File

@ -436,8 +436,16 @@ end;
Procedure TDataset.GetChildren(Proc: TGetChildProc; Root: TComponent);
var
I: Integer;
Field: TField;
begin
//!! To be implemented
for I := 0 to Fields.Count - 1 do begin
Field := Fields[I];
if (Field.Owner = Root) then
Proc(Field);
end;
end;
Function TDataset.GetDataSource: TDataSource;
@ -465,7 +473,7 @@ function TDataSet.GetFieldData(Field: TField; Buffer: Pointer;
end;
else
try
TimeStamp := MSecsToTimeStamp(Source.DateTime);
TimeStamp := MSecsToTimeStamp(Trunc(Source.DateTime));
except
TimeStamp.Time := 0;
TimeStamp.Date := 0;
@ -855,8 +863,12 @@ end;
Procedure TDataset.SetChildOrder(Component: TComponent; Order: Longint);
var
Field: TField;
begin
//!! To be implemented
Field := Component as TField;
if Fields.IndexOf(Field) >= 0 then
Field.Index := Order;
end;
Procedure TDataset.SetCurrentRecord(Index: Longint);
@ -914,9 +926,32 @@ end;
Procedure TDataset.SetName(const Value: TComponentName);
function CheckName(FieldName: string): string;
var i,j: integer;
begin
//!! To be implemented
Result := FieldName;
i := 0;
j := 0;
while (i < Fields.Count) do begin
if Result = Fields[i].FieldName then begin
inc(j);
Result := FieldName + IntToStr(j);
end else Inc(i);
end;
end;
var i: integer;
nm: string;
old: string;
begin
if Self.Name = Value then Exit;
old := Self.Name;
inherited SetName(Value);
if (csDesigning in ComponentState) then
for i := 0 to Fields.Count - 1 do begin
nm := old + Fields[i].FieldName;
if Copy(Fields[i].Name, 1, Length(nm)) = nm then
Fields[i].Name := CheckName(Value + Fields[i].FieldName);
end;
end;
Procedure TDataset.SetOnFilterRecord(const Value: TFilterRecordEvent);