Перекодировка

← →
Xmen (2004-01-28 08:23) [0]

Привет мастерам!!
У меня такая праблема. Имеется база в dbf файле, и кодировка в ДОСе. Как можно перекодировать данные в кодировку Windows.

← →
Anatoly Podgoretsky © (2004-01-28 08:42) [1]

Свойство Transliterate

← →
Artem03 (2004-01-28 10:10) [2]

Можешь воспользоваться следующей функцией

function doswinkod(strtok : string): string;
var
ch :integer;
kod : char;
i :integer;
strout :string;
begin
strout:="";
for i:=1 to Length(strtok)do
begin
ch:=ord(strtok[i]);
case ch of
128..175 : kod:=chr(ch+64);
224..239 : kod:=chr(ch+16);
242 : kod:=chr(165);
243 : kod:=chr(180);
244 : kod:=chr(170);
245 : kod:=chr(186);
246 : kod:=chr(178);
247 : kod:=chr(179);
248 : kod:=chr(175);
249 : kod:=chr(191);

176..182 : kod:=chr(124);
185..186 : kod:=chr(124);
193..195 : kod:=chr(124);
197..199 : kod:=chr(124);
202..204 : kod:=chr(124);
206..210 : kod:=chr(124);
215..216 : kod:=chr(124);
219 : kod:=chr(124);
221..222 : kod:=chr(124);

183..184 : kod:=chr(45);
187..192 : kod:=chr(45);
196 : kod:=chr(45);
200..201 : kod:=chr(45);
205 : kod:=chr(45);
211..214 : kod:=chr(45);
217..218 : kod:=chr(45);
220 : kod:=chr(45);
223 : kod:=chr(45);
else
kod:=chr(ch);
end;
strout:=strout+kod;
end;
result :=strout;
end;

Работает 100%. Сам часто с этим сталкиваюсь (например - для обработки информации, полученной по системе "Клиент-Банк")

← →
Xmen (2004-01-28 10:31) [3]

[2] Artem03 (28.01.04 10:10)

Можно использовать стандартные CharToOem и OemToChar. Они делают то же самое.

Перекодировка Найти похожие ветки