КС
procedure TfmmUsersRef.UpdUserCallbackAnonProc(Sender: TComponent; Res: Integer);
var
FormEdit: TfmmUserEdit;
id: integer;
begin
if Res <> mrOk then exit;
if sender is TfmmUserEdit then
FormEdit := sender as TfmmUserEdit
else
exit;
и т.д.
Size: a a a
КС
VA
deleteitem(dinarray, index)
, но у меня компилятор ругается, что нет такой процедуры. Может в каком модуле?TC
TC
VA
AK
AS
КС
DB
DB
TC
DB
TC
TList.Add(TPoitner)
DB
AK
TC
DB
VA
DB
DB
Finalize(Arr[Index]);
Move(Arr[Index + 1], Arr[Index], Tail * SizeOf(T));
FillChar(Arr[High(Arr)], SizeOf(T), 0);