Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];

Вниз

как перевести string в widestring?   Найти похожие ветки 

← →
yaJohn   (2002-04-03 13:28) [8]

Вот это работает для русского языка. Глюкает на буквe e: ( Потому я и набрать ее не могу :)))
function WideStr2Str(s: WideString): string;
type
TWideRec = record
case integer of
0: ( wch: WideChar);
1: ( ch: char;
code: byte;
);
end;
var ch: TWideRec;
a: array [0..1] of byte absolute ch;
i,x: integer;
begin
setlength(result,length(s));
for i:=1 to length(s) do
begin
ch.wch:=s[i];
if ch.code = 0
then result[i]:=ch.ch
else result[i]:=chr(ord(ch.ch)+176);
end;
end;
Реализация не идеальная, но идея ясна.

---

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

Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c