mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-23 04:34:15 +02:00
23 lines
420 B
ObjectPascal
23 lines
420 B
ObjectPascal
uses
|
|
FileCtrl;
|
|
|
|
var
|
|
fd: TFileHandle;
|
|
Tmp: String;
|
|
I: Integer;
|
|
|
|
begin
|
|
fd := CreateFile('Valami.txt');
|
|
for I := 1 to 255 do Tmp[I] := Chr(I);
|
|
Tmp[0] := #255;
|
|
WriteFile(fd, Tmp, 256);
|
|
SeekFile(fd, 0, skBeg);
|
|
WriteLn('Filesize = ', FileSize(fd));
|
|
ReadFile(fd, Tmp, 256);
|
|
WriteLn(Tmp);
|
|
WriteFile(fd, Tmp, 256);
|
|
SeekFile(fd, 256, skBeg);
|
|
WriteLn('FilePos = ', FilePos(fd));
|
|
CloseFile(fd);
|
|
end.
|