Главная страница
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.006 c
6-32312
Александр_1
2001-11-16 00:33
2002.02.11
Трафик


1-32181
Ig
2002-01-25 12:37
2002.02.11
Ошибка при StrToDate


1-32224
Sergey V
2002-01-26 22:51
2002.02.11
Существуют ли компоненты, показывающие системные папки !


1-32269
Ig
2002-01-25 22:25
2002.02.11
Как создать кнопку на основе картинки?


1-32220
ev
2002-01-24 20:04
2002.02.11
Есть ли платформно-независимый Object Pascal?