| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема преобразование символов... [D5, D6]

sterran ©   (2002-11-06 18:23:00) 

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

---

Alex4444444444   (2002-11-06 18:56:00) [1]

> 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.

---

sterran   (2002-11-06 18:37:00) [2]

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

---

NP-237   (2002-11-06 18:29:00) [3]

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 соответственно

---

Наверх