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

* removed obsolete example

Browse Source 
git-svn-id: trunk@2188 -
This commit is contained in:
florian 2006-01-05 19:32:56 +00:00
parent 9670e0eb78
commit 4eb1bc5dc9
2 changed files with 0 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1094,7 +1094,6 @@ fv/test/Makefile svneol=native#text/plain
fv/test/Makefile.fpc svneol=native#text/plain
fv/test/platform.inc svneol=native#text/plain
fv/test/testapp.pas svneol=native#text/plain
fv/test/tfileio.pas svneol=native#text/plain
fv/time.pas svneol=native#text/plain
fv/timeddlg.pas svneol=native#text/plain
fv/unixsmsg.inc svneol=native#text/plain

27
fv/test/tfileio.pas
View File

@ -1,27 +0,0 @@
USES
FVCommon,FileIO;
VAR
Handle : THandle;
buf : ARRAY[0..255] OF CHAR;
n : LongWord;
BEGIN
Handle := FileOpen(AsciiZ('test'), fa_Create);
writeln('FileOpen: ',Handle);
buf := 'Test'#0;
writeln('FileWrite: ', FileWrite(handle, Buf, 5, n));
writeln('Bytes written: ', n);
Writeln('SetFileSize: ', SetFileSize(handle, 4));
Writeln('SetFilePos: ', SetFilePos(handle, 2, 0, (LongInt(n))));
Writeln('Actual: ', n);
Writeln('FileRead: ', FileRead(Handle, buf, 2, n) );
Writeln('Actual: ', n);
Writeln('Buf[0]=', Buf[0], ' Buf[1]=', Buf[1]);
Writeln('FileClose: ', FileClose(Handle));
END.