Zitat von
himitsu:
Vorallem das "File" einen internen Puffer verwendet, wobei Windows schon einen einsetzt (die WindowsFileCache) und was am Schlimmsten ist, daß dieser Puffer auch noch mit seinen 128 Byte völlig "schwachsinnig" dimensioniert ist.
Ansonsten ist es einfach nicht so schön
OOP. :stupid:
Was für einen "internen Puffer" meinst Du? Ich sehe keinen in der Definition.
Delphi-Quellcode:
type
{ Typed-file and untyped-file record }
TFileRec =
packed record (* must match the size the compiler generates: 592 bytes *)
Handle: Integer;
Mode: Word;
Flags: Word;
case Byte
of
0: (RecSize: Cardinal);
// files of record
1: (BufSize: Cardinal;
// text files
BufPos: Cardinal;
BufEnd: Cardinal;
BufPtr: PAnsiChar;
OpenFunc: Pointer;
InOutFunc: Pointer;
FlushFunc: Pointer;
CloseFunc: Pointer;
UserData:
array[1..32]
of Byte;
{$IFNDEF UNICODE}
Name:
array[0..259]
of AnsiChar;
{$ELSE}
Name:
array[0..259]
of WideChar;
{$ENDIF}
);
end;
Aber vielleicht meinst Du ja gar nicht
file sondern
text, das mit
read/ln,
write/ln bearbeitet wird. Aber da kannst Du, wenn Du 128 Bytes als schwachsinning ansiehst, die Größe mit
SetTextBuf ändern.