Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
ВнизКодировка Найти похожие ветки
← →
Вадим (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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.003 c