Thema: Delphi Typcasting Delphi

Einzelnen Beitrag anzeigen

Alex_ITA01

Registriert seit: 22. Sep 2003
1.115 Beiträge
 
Delphi 12 Athens
 
#1

Typcasting Delphi

  Alt 4. Jan 2013, 14:28
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
Let's fetz sprach der Frosch und sprang in den Mixer
  Mit Zitat antworten Zitat