Главная страница
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.048 c
1-32289
MAN-IN-RED
2002-01-28 22:12
2002.02.11
Есть вопросик, буду очень благодарен если поможете!


1-32219
Андрей Сенченко
2002-01-25 12:33
2002.02.11
Проверка доступности сетевого диска


3-32154
Hawk2
2002-01-16 11:48
2002.02.11
Помогите с кодировкой!!!


1-32295
Lord BDV
2002-01-28 19:39
2002.02.11
Отключение контекстного меню


1-32264
Serg001
2002-01-28 14:40
2002.02.11
Как узнать handle окна (другого).