forum.boolean.name - чо за?...

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - чо за?... (http://forum.boolean.name/showthread.php?t=7765)

Ответ: чо за?...

Похоже, что эта проблема уже обсуждалась

Цитата:

Как сделать, чтобы можно было читать не только кириллицу, но и такие буквы как: ї, љ, њ, ќ? Вообще эти символы относятся к кириллическим, но если использовать приведенную выше функцию StrToUtf8, то прога все равно зависает.

но ответа не было. Непонятно, как это реализовать.

Ответ: чо за?...

Цитата:

Сообщение от TEMNED (Сообщение 96866)

Похоже, что эта проблема уже обсуждалась

но ответа не было. Непонятно, как это реализовать.

Используя графические шрифты проблем с выводом не существует.
вот пример написан в win 1251

1
Лек. Об’єктивно–орієнтовне програмування
Лісовець
Аудиторія:1-0413
2
Лек. Релігієзнавство
Множинська Р.В.
Аудиторія:4-0505
#
ї, љ, њ, ќ?
#
###
Пример вывода я уже писал постом выше.

Ответ: чо за?...

Вот пусть без_проблем возьмет твой исходник за Правило, пускай помотрит что там к чему, наверно ты ему помог

Ответ: чо за?...

типа эта функция(win2utf) должна переводить кодировку "так сказать" блокнота в Юникод? оО

PHP код:


		
			
function win2utf(s: string): string; 

var    len, ch, i: integer;

        sstt: string;

begin

    sstt:=''; len:=Length(s)-1;

    for i:=0 to len do begin ch:=ord(GetChar(s,i)); if ch>122 then sstt:=sstt+chr(ch+1104) else sstt:=sstt+chr(ch); end;

    win2utf:=sstt;

end;

...неработает шото

Ответ: чо за?...

Я блокнотом ни когда непользуюсь, а пользуюсь Notepad++.
1
Лек. Об’єктивно–орієнтовне програмування
Лісовець
Аудиторія:1-0413
2
Лек. Релігієзнавство
Множинська Р.В.
Аудиторія:4-0505
#//нажи ентер
ї, љ, њ, ќ?
#//нажи ентер
###//нажи ентер
//пустая строка
Только так будет работать.

Ответ: чо за?...

Мне так и непонятно разобрался ли beZ_probleM с примером? Что-то ни слуха ни духа.В папке res есть пример.

Ответ: чо за?...

карочь какойто бред у меня получаетсо... уже вроде читает всё шо надо но не всегда оО тоесть иногда прочитало а иногда нет и зависает соответсвтенно хоть читает то же самое... ппц... я уже написал шоб небыло ошыбки при открытии файла

repeat
until resourseAvieble(res);

вроде так) точно не помню как пишетсо процедура=)

а оно всёравно то же самое... значит ета ошыбка не изза того шо файл неправильно открыт был... вобщем незнаю... тот пример шо ты кидал , так там стандартные методы считывания файла...

function win2utf(s: string): string;
var len, ch, i: integer;
sstt: string;
begin
sstt:=''; len:=Length(s)-1;
for i:=0 to len do begin ch:=ord(GetChar(s,i)); if ch>122 then sstt:=sstt+chr(ch+1104) else sstt:=sstt+chr(ch); end;
win2utf:=sstt;
end;

- вотето тож не спасает...

З.Ы. пример не могу запустить так как нехватает библиотек

Ответ: чо за?...

Вот сборник всех либ что есть уменя.
Перекодировка

// Перекодировка из Win-1251 --> UTF-8
function win2utf(s: string): string;
var len, ch, i: integer;
sstt: string;
begin
sstt:=''; len:=Length(s)-1;
for i:=0 to len do begin ch:=ord(GetChar(s,i)); if ch>122 then sstt:=sstt+chr(ch+1104) else sstt:=sstt+chr(ch); end;
win2utf:=sstt;
end;

Загрузка текста из корневого каталога

// Загрузка текста из файла
function LoadText(fn: string): string;
var
res: resource;
line, line2: string;
begin
res:=OpenResource('/'+fn); line2:='';
repeat
line:=ReadLine(res);
if line='###' then break;
if line='#' then line2:=line2+' '+chr(13); else line2:=line2+' '+chr(13)+win2utf(line);
until false;
CloseResource(res);
LoadText := line2;
end;

Еще что нужно стучи в аску.