array als var-Parameter

[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.

[BadenPower]

Zitat von Stevie:

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

Auch nur dann, wenn er denn auch immer ALLE gleichzeitig auf den selben Wert setzen möchte.

[bernau]

Zitat von 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.

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.

[Popov]

Zitat von bernau:

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 von Popov:

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 von BadenPower:

Zitat von Popov:

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.

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.

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 von Neutral General:

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?

[Neutral General]

Das Problem mit varargs ist, dass du die Funktion nicht in Delphi schreiben kannst.
Du musst die Funktion in Delphi schreiben und dann über eine DLL importieren.

Weiß nicht ob sich in diesem Fall der Aufwand lohnt. Und Pointer müsste man trotzdem übergeben.
Es fallen dann nur die Array-Klammern weg [].

[bernau]

Zitat von Popov:

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.

Leeven Popov, isch als eschter kölsche jung kann met su enner Kokolores-Kritick janz joot ümjonn. Isch sinn, do küst ooch us Kölle? Da kannst doo uns jo emol bei unserem treffen besööke. Alaaf.

Den Rest des Thread sehe ich als erledigt an.

[Mavarik]

Zitat von bernau:

Den Rest des Thread sehe ich als erledigt an.

Coole Antwort... Werde ich auch in Zukunft verwenden... Kommt in mein Antwort Pattern...

Kein Sourcecode : 42!
Kein Interesse an weiteren Antworten : Den Rest des Thread sehe ich als erledigt an!