Hi Jan,
well I can see, that you are really missing some simple Pascal-language
fundamentals,
but they are easy to learn.
In the declaration
procedure RemoveBkMaster(Sender: TObject);
Sender is a (so-called) Placeholder of the type TObject
in the Statement
begin
RemoveBkMaster(Self);
Self is the actual Parameter which is given to your Procedure.
This implies that a) Self exists in the context of the calling program (which
is not the case)
and that it is of type TObject.
Since in your procedure RemoveBkMaster the placeholder Sender: TObject is never
used, you may leve it out or
use in the call
RemoveBkMaster(Nil);
which gives RemoveBkMaster an actual value of the type TObject (or rather a
compatible type)
Have fun
Bob
J. Meier Software - Entwicklung · Moltkestraße 3 · 25355 Barmstedt
Tel. 04123 / 85 997 · Handy 0171 701 14 47 · Fax 04123 / 92 97 79
> [EMAIL PROTECTED] wrote:
> 1]Which Identifier is unknown in your uCrUtil-Unit
> 2]Is uCrUtil a DataModule?
> 3]The error will prpbably have to do with the declarations of your
> procedures and not with the Code itself,
> 4]so better check that out.
> 5] The Declaration of RemoveBkMaster looks as if it was an
> Event-Proc, but the "ClassName." is missing.
> 6]Where comes the "Sender:tObject" parameter from?
> [[R]]
> 1=Self
> 2= No , udmMCr is the DataModule
> 3= yes, but do not understand it works in one unit and not in the unit
> it is declared
> 4= like to do that but do not know how/ where
> 5= yes
> procedure RemoveBkMaster(Sender: TObject);
> tried to "fiddle" with class but it was just trial and error, due
> to a lack of knowledge.
> 6= I copycat that from the many procedures i see declared in apps and
> it worked.
> [by the way: the abundance of underscores is to help me identify the
> placements of dots , as I can not see the dots very well on the screen]
>
> [part of the unit where the proc is declared]
> ============================================
> unit uCrUtil; // unit without a form
> interface
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs,
> ADODB, Db;
>
> type
> TCrUtil_= class(TObject)
> end;
>
> procedure RemoveBkMaster(Sender: TObject);
> procedure SetBkMaster(Sender: TObject);
> procedure MD_TrDate_TrNr(Sender: TObject);
> procedure MD_TrNr_BkNr(Sender: TObject);
> procedure A(Sender: TObject);
>
> var CrUtil_ : TCrUtil_;
> implementation
>
> uses udmMCr;
>
> {[remove MD BkNr with TrNr ]}
> procedure RemoveBkMaster(Sender: TObject);
> begin
> dmMCR_.tBK_.Active := False;
> dmMCR_.tBK_.MasterSource := nil ;
> dmMCR_.tBK_.MasterFields := '';
> dmMCR_.tBK_.Active := True;
> dmMCR_.tTRNR_.Active := False;
> dmMCR_.tTRNR_.MasterSource := nil ;
> dmMCR_.tTRNR_.MasterFields := '';
> dmMCR_.tTRNR_.Active := True;
> end;//* procedure RemoveBkMaster
>
> procedure A(Sender: TObject);
> begin
> RemoveBkMaster(Self);
> <some code>
> end;
>
> this gives the UI Self
>
> part of another unit where the proc is used
> ===============================
> unit ufMTr; // unit with a form
> Interface
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
> Dialogs,
> StdCtrls, ExtCtrls, Menus, Grids, DBGrids, DBCtrls, Mask,ADODB,Db,
> ComCtrls;
>
> type
> TfMTr_ = class(TForm)
> MainMenu1: TMainMenu;
> < components, proc and func delcarations>
> end;
> var
> fMTr_: TfMTr_;
> implementation
> uses udmMCr, uCrUtil, ufBookYear, ufUtilities, ufStrings;
> {$R *.DFM}
>
> procedure TfMTr_.DbtnRecordCountBk_Click(Sender: TObject);
> var iRec : integer;
> begin
> RemoveBkMaster(self);
> iRec := dmMCr_.tBK_.RecordCount;
> DlblRecordCountBk_.Caption := 'Number of bookings: ' + IntToStr(iRec);
> SetBkMaster(self) ;
> end;
>
> [in this unit the proc works]
> ===================
> I have 3 tables [tTRDATE_ ; tTRNR_ ; tBK_ in a masterdetail relation
> and have to remove this relation to be able to see and manipulate all
> the records in tBK_
> I am thankfull Bob for your intrest to help me.
> Jan [nickname] Welmers;
> Aruba[A tiny country in the Caribbean that is under heavy attack from
> some American media]
>
>
>
>
>
>
>
>
>
> -----------------------------------------------------
> Home page: http://groups.yahoo.com/group/delphi-en/
> To unsubscribe: [EMAIL PROTECTED]
> Yahoo! Groups Links
>
>
>
>
>
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Most low income households are not online. Help bridge the digital divide today!
http://us.click.yahoo.com/I258zB/QnQLAA/TtwFAA/i7folB/TM
--------------------------------------------------------------------~->
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
