Zwei Array of const kombinieren

**Codehunter**

Ahoi,

ich versuche für eine Formatierfunktion zwei Array of const zu kombinieren. Weil das Array aber typenlos ist komme ich gerade nicht weiter. Eigentlich dachte ich, ein Array of const wäre ein Array of Pointer. Deshalb wäre die Elementgröße ja fix. Aber so einfach isses denn doch nicht.

zusammenfalten · markieren

Delphi-Quellcode:

			constructor ETechnikException.CreateFmt(const Fehlernummer: Integer;

  const Args: array of const);

var

  sFehler: string;

begin

  Self.Fehlernummer := Fehlernummer;

  case Fehlernummer of

    E_TECHNIK_ALLGEMEIN: sFehler := R_TECHNIK_ALLGEMEIN;

    E_TECHNIK_PFLICHTFELD_UNBESETZT: sFehler := R_TECHNIK_PFLICHTFELD_UNBESETZT;

    E_TECHNIK_PROGRAMM_AUSFUEHREN: sFehler := R_TECHNIK_PROGRAMM_AUSFUEHREN;

  end;

  inherited CreateFmt(R_TECHNIK_EXCEPTION, [sFehler, Fehlernummer] + Args); // <-- [dcc32 Fehler]E2029 ')' erwartet, aber '+' gefunden

end;

**himitsu**

Ein array of const ist ein array of TVarRec , was sowas wie eine Miniversion des Variant ist, allerdings ohne automatische Speicherverwaltung oder AutoCasts, wenn du es direkt nutzt.

Variable erstellen, Beides da reinkopieren und dann Dieses übergeben.

**sakura**

Basierend auf diesem Blogbeitrag:

http://rvelthuis.de/articles/articles-openarr.html , findest Du im Anhang ein Beispiel.

...

...

**Der schöne Günther**

Heißt du brauchst ein array of TVarRec und musst selbst TVarRec-Dinger reinstecken.

Ich hatte so etwas ähnliches mit Exceptions und Jonglieren der Exception-Argumente auch. Ich hatte sie mir für später gespeichert um die Meldung auch in anderen Sprachen anzeigen zu können. Kein Spaß.

Meine Empfehlung: Tu es nicht, mach es anders. Gib deiner ETechnikException einen Record in dem alles drinsteht was sie an weiteren Infos mitschleppen soll.

zusammenfalten · markieren

Delphi-Quellcode:

			type

   TTechnikFehler = record

      fehlerText:            String;

      fehlerNummer:         Integer;

      geräteStatus:         Byte;

      esBestehtNochHoffnung:   Boolean;

   end;

   ETechnikFehler = class(Exception)

   public

      constructor Create(const technikFehler: TTechnikFehler);

      function getTechnikFehler(): TTechnikFehler;

   end;

Super leicht zu erweitern wenn später mehr hinzu kommt und zu lokalisieren.

Ja, du kannst deine Exception nicht mehr mit einem Einzeiler werfen, sondern füllst erst ordentlich dein TTechnikFEhler und wirfst die Exception dann. Aber das bisschen Mühe sollte es einem wirklich wert sein.

**himitsu**

Zitat von Der schöne Günther:

Ja, du kannst deine Exception nicht mehr mit einem Einzeiler werfen,

Gib deinem Record einen Constructor und dann geht das auch wieder einzeilig.

Oder eben mehrere Parameter statt einem Record. Geht auch mit zwei Contructoren an der Exception.

**Codehunter**

Zitat von himitsu:

Zitat von Der schöne Günther:

Ja, du kannst deine Exception nicht mehr mit einem Einzeiler werfen,

Gib deinem Record einen Constructor und dann geht das auch wieder einzeilig.

Oder eben mehrere Parameter statt einem Record. Geht auch mit zwei Contructoren an der Exception.

Das Thema

hatten wir gerade erst

Davon abgesehen, @sakura und @Günther: Beides gute Vorschläge, die ich an verschiedenen Stellen gut gebrauchen kann. Das mit dem array of TVarRec war mir neu dass das mit Format() kompatibel ist. Wieder was gelernt

**Stevie**

Einfach ein array of const in ein array of TVarRec umwandeln, dann kannst du dynamische Array Konkatenation nutzen und das kann wieder in ein array of const gegeben werden. Da du nur die TVarRec referenzen lokal nutzt, brauchst du auch kein Zauberwerk veranstalten, den Rudy in seinem Artikel beschreibt.

zusammenfalten · markieren

Delphi-Quellcode:

			function _Args(const args: array of const): TArray<TVarRec>;

var

  i: Integer;

begin

  SetLength(Result, 0);

  SetLength(Result, Length(args));

  for i := 0 to High(args) do

    Result[i] := args[i];

end;

....

inherited CreateFmt(R_TECHNIK_EXCEPTION, _Args([sFehler, Fehlernummer]) + _Args(Args));