FileHasTextFormat?

[Bjoerk]

Hab's in meiner Sammlung jetzt erst mal so drin.

Gruß
Thomas

Delphi-Quellcode:

function IsProbablyTextfile(const FileName: string): boolean;
var
  S : string; // AnsiString
  F : TFileStream;
  I,R : Integer;
begin
  Result:= false;
  if not FileExists(FileName) then Exit;
  F:= TFileStream.Create(FileName, fmOpenRead);
  try
    if F.Size > 0 then
    try
      Result:= true;
      if F.Size > MaxInt then
        R:= MaxInt
      else
        R:= F.Size;
      SetLength(S, R);
      F.Read(S[1], R);
      for I:= 1 to R do
        if (S[I] < #32) and (not (S[I] in [#9, #10, #13, #26])) then
        begin
          Result:= false;
          Break;
        end;
    except
      Result:= false;
    end;
  finally
    F.free;
  end;
end;