Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.06;
Скачать: CL | DM;

Вниз

Проблемы с кодировкой   Найти похожие ветки 

 
Yulik   (2004-01-13 16:43) [0]

Помогите пожалуйста перекодировать...
считываю информацию из dbf...


 
Stas ©   (2004-01-13 16:47) [1]

aDBHnd - TDatabase.Handle;
aTblType - "PARADOX"/"DBASE"/"FOXPRO"
aLangDriver - "ancyrr".

procedure ChangeLangDriver( aDBHnd: HDBIDB; aTable: TTable; const aTblType, aLangDriver: String);
var
TblExt: string;
TblDesc: CRTblDesc;
OptDesc: FLDDesc;
OptData: array [0..250] of Char;
Cur: hDBICur;
Rec: CFGDesc;
begin
FillChar( OptDesc, SizeOf( OptDesc ), #0);
FillChar( TblDesc, SizeOf( TblDesc ), #0);
StrCopy( OptDesc.szName, "LANGDRIVER");
OptDesc.iLen := Length(aLangDriver) + 1;
with TblDesc do
begin
StrPCopy( szTblName, aTable.TableName);
StrCopy( szTblType, PChar(aTblType));
iOptParams := 1;
pfldOptParams := @OptDesc;
pOptData := @OptData;
end;
StrPCopy( OptData, aLangDriver);
Check( DbiDoRestructure( aDBHnd, 1, @TblDesc, nil, nil, nil, False ) );
end;



Страницы: 1 вся ветка

Текущий архив: 2004.02.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.072 c
1-16437
C@N
2004-01-18 12:53
2004.02.06
Замена/расширение возможности стандартных инищек


14-16613
Eagle Owl
2004-01-13 22:43
2004.02.06
Дизассемблеры...


1-16234
sbuffoon
2004-01-26 01:09
2004.02.06
Alt+F4


1-16512
MakNik
2004-01-27 10:14
2004.02.06
PopupMenu


3-16077
Леонид
2004-01-10 01:41
2004.02.06
Поиск одинаковых фрагментов текста в БД