So geht es:
Delphi-Quellcode:
try
F := TFileStream.Create(FName,fmOpenRead); //ja, FName ist gesetzt
finally
F.Read(Size,SizeOf(Size));
WriteLn(IntToStr(Size)); //GIBT 4 AUS
F.Free;
end;
Die Methode
TStream.Read gibt als Rückgabewert die Zahl der ausgelesenen Bytes
