AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Übergabeparameter in Funktion

Ein Thema von martin_ · begonnen am 19. Jun 2009 · letzter Beitrag vom 19. Jun 2009
Antwort Antwort
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.655 Beiträge
 
Delphi 12 Athens
 
#1

Re: Übergabeparameter in Funktion

  Alt 19. Jun 2009, 16:26
Dann definier Dir doch eine Basisklasse, die die Methode (abstrakt) deklariert und leite die weiteren davon ab.
Delphi-Quellcode:
unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyBaseClass = class
  protected
    function TuWas(const Value: Integer): Integer;virtual;abstract;
  end;

  TClassA = class(TMyBaseClass)
  public
    function TuWas(const value: Integer): Integer;override;
  end;

  TClassB = class(TMyBaseClass)
  public
    function TuWas(const value: Integer): Integer;override;
  end;

  TForm6 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure Test(const obj: TMyBaseClass);
  public
    { Public-Deklarationen }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

{ TClassB }

function TClassB.TuWas(const value: Integer): Integer;
begin
  Result := value * 2;
end;

{ TClassA }

function TClassA.TuWas(const value: Integer): Integer;
begin
  Result := value * 3;
end;

{ TForm6 }

procedure TForm6.btn1Click(Sender: TObject);
var c1, c2: TMyBaseClass;
begin
  c1 := TClassA.Create;
  try
    c2 := TClassB.Create;
    try
      Test(c1);
      Test(c2);
    finally
      c2.Free;
    end;
  finally
    c1.Free;
  end;
end;

procedure TForm6.Test(const obj: TMyBaseClass);
begin
  if Assigned(obj) then
    ShowMessage(IntToStr(obj.TuWas(2)));
end;

end.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:46 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz