paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-20 09:39:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix falsely added duplicate methods in commit 47

Browse Source
This commit is contained in:
michael 2018-02-12 07:59:34 +00:00
parent 433b905142
commit 0dcbd253fa
1 changed files with 0 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
packages/fcl-db/jsondataset.pas
View File

@ -527,11 +527,6 @@ begin
Result:=FCurrentIndex.Count; Result:=FCurrentIndex.Count;
end; end;
procedure TBaseJSONDataSet.SetRecNo(Value: Integer);
begin
inherited SetRecNo(Value);
end;
function TBaseJSONDataSet.GetRecordSize: Word; function TBaseJSONDataSet.GetRecordSize: Word;
begin begin
Result := 0; // actual data without house-keeping Result := 0; // actual data without house-keeping
@ -579,17 +574,6 @@ begin
// Writeln('Fcurrent', FCurrent,' from ',ABookmark.Data); // Writeln('Fcurrent', FCurrent,' from ',ABookmark.Data);
end; end;
procedure TBaseJSONDataSet.SetBookmarkFlag(Var Buffer: TDataRecord;
Value: TBookmarkFlag);
begin
inherited SetBookmarkFlag(Buffer, Value);
end;
procedure TBaseJSONDataSet.SetBookmarkData(Var Buffer: TDataRecord;
Data: TBookmark);
begin
inherited SetBookmarkData(Buffer, Data);
end;
procedure TBaseJSONDataSet.InternalInsert; procedure TBaseJSONDataSet.InternalInsert;
@ -631,44 +615,6 @@ begin
// Do nothing // Do nothing
end; end;
function TBaseJSONDataSet.ConvertDateTimeField(S: String; F: TField): TDateTime;
begin
end;
function TBaseJSONDataSet.FormatDateTimeField(DT: TDateTime; F: TField): String;
begin
end;
constructor TBaseJSONDataSet.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
destructor TBaseJSONDataSet.Destroy;
begin
inherited Destroy;
end;
function TBaseJSONDataSet.GetFieldData(Field: TField; Buffer: TDatarecord
): JSValue;
begin
Result:=inherited GetFieldData(Field, Buffer);
end;
procedure TBaseJSONDataSet.SetFieldData(Field: TField; var Buffer: TDatarecord;
AValue: JSValue);
begin
inherited SetFieldData(Field, Buffer, AValue);
end;
function TBaseJSONDataSet.CompareBookmarks(Bookmark1, Bookmark2: TBookmark
): Longint;
begin
Result:=inherited CompareBookmarks(Bookmark1, Bookmark2);
end;
procedure TBaseJSONDataSet.InternalOpen; procedure TBaseJSONDataSet.InternalOpen;
begin begin
FreeAndNil(FFieldMapper); FreeAndNil(FFieldMapper);