Всем доброго вечера. Разбираюсь с методами записей - вещь вельми удобная и интересная, начал использовать ее для работы с БД. Но вот не могу разобраться. У меня уже немало кода используют локальные переменные-записи. недавно обнаружил, что объявленные локально в функциях/процедурах/событиях переменные-записи содержат внутри мусор, по моей логике работы с записями - не всегда все поля задаются явно по алгоритму, и не присвоенные в коде процедуры поля записи остаются непроинициализированные, соотв. с мусором. Так выявилась проблема, что поле типа TDateTime, которое не было присвоено в коде, при записи в БД вызывало арифметическую ошибку.
Суть проблемы - я так понял, нельзя задать свой дефолтный конструктор для записи. То есть задать во всех моих записях конструктор по умолчанию, чтоб он занулял все поля. Нужно добавить свой конструктор с каким-то параметром и потом перед использованием переменной-записи вызывать его явно в начале использования. (как-то сумбурно описал, но надеюсь вы смогли что-то понять). Грубо говоря - есть уже готовый код с использованием переменных-записей. Можно ли без добавления явного конструктора-обнулятора в каждом применении переменной-записи обнулить переменную-запись? Как я понял из документации - нельзя, но вдруг я плохой чукча-читатель?
Вот пример.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
type
TcfCash=record
CID :Int64;
CFROM :Int32;
CTO :Int32;
CTYPE :Int32;
CPAYMENT :Currency;
CDATE :TDateTime;
CCAID :Int32;
CACCEPTED :TDateTime;
CCANCELED :TDateTime;
CCONFIRMED :TDateTime;
CVIEWED :TDateTime;
EMPID :Int32;
CDESCR :string;
CNO :string;
CDEST :string;
DBDATE :TDateTime;
CORDID :Int64;
CPARENT :Int64;
function AddCurrent(Atrs:TFDTransaction):Int64;
function LoadToCurrent(ACID:Int64):boolean;
end;
////////////////////
function TcfCash.AddCurrent(Atrs:TFDTransaction):Int64;
var qw:TFDQuery;
begin
qw:=TFDQuery.Create(nil);
qw.Connection:=DM.conCF;
qw.Transaction:=Atrs;
qw.UpdateOptions.AutoCommitUpdates:=False;
qw.UpdateTransaction:=Atrs;
qw.SQL.Text:=
' insert into CASH (CFROM, CTO, CTYPE, CPAYMENT, CDATE, CCAID, CACCEPTED, CCANCELED, CCONFIRMED, CVIEWED, EMPID, CDESCR, '+
' CNO, CDEST, DBDATE, CORDID, CPARENT) '+
' values (:CFROM, :CTO, :CTYPE, :CPAYMENT, :CDATE, :CCAID, :CACCEPTED, :CCANCELED, :CCONFIRMED, :CVIEWED, :EMPID, :CDESCR, '+
' :CNO, :CDEST, ''now'', :CORDID, :CPARENT) '+
' returning CID ';
SetParamIfNot0(CFROM, qw.ParamByName('CFROM'));
SetParamIfNot0(CTO, qw.ParamByName('CTO'));
qw.ParamByName('CTYPE').AsInteger :=CTYPE;
qw.ParamByName('CPAYMENT').AsCurrency :=CPAYMENT;
qw.ParamByName('CDATE').AsDateTime :=CDATE;
qw.ParamByName('CCAID').AsInteger :=CCAID;
qw.ParamByName('EMPID').AsInteger :=EMPID;
SetParamIfNot0(CACCEPTED, qw.ParamByName('CACCEPTED'));
SetParamIfNot0(CCANCELED, qw.ParamByName('CCANCELED'));
SetParamIfNot0(CCONFIRMED, qw.ParamByName('CCONFIRMED'));
SetParamIfNot0(CVIEWED, qw.ParamByName('CVIEWED'));
SetParamIfNot0(CDESCR, qw.ParamByName('CDESCR'));
SetParamIfNot0(CNO, qw.ParamByName('CNO'));
SetParamIfNot0(CDEST, qw.ParamByName('CDEST'));
SetParamIfNot0(CORDID, qw.ParamByName('CORDID'));
SetParamIfNot0(CPARENT, qw.ParamByName('CPARENT'));
qw.active:=true;
CID:= qw.FieldByName('CID').AsLargeInt;
result:=qw.FieldByName('CID').AsLargeInt;
qw.Free;
end;
SetParamIfNot0 - это функция, которая очищает параметр (clear), если значение поля нулевое
Так вот, если я какое-то поле принудительно не зануля в своем коде - по умолчанию оно может быть совсем не нулевое и выходить за рамки сущности (как с датой - в поле TDateTime был мусор, который и не нулевой, и при записи в БД сыпал ошибку)
