paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:06:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new test

Browse Source 
git-svn-id: trunk@7382 -
This commit is contained in:
peter 2007-05-17 20:28:24 +00:00
parent fd096ef0f8
commit 55f79a37b6
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8212,6 +8212,7 @@ tests/webtbs/tw8434.pp svneol=native#text/plain
tests/webtbs/tw8462.pp svneol=native#text/plain
tests/webtbs/tw8465.pp svneol=native#text/plain
tests/webtbs/tw8513.pp svneol=native#text/plain
tests/webtbs/tw8523.pp svneol=native#text/plain
tests/webtbs/tw8525.pp svneol=native#text/plain
tests/webtbs/tw8573.pp svneol=native#text/plain
tests/webtbs/tw8615.pp svneol=native#text/plain

15
tests/webtbs/tw8523.pp Normal file
View File

@ -0,0 +1,15 @@
{$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.