array als var-Parameter

[Sir Rufo]

Zitat:

Zitat von Dejan Vu (Beitrag 1307279)

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

Wer hat denn eine Klasse geschrieben? :stupid:

[bernau]

Zitat:

Zitat von Stevie (Beitrag 1307243)

Overengineering 500 bitte... :shock:

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.

Ja. Gehören zusammen. Aber es geht nicht nur um eine Funktion.

Etwas zum Hintergrund: Ich räume so nach und nach den Code von einem gewachsenen Programm auf.(Projekte und Units sind teilweise >15 Jahre alt). Man glaubt gar nicht, welche Mist man so mit der Zeit programmiert hat. Früher war ich stolz darauf, wenn ich sagen konnte "Mein Projekt hat mehrere 100.000 Zeilen". Mittlerweile bin ich stolz darauf, wenn ich sagen kann, "Ich habe die Anzahl der Codezeilen geschrumpft".

Um zum Thema zurück zu kommen: Es fällt auf, daß es immer mal wieder solche Konstrukte gibt, in denen 2-4 lokale lokale Variablen auf einen vorgegebenen Wert gesetzt werden. Diese vier Zeilen möchte ich auf eine Zeile schrumpfen.

Die Variablen haben natürlich immer mal wieder andere Namen, daher ist die Idee mit dem Record für mich nicht anwendbar.

[bernau]

Zitat:

Zitat von Harry Stahl (Beitrag 1307256)

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.

[bernau]

Zitat:

Zitat von Dejan Vu (Beitrag 1307279)

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

:lol: :lol:

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:

Zitat von bernau (Beitrag 1307307)

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:

Zitat von BadenPower (Beitrag 1307309)

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

[Popov]

Zitat:

Zitat von bernau (Beitrag 1307304)

Etwas zum Hintergrund: Ich räume so nach und nach den Code von einem gewachsenen Programm auf.(Projekte und Units sind teilweise >15 Jahre alt). Man glaubt gar nicht, welche Mist man so mit der Zeit programmiert hat. Früher war ich stolz darauf, wenn ich sagen konnte "Mein Projekt hat mehrere 100.000 Zeilen". Mittlerweile bin ich stolz darauf, wenn ich sagen kann, "Ich habe die Anzahl der Codezeilen geschrumpft".

Ich sag es mal etwas direkt und vielleicht etwas schroff: wenn du schon 15 Jahre programmierst, dann solltest du wissen, dass das Kokolores ist. Und da du aus Köln kommst, solltest du wissen was Kokolores ist.

Jeder hier hat in seinem Projekt Code bei dem er die Variablen hin und wieder mal löschen muss. In dem Fall wird entweder in der Prozedur jede Variable wieder auf Null gesetzt oder, falls es öfters im Code vorkommt, wird die Routine ausgelagert.

Aber nach 15 Jahre Erfahrung sich nun eine Zauberprozedur wünschend in die man alle Variablen als Parameter übergibt und die genullt zurück kommen, also da stellt sich die Frage ob man mit Pascal sich für die richtige Programmiersprache entschieden hat.

Auf der anderen Seite, nichts ist unmöglich und alles läßt sich programmieren. Nur ich weiß nicht, wie oft hat man ein Programm wo man in Massen Variablen nullen muss? Also wenn ich mar alle meine Programme zurück denke, dann kommen mal gelegentlich zwei Variablen vor die ich nullen muss. Das wars dann aber auch. Ich meine, schließlich gibt es sowas wie Prozeduren und Funktionen. Da gibt es immer paar Variablen. Die löscht man so nebenbei oder die werden bei Parameterübergabe genullt.

[BadenPower]

Zitat:

Zitat von Popov (Beitrag 1307319)

Nur ich weiß nicht, wie oft hat man ein Programm wo man in Massen Variablen nullen muss? Also wenn ich mar alle meine Programme zurück denke, dann kommen mal gelegentlich zwei Variablen vor die ich nullen muss. Das wars dann aber auch. Ich meine, schließlich gibt es sowas wie Prozeduren und Funktionen. Da gibt es immer paar Variablen. Die löscht man so nebenbei oder die werden bei Parameterübergabe genullt.

Deine Vorstellungskraft, was man mit diesen 5 Zeile Code machen kann, scheint etwas begrenzt zu sein.

Es geht hier nicht um Massen oder fest festgelegte Variablen nur auf 0 zu stellen.

Mit dieser Funktion hast Du zum Beispiel die Möglichekeit beliebige (und nicht immer die gleichen) Variablen, welche von Dir, oder auch vom Programm selbst ausgewählte Variablen in einer einzigen Funktion mit einem variablen Wert zu belegen. Und dies in einer absolut flexiblen Gestaltung, durch zum Beispiel die Verwendung von Zeigern.

[smallie]

Zitat:

Zitat von BadenPower (Beitrag 1307322)

Zitat:

Zitat von Popov (Beitrag 1307319)

Nur ich weiß nicht, wie oft hat man ein Programm wo man in Massen Variablen nullen muss? Also wenn ich mar alle meine Programme zurück denke, dann kommen mal gelegentlich zwei Variablen vor die ich nullen muss. Das wars dann aber auch. Ich meine, schließlich gibt es sowas wie Prozeduren und Funktionen. Da gibt es immer paar Variablen. Die löscht man so nebenbei oder die werden bei Parameterübergabe genullt.

Deine Vorstellungskraft, was man mit diesen 5 Zeile Code machen kann, scheint etwas begrenzt zu sein.

Es geht hier nicht um Massen oder fest festgelegte Variablen nur auf 0 zu stellen.

Hier ein Anwendungsfall aus meiner Ecke:

Geld- oder Wertpaierbuchungs unterschiedlicher Datenlieferanten kommen mit den verschiedensten Vorzeichenregelungen.

- Alle Beträge vorzeichenlos. Das Vorzeichen ergibt sich dann aus der Buchungsart: Einzahlung, Auszahlung, Kauf, Verkauf... sowie die jeweiligen Stornierungen.
- Vorzeichen wird durch Buchungsrichtung bestimmt
- Vorzeichen wird durch Buchungsrichtung und Storno bestimmt.

...und in den chaotischeren Schnittstellen ist die Vorzeichenregelung innerhalb der Schnittstelle nicht konsistent. Ganz großartig. :stupid:

Jedenfalls müssen die gelieferten Vorzeichen auf unsere interne Vorzeichenregelung gebracht werden. Dafür habe ich testweise eine Funktion ChangeSign gebaut, die ein offenes Array aufnimmt.

Sieht im Prinzip genau so aus wie bei Neutral General, nur daß mein Array nicht typisiert ist und ich auf Move zurückgreifen mußte, weil ich es nicht anders hinbekam. :cry:

Delphi-Quellcode:

procedure ChangeSign(Args: array of pointer);
var
 i: integer;
 d: double;
begin
  for i := low(Args) to high(Args) do
  begin
     d := -1 * double(Args[i]^);
     Move(d, Args[i]^, sizeof(d));
  end;
end;

Zitat:

Zitat von Neutral General (Beitrag 1307173)

Das geht wie Sir Rufo schon gesagt/angedeutet hat nur mit einem Array of PInteger.

<schipp>

Wenn dich das @ nicht stört, gehts so. Ansonsten fällt mir jetzt nichts ein.

Hmm. Wie wär's mit varargs und cdecl?

Siehe Barry Kellys Antwort zu How can a function with 'varargs' retrieve the contents of the stack? Es wird zwar nur lesen ausdrücklich erwähnt. Aber könnte man die geänderten Werte nicht auf den Stack zurückschieben?