mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 16:39:57 +02:00
16 lines
219 B
ObjectPascal
16 lines
219 B
ObjectPascal
{$MODE DELPHI}
|
|
|
|
type
|
|
TDADataTable =class(TObject)
|
|
public
|
|
function GetAsCurrency(Index: integer): Currency;safecall;
|
|
end;
|
|
|
|
function TDADataTable.GetAsCurrency(Index: integer): Currency;
|
|
begin
|
|
Result:=0;
|
|
end;
|
|
|
|
begin
|
|
end.
|