array als var-Parameter

[Sir Rufo]

Zitat von bernau:

Zitat von Sir Rufo:

Dann bau dir halt einen Wrapper

Ich wollte eigendlich nur ein paar Variablen auf 0 setzen.

Bei deinen Antworten bin ich immer wieder erstaunt.

Der Sinn und Zweck beim Programmieren ist es doch auch Code zu schreiben, der wiederverwendbar ist und vor allem einfach in der Handhabung ist.

Und wenn ich an mehr als einer Stelle die Werte setzen muss, dann ist so ein Wrapper doch etwas Feines und wandert in die hauseigene Bibliothek. Dann brauchst man nur noch die Unit einbinden und benutzt es.

Das ist allemal besser als in jedem Programm immer wieder das Gleiche zu schreiben

[Popov]

Also ich mache das seit Jahren so (siehe unten). Entweder ich mache es falsch oder ich habe hier einige Posts nicht verstanden.

Delphi-Quellcode:

type
  TTest = array of Integer;

procedure Abc(var ATest: TTest);
begin
  ATest[0] := 10;
  ATest[1] := 20;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Test: TTest;
begin
  SetLength(Test, 2);

  Test[0] := 1;
  Test[1] := 2;

  Abc(Test);

  ShowMessage(IntToStr(Test[0] + Test[1]));
end;

Oder so:

Delphi-Quellcode:

type
  TTest = array[0..1] of Integer;

procedure Abc(var ATest: TTest);
begin
  ATest[0] := 10;
  ATest[1] := 20;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Test: TTest;
begin
  Test[0] := 1;
  Test[1] := 2;

  Abc(Test);

  ShowMessage(IntToStr(Test[0] + Test[1]));
end;

[Neutral General]

Zitat von Popov:

Also ich mache das seit Jahren so (siehe unten). Entweder ich mache es falsch oder ich habe hier einige Posts nicht verstanden.

Du hast es falsch verstanden (siehe Post von Sir Rufo).

Nicht die Werte im Array sollen auf 0 gesetzt werden sondern die Variablen über die die Werte an das Array übergeben werden sollen auf 0 gesetzt werden.

[Popov]

Achso, ok.

[bernau]

Zitat von Sir Rufo:

Der Sinn und Zweck beim Programmieren ist es doch auch Code zu schreiben, der wiederverwendbar ist und vor allem einfach in der Handhabung ist.

Und wenn ich an mehr als einer Stelle die Werte setzen muss, dann ist so ein Wrapper doch etwas Feines und wandert in die hauseigene Bibliothek. Dann brauchst man nur noch die Unit einbinden und benutzt es.

Das ist allemal besser als in jedem Programm immer wieder das Gleiche zu schreiben

Du hast vollkommen recht. War auch nicht negativ gemeint. Dennoch musste ich erst zwei mal schauen. Bei näherem hinsehen allergings ne tolle Lösung.

[BadenPower]

Zitat von bernau:

Bei näherem hinsehen allergings ne tolle Lösung.

Zum Hinsehen immer wieder ein Augeschmaus, wenn man einen Code von Sir Rufo betrachtet.

Allerdings wieder einmal ein schönes Beispiel dafür, wie man eingentlich unnötig Speicher und Rechenleistung verschwenden kann, wenn man den Code wirklich näher betrachtet.

Und wirklich besser aussehen, oder lesbarer ist die Aufrufzeile auch nicht.
TValueSetter.Int.AddVar( Val1 ).AddVar( Val2 ).AddVar( Val3 ).SetValue( TargetValue ); SetToZero([@Val1,@Val2]); Und intern machen die Funktionen dann auch nichts anderes als einen Zeiger übergeben, welcher dann dereferenziert wird um den neuen Wert zu setzen.

Es ist eben auch Geschmacksache, ob man lieber 1 Klasse + 2 Records + 4 Funktionen deklariert und schreibt, als 1 Funktion, welche 5 Zeilen umfasst und das gleiche ohne unnötige Zwischenschritte macht.

[DeddyH]

Zitat von BadenPower:

Es ist eben auch Geschmacksache, ob man lieber 1 Klasse + 2 Records + 4 Funktionen deklariert und schreibt, als 1 Funktion, welche 5 Zeilen umfasst und das gleiche ohne unnötige Zwischenschritte macht.

Hello World

[BUG]

Zitat von DeddyH:

Hello World

Noch dramatischer: FizzBuzz Enterprise Edition

[implementation]

Zitat von DeddyH:

Hello World

Dazu: GNU hello

[Stevie]

Overengineering 500 bitte...

Zur Eingangsfrage: warum hast du einzelne Variablen, die offensichtlich zusammen gehören (sonst würdest du sie ja nicht gemeinsam auf 0 setzen wollen).

Wenn sie zusammen gehören, dann pack sie in ein Array oder einen Record und wuppdi, kannst die auch mit einem beherzten Einzeiler nullen.