Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Перекодировка [D5, dBase, FoxPro]

Xmen © (2004-01-28 08:23:00)

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

Xmen (2004-01-28 10:31:00) [1]

>>Anatoly Podgoretsky © (28.01.04 08:42) [1]

>>Свойство Transliterate

где это находится

Sandman25 (2004-01-28 10:31:00) [2]

[2] Artem03 (28.01.04 10:10)

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

Artem03 (2004-01-28 10:10:00) [3]

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

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%. Сам часто с этим сталкиваюсь (например - для обработки информации, полученной по системе "Клиент-Банк")

Anatoly Podgoretsky (2004-01-28 08:42:00) [4]

Свойство Transliterate

Наверх

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