как узнать тип файла

[VAsiliyMvv]

Сообщение от Utkin

Ну есть и что?

Специально сделал себе подпись про гуглофобов, видимо Вы один из них .
На всякий случай - http://www.delphisources.ru/pages/fa...tFile.php.html
ЗЫ. Не за что , одного не соображу, как textfile здесь может помочь...

смешно =) только это я знаю

[Utkin]

Сообщение от VAsiliyMvv

смешно =) только это я знаю

Что именно? Напоминаю, что это был ответ на пост про textfile...

[ex.cluz]

[OFFTOP]
Utkin, Сдаюсь!
[/OFFTOP]

[Crivel]

Сообщение от NiCola999

в любом файле есть \n

Да, но в текстовых файлах, это используется для переноса строки. Всмысле \n это в программировании, а в файле это по моему байт 0D.

[Utkin]

Сообщение от Crivel

Да, но в текстовых файлах, это используется для переноса строки. Всмысле \n это в программировании, а в файле это по моему байт 0D.

Парни, что если двоичном файле первый байт будет 0D? Оставьте эту тему, эта ложная дорога и ведет в никуда.

[VAsiliyMvv]

это все не работает попробуйте сами запрограммить

[Crivel]

Utkin, читайте внимательнее пост №18:

Можно к примеру так: если \n встречается от начала файла только после 256 байтов, считать файл бинарным....

[Utkin]

Сообщение от VAsiliyMvv

это все работает попробуйте сами запрограммить

О чем это? Я начинаю Вас подозревать в ботовстве .

Utkin, читайте внимательнее пост №18:

А если там будет заключаться отрезок из Войны и Мир? А там есть предложение на полстраницы .
А если не встречается? Слишком уж частный случай Вы рассматриваете...

[Crivel]

function IsBinary(FileName : string) : boolean;
var
  f : file of byte;
  i : integer;
  b : byte;
begin
  Result := false;
  i := 0;
  AssignFile(f, FileName);
  Reset(f);
  repeat
    Read(f,b);
    if (b = $0D) and (not(i < 256)) then
    Result := true;
    Inc(i);
  until (i = 256) or (Eof(f)) or (Result = true);
  CloseFile(f);
end;

Набросал на скорую руку, запустить дельфи пока возможности нет, если есть ошибки не пинайте.

[ex.cluz]

А вообще расширения файлов и придумали для того, чтоб можно было понять что это за файл. Вот, например, откройте блокнотом какой-нить файл *.pas. Текст? Текст. А вашем понимании он текстом является или нет?
В текстовом виде можно представить почти все, что угодно, однако, оно от этого не станет связным текстом.