TObject ausgeben

[Mike_]

Hallo liebe Delphigemeinde,

ich bin auf der Suche nach einem Befehl um "Sender:TObject" ausgeben zu lassen.

Der Grund ist, dass ich einen "prozessaufruf" simulieren möchten und ebend dieses TObject beim aufruf mitgegeben wird.

Sprich ich brauche den "Sendernamen".

Google zeigt mir keine Ergebnisse zum Thema "TObject ausgeben", "Delphi TOBject ausgeben" etc..

Danke im voraus

[webcss]

obwohl ich Deine Frage nicht so wirklich verstehe, versuch's doch mal mit

Delphi-Quellcode:

...
writeln(Sender.Classname);
...

[Mike_]

Undeclared identifier: 'sender'

Mit ShowMessage (self.sender.classname) klappt es ebenfalls nicht.

Es geht mir nur darum, eine Prozedur aufzurufen, welche sonst über ebend diesen "ASender: TObject" aufgerufen wird.

Daher möchte ich den Namen des Senders erhalten, um die Prozedur ausführen zu können.

[himitsu]

Das kann nicht sein, denn du sagtest ja di willst ein "Sender:TObject" auswerten und demnach sollte es Sender geben.

PS: ClassName = Name der Klasse, auf welcher dein Objekt basiert

[Mike_]

Edit://
Mit asender.classname hat es nun funktioniert.
Hatte mein Kopf ebend auf Durchzug

Edit2://
Wie kann man nun diese dem Prozeduraufruf dieses Object mitgeben ?
Beispiel: Prozedur123(Classname:TObject, var1, var2)

Wenn ich den Namen einfach hineinschreibe klappt es nicht "undeclared identifier"
Mit dem Aufruf "Classname:TObject" ebenfalls nicht, obwohl ich dachte dass er nun die Klasse als Object nehmen kann...

Edit3://
Behoben indem ich die entsprechende Unit eingebunden habe.
Nun erhalte ich einen "TObject" und Classreference" incompatible types.

Aufruf versucht:

Prozedur(Classname, var1, var2)
Prozedur(Classname:TObject, var1, var2)

[DeddyH]

Wieso gibst Du nicht den Sender weiter? Du brauchst ja eine Instanz und keinen Klassennamen, sofern ich Dich richtig verstanden habe. Bei Letzterem bin ich mir aber zugegebenermaßen nicht sicher.

[Mike_]

Weil dann "Types of actual and formal var parameters must be identical" kommt...

[DeddyH]

Kannst Du mal ein bisschen Code zeigen?

[Mike_]

Edit//
Wobei das nur heißt dass meine übergebenen Parameter fehlerhaft sind !?

Delphi-Quellcode:

Prozedur(ASender:TObject; var var1, var2, var3: integer; var var4, var5: wideString; var var6: Integer);
[...]

und ich rufe diese wie folgt auf:

Delphi-Quellcode:

procedure ButtonClick(Sender:Tobject);
begin
Prozedur (Sender, 124, 412, 412, '412', '', 124)
end;

Kann doch nichts verkeht sein !?

[himitsu]

Dann gibt esben statt Sender die Klasse weiter, welche benötigt wird,
so ala (Sender as TTheClassName) .

[add]
Das Sender ist OK, aber du übergibst Konstanten (deine Zahlen), wärend Variablen verangt werden.