Optionale Parameter

[DeddyH]

[OT] Einmal schneller als mkinzler

[/OT]

[grenzgaenger]

Zitat von DerKapitalist:

Hi,

ich erinnere mich, dass ich in VBasic damals Parameter als optional übergeben konnte (sprich, es ist nciht notwendig diese Parameter zu setzen)

ich habe nichts vergleichbares in Delphi gefunden, irre ich mich da?

danke!

nein, es gibt in pascal nichts vergleichbares, und wird es auch nicht geben. der grund dafür ist in der aufrufkonvention, wie die parameter beim procedure aufruf auf den stack gelegt werden. aber es gibt 'ne menge workarounds...

beispielsweise... 'n dynamisches array übergeben, 'n objektliste übergeben..., default parameter, variante records, etc. pp.

<HTH>

[sirius]

@grenzgaenger:
Der Kapitalist war vor 4 Jahren das letzte Mal hier

[mimi]

@grenzgaenger
und sie gibt es doch, oder habe ich was falsch verstanden?
Ich meine Default Paramter... ich kann jetzt nicht sagen wie das in VBA geht, aber in Object Pascal nutzt ich sie sehr gerne.... das geht sogar mit Klassen wie z.b. eine TStringlist.... ob auch ein array geht habe ich noch nicht wirklich ausprobiert.

[shmia]

Es gibt auch die Möglichkeit über Dispatch-Interfaces zu arbeiten.
Damit sind dann solche Konstruktionen möglich:

Delphi-Quellcode:

 var
 object : OleVariant;
begin
  object := ...;

  // Filename, Mode und Backup sind Parameternamen, keine Variablen!
  object.Open(Filename:='C:\test.txt', Mode:=omReadWrite, Backup:=False);

Die Open-Methode könnte noch 10 weitere Parameter haben; man braucht sie nicht anzugeben.
Diese Art des Aufruf ist allerdings recht langsam, da im Hintergrund einiges abgeht.
Das ist aber auch der Weg, den VB einschlägt. (ein Hauptgrund, weshalb VB nicht so schnell ist)
Alle Parameter sind Variants, die aufgerufene Methode erkennt dass ein Parameter nicht befüllt wurde daran,
dass der Parameter = EmptyParam ist.

[Borschti]

Hallo,

sorry das ich den alten Thread wieder ausgrabe aber mein Problem bezieht sich auf das oben genannte Overload, sprich überladen von Methoden.

Ich habe es so versucht:

Delphi-Quellcode:

procedure TOutlookPro.SendEmail(body : String; slAttPaths : TStringlist); overload;
var
  outlookApp : TOutlookApplication;
  mailItem : Variant;
  i : Integer;
begin
  outlookApp := TOutlookApplication.Create(Self);

  mailItem := OutlookApp.CreateItem(olMailItem);
  mailItem.Recipients.Add('[e-mail]');
  mailItem.Subject := 'Supportanfrage bsMIO';
  mailItem.Body := body;

  for i := 0 to slAttPaths.Count do
    begin
      mailItem.Attachments.Add(slAttPaths[i]);
    end;
    
  mailItem.Send;
end;

procedure TOutlookPro.SendEmail(body : String); overload;
var
  outlookApp : TOutlookApplication;
  mailItem : Variant;
begin
  outlookApp := TOutlookApplication.Create(Self);

  mailItem := OutlookApp.CreateItem(olMailItem);
  mailItem.Recipients.Add('[e-mail]');
  mailItem.Subject := 'Supportanfrage bsMIO';
  mailItem.Body := body;
  mailItem.Send;
end;

Ich bekomme aber jetzt die Meldung: E1030 Ungültige Compileranweisung: 'OVERLOAD'
Woran liegt das und wie bekomme ich die Meldung weg?

VG Alex

[DeddyH]

Das "overload" gehört in die Klassen-Deklaration.

Delphi-Quellcode:

type
  TMyClass = class(TSomething)
  public
    procedure SomeProc(i: integer); overload;  //hier overload hinschreiben
    procedure SomeProc(s: string); overload;
    procedure SomeProc(i: integer; s: string); overload;
  end;

...

procedure TMyClass.SomeProc(i: integer);  //hier nicht
begin
  //
end;

[mkinzler]

Wie sieht die Methodendeklaration im Interface aus?
Ist die Methode überladbar?

[Luckie]

Noch eine Anmerkung zu den Standardparameter, sie müssen immer als letztes in der Deklaration angegeben werden.

[Borschti]

Danke DeddyHs Antwort hat geholfen