чо за?...

[temned]

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

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

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

[GRAY_WOLF]

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

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

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

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

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

[temned]

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

[beZ_probleM]

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

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; 


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

[GRAY_WOLF]

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

[GRAY_WOLF]

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

[beZ_probleM]

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

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;

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


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

[GRAY_WOLF]

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

// Перекодировка из 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;

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