Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Посогите с решением проблемы в упаковке таблицы!!!!!!! [D7, Paradox]


Dimaz-z ©   (2003-05-22 15:04:00) 

При уапаковке таблицы всё проходит нормально, в таблице содержится поле Picture, но когда я опять (После упаковки) открываю эту таблицу и просматриваю запись с полем Picture, вылазит ошибка - "Not Exact read/write File: ...base.mb ...." Что делать?
Код процедуры упаковки:


procedure Tfrm_main.PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
Check(DbiGetCursorProps(Table.Handle, Props));
if (Props.szTableType = szPARADOX) then begin
FillChar(TableDesc, sizeof(TableDesc), 0);
Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));

StrPCopy(TableDesc.szTblName, Table.TableName);
CharToOem(TableDesc.szTblName, TableDesc.szTblName);

StrPCopy(TableDesc.szTblType, Props.szTableType);
TableDesc.bPack := True;
Table.Active:=False;
Table.Close;
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end else
if (Props.szTableType = szDBASE) then Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else raise EDatabaseError.Create("Неправильный формат таблицы");
Table.Close;
end;


Соловьев   (2003-05-22 16:18:00) [1]


> Я то английский пойму, но вопрос, поймут ли его пользователи!

Columns[1].Title.Caption := "Русское поле"


WarLord   (2003-05-22 16:18:00) [2]


> Dimaz-z © (22.05.03 16:13)
> Я то английский пойму, но вопрос, поймут ли его пользователи!

а зачем пользователям знать реальные имена полей???


sniknik   (2003-05-22 16:18:00) [3]

а им показывай руские соответствия, ты же программист! все в твоих руках (кроме скомпиленных внутренностей BDE :о)).


Dimaz-z   (2003-05-22 16:13:00) [4]

Я то английский пойму, но вопрос, поймул ли его пользователи!


Dimaz-z   (2003-05-22 16:13:00) [5]

Я то английский пойму, но вопрос, поймут ли его пользователи!


Dimaz-z   (2003-05-22 16:12:00) [6]

А без английского никак?


Dimaz-z   (2003-05-22 15:55:00) [7]

Да, поля на русском!


sniknik   (2003-05-22 15:23:00) [8]

подозрения у меня есть что у тебя не только имя таблицы на русском но и названия полей тоже. нет? пиши не родном, английском не будет проблем.


Dimaz-z   (2003-05-22 15:10:00) [9]

Очень надо, помогите... плз...


Наверх

Титульная страница Поиск, карта сайта Написать письмо