Из win-кодировки 1251 перевести в 866

← →
Nevel (2003-01-26 08:59) [0]

Подскажите как преобразовать DBF файл с win-кодировкой 1251 в DBF файл с DOS кодировкой 866.
Заранее СПАСИБО.

← →
Chris (2003-01-26 12:39) [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;

Из win-кодировки 1251 перевести в 866 Найти похожие ветки