array als var-Parameter

[Harry Stahl]

Zitat von bernau:

Danke für die Antworten. Ich habe es mir schon gedacht.

Habe nur gehofft, daß es etwas gibt, was ich noch nicht weis. Schade.

Dann halt wieder:

Delphi-Quellcode:

lMenge1 = 0;
lMenge2 = 0;
lMenge3 = 0;
lMenge4 = 0;

Statt

SetToZero([lMenge1,lMenge2,lMenge3,lMenge4]);

Falls es Dir wirklich nur darum geht, immer nur 2-4 Variablen mit einem Funktionsaufruf zu setzen, könntest Du statt einem Array eine Procedure mit Overload verwenden:

Delphi-Quellcode:

procedure ToZ (var i1, i2:Integer); overload;
procedure ToZ (var i1, i2, i3: Integer); overload;
procedure ToZ (var i1, i2, i3, i4: Integer); overload;

implementation

procedure ToZ (var i1, i2:Integer); overload;
begin
  i1 := 0; i2 := 0;
end;

procedure ToZ (var i1, i2, i3: Integer); overload;
begin
  i1 := 0; i2 := 0; i3 := 0;
end;

procedure ToZ (var i1, i2, i3, i4: Integer); overload;
begin
  i1 := 0; i2 := 0; i3 := 0; i4:= 0;
end;


// ... Programmablauf
var
  itest1, itest2, itest3, itest4: Integer;

begin
  iTest1 := 10;
  iTest2 := 20;
  iTest3 := 30;
  iTest4 := 40;

  ToZ (iTest1,iTest2); // gültiger Aufruf mit 2 Parametern
  ToZ (iTest1,iTest2,iTest3,iTest4); // gültiger Aufruf mit 4 Parametern

Vorteil wäre auch, dass Du Dir die eckigen Klammern beim Aufruf der Procedure sparen kannst.

[hoika]

Hallo,
ich werfe mal in dein Raum,
dass die Variablen vielleicht schon mit 0 initialisiert sind.

Übrigens funktionieren die Generics-Beispiele in D2007 noch nicht.


Heiko

[Dejan Vu]

Der Thread ist geil: Wir diskutieren, wie man Variablen initialisiert und schreiben sogar eine Klasse dafür.

Mir geht es in der Programmierung darum, eine Lösung einfach darzustellen. Einfach, klar und verständlich. Wenn ich einmal 20 Variablen auf 0 setzen muss (private property backing stores z.B.), dann schreibe ich mir eine private Methode 'InitializeValues' und dann besteht diese Methode eben aus 20 Zeilen 'Foo := 0'. Wo ist das Problem? Das ist die einfachste, klarste und direkteste Form, Variablen auf 0 zu setzen.

Als nächstes kommt jemand noch auf die Idee und will eine For-Schleife in eine Klasse packen, um diese dann per fluent-Interface ineinander zu schachteln. Kann man ja wiederverwenden.

Na ja. Nette Übung jedenfalls.

[Sir Rufo]

Zitat von Dejan Vu:

Der Thread ist geil: Wir diskutieren, wie man Variablen initialisiert und schreiben sogar eine Klasse dafür.

Wer hat denn eine Klasse geschrieben?

[bernau]

Zitat von Dejan Vu:

Der Thread ist geil: Wir diskutieren, wie man Variablen initialisiert und schreiben sogar eine Klasse dafür.

Ja. Hätte ich mir auch nie vorstellen können, so eine Frage zu stellen. Aber manchmal sind die einfachsten Sachen do nicht so trivial, wie man denkt.

Es geht ja auch nicht darum, wie und warum man Variablen initialisiert, sondern wie macht man es am effektivsten. Und es ist sehr interessant, welche unterschiedlichsten Ansätze es gibt.

Deshalb finde ich solche Threads besonders lesenswert.

[BadenPower]

Zitat von bernau:

Es geht ja auch nicht darum, wie und warum man Variablen initialisiert, sondern wie macht man es am effektivsten. Und es ist sehr interessant, welche unterschiedlichsten Ansätze es gibt.

Daher finde ich den Ansatz von Neutral General aus Post #7 recht gut, da dort Zeiger in einem Array übergeben werden.

Das macht das Ganze recht flexibel.

[bernau]

Zitat von BadenPower:

Daher finde ich den Ansatz von Neutral General aus Post #7 recht gut, da dort Zeiger in einem Array übergeben werden.

Das macht das Ganze recht flexibel.

Obwohl ich mich erst einmal daran gewöhnen muss, ist es wohl tatsächlich der besste Ansatz.

SirRufos Ansatz ist auch gut. Zumal man ein Set von Variablen vordefinieren kann. Aber irgendwie auch nicht so gut zu lesen. Aber das ist Geschmacksache.


So. Danke für euere Antworten!

[BadenPower]

So ist es noch etwas flexibler:

Delphi-Quellcode:

procedure SetVariableToValue(APointers: Array of PInteger; AValue: Integer = 0);
var
  liZ1: Integer;
begin
  for liZ1 := 0 to High(APointers) do
   begin
    APointers[liZ1]^ := AValue;
   end;
end;

Als Standard wird 0 gesetzt, ansonsten der übergebene Wert im optionalen Parameter 2

[bernau]

Zitat von Harry Stahl:

Falls es Dir wirklich nur darum geht, immer nur 2-4 Variablen mit einem Funktionsaufruf zu setzen, könntest Du statt einem Array eine Procedure mit Overload verwenden:

An die Overload-Variante habe ich auch schon gedacht. Ich denke aber weiter. Das ganze muss ja nicht nur für Integer funktionieren sondern auch für andere Datentypen. Daher habe ich es dann verworfen.

[Harry Stahl]

Zitat von bernau:

Zitat von Harry Stahl:

Falls es Dir wirklich nur darum geht, immer nur 2-4 Variablen mit einem Funktionsaufruf zu setzen, könntest Du statt einem Array eine Procedure mit Overload verwenden:

An die Overload-Variante habe ich auch schon gedacht. Ich denke aber weiter. Das ganze muss ja nicht nur für Integer funktionieren sondern auch für andere Datentypen. Daher habe ich es dann verworfen.

OK, dann wäre es natürlich hilfreich gewesen, das am Anfang zu erwähnen, Deine Eingangsanforderung lautete nur:

"Ich möchte eine Procedure, die soll mehreren Integer-Variablen den Wert 0 zuweisen."

Aber gut. Um mehrere Datentypen zu bedienen, kann man den Overload- und den Array-Ansatz kombinieren.

Der folgende Vorschlag ist recht kurz in der Implementation, ist skalierbar und Du brauchst kein "@" zu schreiben:

Delphi-Quellcode:

type
  TDataTypes = (dtInt, dtStr, dtReal, dtExtended); // bei Bedarf erweitern

procedure vToZ (dt: TDataTypes; var v1, v2); overload;
procedure vToZ (dt: TDataTypes; var v1, v2, v3); overload;
procedure vToZ (dt: TDataTypes; var v1, v2, v3, v4); overload;

implementation

{$R *.dfm}

procedure SetVars(dt: TDataTypes; APointers: Array of Pointer);
var
  i: Integer;
begin
   for i := Low (APointers) to High(APointers) do
   begin
     case dt of
       dtInt: Integer (APointers[i]^) := 0;
       dtStr: String (APointers[i]^) := '';
       // .. bei Bedarf weitere Typen
     end;
   end;
end;

procedure vToZ (dt: TDataTypes; var v1, v2); overload;
begin
   SetVars (dt, [@v1, @v2]);
end;

procedure vToZ (dt: TDataTypes; var v1, v2, v3); overload;
begin
  SetVars (dt, [@v1, @v2, @v3]);
end;

procedure vToZ (dt: TDataTypes; var v1, v2, v3, v4); overload;
begin
  SetVars (dt, [@v1, @v2, @v3, @v4]);
end;


procedure TForm14.FormCreate(Sender: TObject);
var
  itest1, itest2, itest3, itest4: Integer;
  strtest1, strTest2: string;
begin
   iTest1 := 10;
   iTest2 := 20;
   iTest3 := 30;
   iTest4 := 40;

   strTest1 := 'Test';
   StrTest2 := 'Hallo';

   vToZ (dtInt, iTest1,iTest2, iTest4); // Integer
   vToZ (dtStr, strTest1, strtest2); // string

   ShowMessage (iTest1.ToString);  // Zeigt 0
   ShowMessage (strTest1); //"zeigt" einen leeren string
end;