Из win-кодировки 1251 перевести в 866 [D5, D6, dBase, FoxPro]
Nevel © (2003-01-26 08:59:00)
Подскажите как преобразовать DBF файл с win-кодировкой 1251 в
DBF файл с DOS кодировкой 866.
Заранее СПАСИБО.
Chris (2003-01-26 12:39:00) [1]
Можно, примерно, так:
var s: array [0..255] of Char;
...
Table.DataBaseName:="Путь к DBF-файлу";
Table.TableName:="Имя файла";
Table.Active:=True;
While not Table.Eof do
begin
Table.Edit;
for i:=0 to Table.FieldDefs.Count-1 do
if Table.FieldDefs[i].DataType=ftString then
begin
CharToOem(PChar(Table.Fields[i].AsString),s);
Table.Fields[i].AsString:=s;
end;
Table.Next;
end;
Table.Close;
Наверх 
ЧАТ |
Орешник |
|
