forum.boolean.name - как работать с тхт файлами?

Цитата:

Сообщение от Frank (Сообщение 54045)

Блин... только что сам наткнулся на эту проблему и изобрел велосипед :)
Вот мой вариант этой функции, у меня все работает - проверял :)

Код:

Function StrToUtf8(s: string;): string; // Корректирует русскую кодировку в строках взятых из ресурсов...

var i, c: integer; ch: char; ss: string;

begin

        if (pos(s,chr(65488))<>-1) or (pos(s,chr(65489))<>-1) then begin // если строка содержит русские симовлы, то

                for i:=1 to Length(s) do begin // перебираем строку

                        ch:=GetChar(s,i-1); c:=ord(ch);        // берем по байтику

                        if c=65488 then begin                                // если байт равен 65488, то следующий байт отвечает за русскую букву

                                ss:=ss+CHR(ord(GetChar(s,i))-64384);        // находим русскую букву и запоминаем

                                i:=i+1;                                                                                                                                // это чтобы мы перешли на следующую букву, а не брали следующий байт

                        end

                        else begin

                                if c=65489 then begin                                                // то же самое но с другим байт-кодом

                                        ss:=ss+chr(ord(GetChar(s,i))-64320);

                                        i:=i+1;

                                end

                                else ss:=ss+ch;                                                                                // если это не русская буква, то просто ее добавим

                        end;

                end;

                StrToUtf8:=ss;                                                        // возвращаем откорректированный текст

        end

        else StrToUtf8:=s;                        // если строка не содержала русских букв, то просто ее и возвратим...

end;

вот че я те скажу эти строки находятся в проэкте аурелико такчт не надо ляля! йа ызабрел йайа
и лдя исо данный способ не катит!
ну коменты хотяб убрал а то вообще узнается с первого взгляда!