Текущий архив: 2002.02.11;
Скачать: CL | DM;
Вниз
Снова о кодировке. Найти похожие ветки
← →
Hawk2 (2002-01-16 18:28) [0]Нужно одно поле в 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) [1]Извините все работает, кстати кому нужно будет перекодировать таблицу DOS->Windows, вот примитивный пример, у меня сработало.
Страницы: 1 вся ветка
Текущий архив: 2002.02.11;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.008 c
