Главная страница
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.009 c
1-32196
RUS1
2002-01-29 12:41
2002.02.11
Как можно удалить сразу все файлы и подкаталоги в директории


3-32122
Animal
2002-01-15 10:33
2002.02.11
Работа с таблицами без установки BDE на компьтере


3-32142
Voi
2002-01-15 15:02
2002.02.11
Посимвальная отфильтрация данных в Delphi


3-32171
Andrey007
2002-01-15 09:51
2002.02.11
Direct Oracle Access.


4-32367
AndrewInc
2001-12-13 16:58
2002.02.11
Помогите скрыть программу спанели задач.