Главная страница
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.008 c
1-32198
Valentin2
2002-01-29 13:31
2002.02.11
Привет...


4-32379
Olgerd
2001-12-12 18:43
2002.02.11
PChar


3-32148
wicked
2002-01-15 17:56
2002.02.11
ГЛЮЧНОСТЬ ADO... :(


1-32291
serjant
2002-01-28 11:11
2002.02.11
Сохранение QReport


6-32307
DVitalik
2001-11-19 14:44
2002.02.11
У кого-нибудь есть примеры работы с WinSock2?