Typcasting Delphi

[Alex_ITA01]

Hallo Delphianer,
ich wollte nur mal von euch wissen, ob folgende zwei Codebeispiele irgendein Unterschied für den Compiler oder das Programm darstellen:

Delphi-Quellcode:

procedure TMyForm.ComponentClick(Sender: TObject);
begin
  if Sender is TButton then
  begin
    ShowMessage((Sender as TButton).Caption);
  end;

  if Sender is TEdit then
  begin
    ShowMessage((Sender as TEdit).Text);
  end;
end;

Delphi-Quellcode:

procedure TMyForm.ComponentClick(Sender: TObject);
begin
  if Sender is TButton then
  begin
    ShowMessage(TButton(Sender).Caption);
  end;

  if Sender is TEdit then
  begin
    ShowMessage(TEdit(Sender).Text);
  end;
end;

Viele Grüße
Alex

[Bernhard Geyer]

Die zweite Version ist etwas schneller das hier ein harter Cast (ohne Typprüfung) erfolgt.
Im ersten Fall erfolgt eine Typprüfung und es wird eine Exception geschmissen wenn nicht erfolgreich. Da du aber mit is abprüfst passiert hier nix.

[Alex_ITA01]

Hallo Bernhard,
heißt also, wenn ich die zweite Variante nehme, sollte ich das "is" vorher abfragen.
Nehme ich die erste Variante, kann ich mir das "is" sparen, weil dies im "as" mit geschieht, richtig?

Viele Grüße
Alex

[Sir Rufo]

Nein so ist das nicht.

Bei einem reinen HardCast wird keine Exception geworfen, erst wenn ein Zugriff erfolgt.

Delphi-Quellcode:

var
  LEdit : TEdit;
begin
  Instance := TObject.Create;
  ...
  LEdit := TEdit( Instance );
  ...
  LEdit.Text := 'foo'; // hier Exception
  ...
end;

Bei einem SoftCast erfolgt die Exception direkt beim Casten.

Delphi-Quellcode:

var
  LEdit : TEdit;
begin
  Instance := TObject.Create;
  ...
  LEdit := Instance as TEdit; // hier Exception
  ...
  LEdit.Text := 'foo';
  ...
end;

Will man eine Exception vermeiden, dann muss immer vor dem Casten mit is geprüft werden.

[Bernhard Geyer]

Zitat von Alex_ITA01:

Hallo Bernhard,
heißt also, wenn ich die zweite Variante nehme, sollte ich das "is" vorher abfragen.
Nehme ich die erste Variante, kann ich mir das "is" sparen, weil dies im "as" mit geschieht, richtig?

Nein, nicht ganz.

Die prüfung mit is ist immer nötig. Du kannst dir aber das as sparen wenn es sich um einen Zeitkritischen Zweig handelt (der Mio-Fach pro Sekunde aufgerufen wird).
Ansonsten ist die schönere.

[sirius]

Das "is" kann man aber auch in eine assertion packen, wenn man "eigentlich" genau weiß, dass sender immer ein Button ist. So kann man den Test dann im Release rausnehmen.


@rufo: Deine Exception bei der Zuweisung von .Text muss aber nicht kommen.

[Furtbichler]

Zitat von sirius:

@rufo: Deine Exception bei der Zuweisung von .Text muss aber nicht kommen.

Wollte ich auch gerade schreiben. So kann man sich die lustigsten Fehler generieren, speziell bei kleinen DTO. Methodenaufrufe laufen dagegen häufig gegen die Wand.

[Memnarch]

Wichtig ist bei AS aber auch(wenn ich meine letzten erfahrungen nicht gerade durch den Wind werfe):
Wenn du mit packages arbeitest, Dein programm PackageA läd, und dort drin aus irgendeinem grund ein objekt erzeugt wird, dass an das hauptprogramm weitergeleitet wird, kann es beim überprüfen mit AS zu inkompatibilität kommen, wenn die klasse von der die instanz erstellt wurde(i.e. TMyCustomClass) sowohl ins Hauptprogramm als auch in das Package jeweils direkt reinkompiliert wird. Die muss dann mitunter auch noch in ein Package auf das gelinkt wird.