Go to English page

ViaThinkSoft CodeLib

Dieser Artikel befindet sich in der Kategorie:
CodeLibProgrammierhilfenDelphi

function IsBinaryFile(f: string): boolean;
var
  Stream: TStream;
  b: Byte;
begin
  result := false;
  Stream := TFileStream.Create(f, fmOpenRead);
  try
    while Stream.Read(b, SizeOf(b)) > 0 do
    begin
      if (b <= 31) and (b <> 9) and (b <> 10) and (b <> 13) then
      begin
        result := true;
        Exit;
      end;
    end;
  finally
    Stream.Free;
  end;
end;
Daniel Marschall
ViaThinkSoft Mitbegründer