Проблема с кодировкой

← →
286 © (2005-07-16 14:16) [0]

Я тут поисках в вашем FAQ, но немного не пойму
var
list:tstringlist;
i : integer;
s : string;
begin
list:=tstringlist.create;
list.loadfromfile("d:\chasovoi\parametr.cfg");
i :=List.IndexOf("// 6 ");
s :=List[i + 1];
ShowMessage (IntToStr (i) + " " + s);
list.Free;
end;
Английские символы - на ура, понимает, а вот русские выводит иероглифы.
В FAQ описана функция CharToOEM. А есть какая либо для типа string?

← →
[lamer]Barmaglot © (2005-07-16 14:31) [1]

CharToOemBuff ?

← →
begin...end © (2005-07-16 15:02) [2]

> 286 © (16.07.05 14:16)

> В FAQ описана функция CharToOEM. А есть какая либо для
> типа string?

CharToOEM подходит и для типа string.

← →
Anatoly Podgoretsky © (2005-07-16 15:09) [3]

string полностью совместимы с PChar

← →
286 © (2005-07-16 15:19) [4]

ага, щас я пытаюсь сделать нечто полезное.
пробую пока что

← →
286 © (2005-07-16 15:22) [5]

Ребят, а можно кусочек кода как переводить?

← →
Alexander Panov © (2005-07-16 15:46) [6]

CharToOem(PChar(s),PChar(s));

← →
286 © (2005-07-16 15:58) [7]

Так то вроде переводит уже, в watch list видно. Но получается из одной абрыкадабры в другую.

Все господа, получилось, спасибо
Нужно было:

OemToChar(PChar(s),PChar(s));
Вот выручили то, а.
Пасибо

Как вариант...
function _OemToAnsi(s : string) : String; function _AnsiToOem(s : string) : String; function _OemToAnsi(s : string) : String; Var pcs : PChar; // source pcd : PChar; // destination begin pcs := StrAlloc(Length(s)+1); pcd := StrAlloc(Length(s)+1); StrPCopy(pcs,s); OEMToChar(pcs,pcd); _OemToAnsi := StrPas(pcd); StrDispose(pcs); StrDispose(pcd); end; function _AnsiToOem(s : string) : String; Var pcs : PChar; // source pcd : PChar; // destination begin pcs := StrAlloc(Length(s)+1); pcd := StrAlloc(Length(s)+1); StrPCopy(pcs,s); CharToOEM(pcs,pcd); _AnsiToOem := StrPas(pcd); StrDispose(pcs); StrDispose(pcd); end;

AlexWlad © (16.07.05 18:56) [9]
Ну зачем же уж так жестоко...

function W2D(const Src: String): String; begin Result := Src; if Result="" then Exit; CharToOem(PChar(Result),PChar(Result)); end; function D2W(const Src: String): String; begin Result := Src; if Result="" then Exit; OemToChar(PChar(Result),PChar(Result)); end;

Проблема с кодировкой Найти похожие ветки