Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
1. Jul 2015
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...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
1. Jul 2015
So ist es noch etwas flexibler:
procedure SetVariableToValue(APointers: Array of PInteger; AValue: Integer = 0);
var
liZ1: Integer;
begin
for liZ1 := 0 to High(APointers) do
begin
APointers^ := AValue;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
1. Jul 2015
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.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
30. Jun 2015
Auch nur dann, wenn er denn auch immer ALLE gleichzeitig auf den selben Wert setzen möchte.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BadenPower,
30. Jun 2015
Zum Hinsehen immer wieder ein Augeschmaus, wenn man einen Code von Sir Rufo betrachtet.:thumb:
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...