Текущий архив: 2002.11.18;
Скачать: CL | DM;

Вниз

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

← →
sterran ©   (2002-11-06 18:23) [0]

Уважаемые, мастера. Помогите преобразовать символы предсталенные кодовой таблицей DOS (ASCII) в ANSII (Windows) и наоборот...

---

← →
NP-237 ©   (2002-11-06 18:29) [1]

function U_WinToDos(s:String):String;
var sOEM:LPSTR;
begin
GetMem(sOEM,Length(s)+1);
CharToOem(PChar(s),sOEM);
U_WinToDos := String(sOEM);
FreeMem(sOEM);
end;

и OemToChar соответственно

---

← →
sterran ©   (2002-11-06 18:37) [2]

Круто, спасибо

---

← →
Alex4444444444   (2002-11-06 18:56) [3]

> NP-237
IMHO, eto ne ochen" nadezhno, tak kak zavisit ot locale i codepage. (T.e., na nelocalizovannoy systeme rabotat" ne budet.) Pravil"nej, navernoe, prosto sostavit" tablitsu, type,


const TransTable: array[Char] of Char = (...);

function Convert(const S: string): string;
var I: Integer;
begin
Result := S;
for I := 1 to Length(Result) do
Result[I] := TransTable[Result[I]];
end;


Dumayu, tak i bystree budet, i nadezhnee.

---

Страницы: 1 вся ветка

Текущий архив: 2002.11.18;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c