Browse Source

* removed obsolete example

git-svn-id: trunk@2188 -
florian 19 years ago
parent
commit
4eb1bc5dc9
2 changed files with 0 additions and 28 deletions
  1. 0 1
      .gitattributes
  2. 0 27
      fv/test/tfileio.pas

+ 0 - 1
.gitattributes

@@ -1094,7 +1094,6 @@ fv/test/Makefile svneol=native#text/plain
 fv/test/Makefile.fpc svneol=native#text/plain
 fv/test/Makefile.fpc svneol=native#text/plain
 fv/test/platform.inc svneol=native#text/plain
 fv/test/platform.inc svneol=native#text/plain
 fv/test/testapp.pas 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/time.pas svneol=native#text/plain
 fv/timeddlg.pas svneol=native#text/plain
 fv/timeddlg.pas svneol=native#text/plain
 fv/unixsmsg.inc svneol=native#text/plain
 fv/unixsmsg.inc svneol=native#text/plain

+ 0 - 27
fv/test/tfileio.pas

@@ -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.