DOS2WIn

← →
Vana_sibe_viribus_ira_est (2003-07-22 06:54) [0]

Есть база данных в DOS кодировке, хотелось бы ее конвертнуть под WIn. Как лучше это сделать?

← →
AbrosimovA © (2003-07-22 08:06) [1]

//Функция преобразования из DOS-кодировки в кодировку Windows
function DosToWin(s:String):String;
var sOEM:LPSTR;
begin
GetMem(sOEM,Length(s)+1);
OemToChar(PChar(s),sOEM);
DosToWin := String(sOEM);
FreeMem(sOEM);
end;

← →
Palladin © (2003-07-22 08:18) [2]

Базы данных полностью не конвертируют, а используют правильные настройки.

← →
SergP © (2003-07-22 09:46) [3]

Хм. Мне приходилось несколько раз это делать. Но так как такое приходится не очень часто, то обычно легче это сделать вручную (в смысле написать с полтора десятка строчек кода чем убивать время на поиск нужных функций).

if s<>"" then OemToChar(PChar(s),PChar(s));

DOS2WIn Найти похожие ветки