Интересуют - а как нибуть по другому можно ?

← →
beglec © (2006-03-24 20:52) [0]

Есть вот такой код

// ------------------------------------------------------------------------------ DB в Type - пользователи procedure DBtoType_Login(var Login: TSendLoginFull); begin FillChar(Login,0,SizeOfSendLoginFull); // заполнение переменной нулями Login.ID :=600; // идентификатор - о том что это запись задачи Login.IDLogin :=DM.TableLogin[tID]; // номер ID записи "задачи" в базе данных Login.Login :=DM.TableLogin[tLogin]; // сам логин Login.Password :=DM.TableLogin[tPassword]; // пароль Login.Famely :=VTS(DM.TableLogin[tFamely]); // фамилия Login.RealName :=VTS(DM.TableLogin[tRealName]); // имя Login.Patro :=VTS(DM.TableLogin[tPatro]); // отчество Login.DateReg :=DM.TableLogin[tDateReg]; // дата регистрации Login.DateRegLast :=DM.TableLogin[tDateRegLast]; // дата последнего входа в систему Login.DateHappy :=DM.TableLogin[tDateHappy]; // дата рождения Login.DateBegin :=DM.TableLogin[tDateBegin]; // дата начала работы на предприятии Login.DateEnd :=DM.TableLogin[tDateEnd]; // дата увольнения Login.Country :=VTS(DM.TableLogin[tCountry]); // страна проживания Login.City :=VTS(DM.TableLogin[tCity]); // город проживания Login.Email :=VTS(DM.TableLogin[tEmail]); // email Login.ICQ :=VTS(DM.TableLogin[tICQ]); // ICQ Login.Telephone :=VTS(DM.TableLogin[tTelephone]); // Login.Mobile :=VTS(DM.TableLogin[tMobile]); // мобильный Login.Office :=VTS(DM.TableLogin[tOffice]); // офис Login.INN :=VTS(DM.TableLogin[tINN]); // ИНН Login.PolisMedic :=VTS(DM.TableLogin[tPolisMedic]); // медицинский полис Login.PolisCrash :=VTS(DM.TableLogin[tPolisCrash]); // страховой полис Login.Privil :=DM.TableLogin[tPrivil]; // привелегии клиента Login.Sex :=DM.TableLogin[tSex]; // половая принадлежность Login.Department :=DM.TableLogin[tDepartment]; // отдел в котором работает Login.Rank :=DM.TableLogin[tRank]; // должность Login.National :=DM.TableLogin[tNational]; // национальность Login.Profession :=DM.TableLogin[tProfession]; // профессия Login.Languages :=DM.TableLogin[tLanguages]; // язык Login.Education :=DM.TableLogin[tEducation]; // образование Login.Status :=DM.TableLogin[tStatus]; // статус - уволен, работает и все такое Login.StatusFam :=DM.TableLogin[tStatusFam]; // статус семейный - холост - за мужем и т.д. Login.Rem :=DM.TableLogin[tRem]; // дополнительные комментарии end;
так вот
Процедурка FillChar очень удобная
А есть что нибудь подобное что бы преобразовать из таблицы сразу к типу :)
Это чисто ради академического интереса спрашиваю :)

P.S. процедура VTS это VariantToString – сами понимает поле на null парит постоянно проверять ;)
DB Paradox.

← →
Desdechado © (2006-03-24 21:09) [1]

> преобразовать из таблицы сразу к типу
это как?

> VariantToString – сами понимает поле на null парит постоянно проверять
И не надо. При присваивании вариантного нулла стринговой переменной будет просто пустая строка.

← →
beglec © (2006-03-24 21:23) [2]

Table=TTable

Login=record
..
end;

у меня нет решения данного вопроса, вот и спросил может есть хотя сомневаюсь.

string=null - выскакивает шибка EConvertError; после действительно string="";
чтобы шибка не выскакивала приходится писать
try
string=null
..
end;
это я так утрировано написал.

← →
Kerk © (2006-03-24 21:32) [3]

VarToStr

← →
beglec © (2006-03-24 21:42) [4]

> Kerk

:) длинно писать ;)

ладно, думаю тема закрыта

FieldByName(...).AsXXX

← →
Golik (2006-03-25 20:21) [6]

Интересуют - а как нибуть по другому можно ? Найти похожие ветки