Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.011 c
3-32129
IlyaLu
2001-12-24 15:36
2002.02.11
dbExpress


7-32360
Станислав
2001-08-21 11:02
2002.02.11
Как узнать какая программа использует DLL


1-32227
Wizard
2002-01-26 15:28
2002.02.11
DCOM/ATL


1-32274
чайничек
2002-01-27 09:50
2002.02.11
Переместить название одного узла (подузла) TTreeView в Edit или ComboBox


1-32234
Andger
2002-01-27 15:23
2002.02.11
Delphi виснет при палитре > 16 цветов