Скачать: CL | DM;

Из 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.024 c