AS-Operator

[Udo Wamprecht]

Weshalb ist folgende Abfrage sinnlos?
if (sender as tedit).Name <>'Test' then...

[Bernd Schulz]

Definiere "sinnlos"

procedure TForm1.btnClick(Sender: TObject);
begin
(sender as tbutton).caption := 'Hallo';
end;

Klappt für einen Button einwandfrei.

BYE BERN

[Udo Wamprecht]

Hallo Bernd,
ich erhalte bei dem genannten Ausdruck die Fehlermeldung:
invalid class typecast. Kann damit leider nichts anfangen.
Gruß
Ud

[Bernhard Geyer]

Wenn Sender kein TEdit oder eine abgeleitete Klasse ist geht nunmal der Cast nicht und da es sich bei AS um einen Cast mit Typüberprüfung handelt bekommst Du eine Exception

[Udo Wamprecht]

Kann ich dies umgehen

[Dietmar Elsässer]

if (sender is TEdit) then
if (sender as tedit).Name <> 'Test' then ..

[Robert Marquardt]

Das ist nun dann doch unsinnig.
Wenn man schon auf den Typ mit is prueft dann kann man doch danach einen harten Typecast ohne as machen. is und as sind aufwaendige Operationen.
Alternativ kann man mit try except die Exception von as abfangen

[Dietmar Elsässer]

Was ist besser a, b oder c?
a
try
if (sender as tedit).Name <> 'Test' then ...
...
except
end;

b
if (sender is TEdit) then
if TEdit(Sender).Name <> 'Test' then

c
if (sender is TComponent) then
if (sender as tedit).Name <> 'Test' then ..

[Bernd Schulz]

Hallo!

a) Exceptions bäh...
b) geht
c) Roberts Kommentar noch mal lesen

if (sender is tcomponent) then
if tcomponent(sender).name <> 'Test' then

tuts doch und ist relativ allgemeingültig..

Nur so aus Neugier was solls denn mal werden?

BYE BERN

[Dietmar Elsässer]

Nochmals zurück zur Frage von Udo: "Weshalb ist folgende Abfrage sinnlos?
if (sender as tedit).Name <>'Test' then..."

Wenn sender nicht vom Typ TEdit oder ein Nachkomme von TEdit ist, dann kann nicht gecastet werden.
Es muß deshalb vorher der Typ abgeprüft werden.

Die Lösung von Bernd: "if (sender is tcomponent) then
if tcomponent(sender).name <> 'Test' then" ist dann die allgemein gültigste. Denn TEdit und andere Komponenten sind von TComponent abgeleitet.

Hallo Udo hat Dir das geholfen

[Robert Marquardt]

if (sender as tedit).Name <>'Test' then..."
Der eigentliche Unsinn dabei ist das man recht umstaendlich (und mit as aufwaendig) abprueft.
if Sender <> EditTest then ..
Es ist einfacher diesen einfachen Pointer-Vergleich mit der Komponente selbst zu machen. Es ist auch besser. Es koennen mehrere Komponenten den Namen 'Test' haben. Wer einen Handler schreibt der so etwas macht, der schreibt ein schwer verstaendliches und damit schwer wartbares Program

[Udo Wamprecht]

Vielen Dank, mehr Hilfe kann man nicht erwarten