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

Вниз

Как менять кодировку   Найти похожие ветки 

← →
MakNik ©   (2003-11-04 10:35) [0]

Есть некоторая строка. Подскажите, плз., как можно изменить ее кодировку?

---

← →
Романов Р.В. ©   (2003-11-04 10:40) [1]

OemToChar, таблицы перекодировки

---

← →
BillyJeans ©   (2003-11-04 11:22) [2]

function ConvertOemToAnsi(const S : string) : string;
{$IFNDEF WIN32}
var
Source, Dest : array[0..255] of Char;
{$ENDIF}
begin
{$IFDEF WIN32}
SetLength(Result, Length(S));
if Length(Result) > 0 then OemToAnsi(PChar(S), PChar(Result));
{$ELSE}
if Length(Result) > 0 then begin
OemToAnsi(StrPCopy(Source, S), Dest);
Result := StrPas(Dest);
end;
{$ENDIF}
end; { ConvertOemToAnsi }

---

← →
WondeRu ©   (2003-11-04 11:30) [3]

Я делаю под любую кодировку.

const
AlfRu1 = "абвг...";
AlfRu2 = "каен..."; //на что меняем, другая кодировка

потом
str - исходная строка

for i := 1 to length(str) do
str[i] := AlfRu2[pos(AlfRu2,str[i])];

str - результат

---

← →
Wonderu ©   (2003-11-04 11:31) [4]

Sorry!
for i := 1 to length(str) do
str[i] := AlfRu2[pos(str[i], AlfRu1)];

---

← →
MakNik ©   (2003-11-04 17:55) [5]

>WondeRu
А значениями строк AlfRu1 и AlfRu2 для различных кодировок вы могли бы поделиться???

---

← →
WondeRu ©   (2003-11-05 09:58) [6]

Без понятия ! Бери русский алфавит "АБВ...Яабв...я" и кодируй его в какой-нибудь "модной" проге в разные кодировки, вот и получишь их)))

---

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

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

Наверх

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