Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

Кодировка 


msys   (2002-01-02 21:06) [0]

Как определить в какой кодировке текстовый файл(DOS или WIN) ?
Спасиба.



Вадим   (2002-01-02 21:15) [1]

Я делал так:

type
TCodePage = (cpDOW, cpWIN);

function SomeFunc(s: string): TCodePage;
const
DOS: set of char = (...);
WIN: set of char = (...);
var
d, w: integer;
begin
d := 0;
w := 0;
for s := 1 to Length(s) do
begin
if s[i] in DOS then Inc(d);
if s[i] in WIN then Inc(w);
end;
if d > w then Result := cpDOS
else Result := cpWIN;
end;



Quest   (2002-01-03 12:06) [2]

........
const
OemCharSet = [128..159];//[А..Я] - заглавные буквы Dos
// кодировки без буквы "Ё" - она пересекается с Win кодировкой

....
// s - строка символов
....
S_tmp:=UpperCase(Trim(s));// возвести в верхний регистр

IF (S_tmp[1]) in OemCharSet) Then ... // s - в DOS кодировке
...
// или
IF (Copy(S_tmp,1,1) in OemCharSet) Then ... // s - в DOS кодировке



Quest   (2002-01-03 12:12) [3]

разумеется предварительно необходимо считать эту строку из файла:

AssignFile(DataFile, "File.txt");
Reset(DataFile);
Readln(DataFile, S);



Quest   (2002-01-03 12:16) [4]

:) ... и ещё, перед проверкой на вхождение в массив OemCharSet, необходимо отсечь цифры и спец. символы ... Удачи!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.014 c
4-66414           Русский               2001-11-19 17:43  2002.01.21  
Людииии ааааааа Help :)))


14-66346          Dick                  2001-11-23 20:20  2002.01.21  
Знатоки! Объясните.


3-66221           Grafbez               2001-12-13 10:10  2002.01.21  
Help Composite Report


3-66208           Vygantas              2001-12-18 13:10  2002.01.21  
MySQL и D6


1-66276           BigLamer              2002-01-04 12:57  2002.01.21  
Почему Delphi делит не верно?