Da Fr_An sich wohl ausgesperrt hat (:ani_lol:), übernehme ich mal die Antwort:
Code
function Textdatei (const Datei : String) : Boolean;
const
Testlaenge = 100;
var
i : Integer;
aktByte : Byte;
z : file of byte;
begin
Result := True;
FileMode := 0; { Datei wird mit Schreibschutz geöffnet }
AssignFile (z, Datei);
Reset (z);
while (Not(EOF(z))
and (Result)
and (FilePos(z) <= Testlaenge))
do begin
Read(z, aktByte);
case aktByte of
0.. 9 : Result := False;
11.. 12 : Result := False;
14.. 31 : Result := False;
60 : Result := False;
62 : Result := False;
76 : Result := False;
91.. 93 : Result := False;
123..127 : Result := False;
129..166 : Result := False;
168..175 : Result := False;
177..179 : Result := False;
181..195 : Result := False;
197..213 : Result := False;
215..219 : Result := False;
221..222 : Result := False;
224..227 : Result := False;
229..245 : Result := False;
247..251 : Result := False;
253..255 : Result := False;
end;
Application.ProcessMessages;
end;
CloseFile(z);
end;
Alles anzeigen