Снова о кодировке.
Hawk2 © (2002-01-16 18:28:00)
Нужно одно поле в db-файле перегнать из DOS кодировки в
Windows. Пробовал так:
procedure TForm1.Button1Click(Sender: TObject);
var Src, Str:PChar;
i:integer;
begin
Table1.Open;
for i:=1 to 50 do
begin
Src:=PChar(Table1.FieldByName("FIO").AsString);
OemToChar(Src, Str);
Table1.Edit;
Table1.FieldByName("FIO").AsString:=Str;
Table1.Next;
end;
end;
но данные из поля вообще удаляются где ошибка, как правельно?
Извините за корявость это только проба.
Hawk2 (2002-01-16 18:44:00) [1]
Извините все работает, кстати кому нужно будет перекодировать
таблицу DOS->Windows, вот примитивный пример, у меня
сработало.
Наверх 
ЧАТ |
Орешник |
|
