Crosspost Delpi-Treff
Ich stelle zurzeit meine Software von prozedural nach OO um. Dabei habe ich oft folgende Situation, mit der ich nicht weiß, wie ich sie handhaben soll.
Wäre dankbar für eine Idee, mir fällt nix Gescheites ein..
Situation: Die Units werden bisher mit globalen Variablen über die uses Klausel versorgt.
Delphi-Quellcode:
unit unit1;
uses
unitA, unitB, unitC;
var
O: TKlasse;
u, v, w: ...
procedure TForm1.Machwas;
begin
// Globale Variable x aus unitA;
// Globale Variable y aus unitB;
// Globale Variable z aus unitC;
Setzt u, v
Führt O.Machwas aus
Benötigt die von O.Machwas veränderten Werte x, y, z, u, v zur weiteren Berechnung
end;
unit TKlasseUnit;
uses
unit1, unitA, unitB, unitC;
// Globale Variable x aus unitA;
// Globale Variable y aus unitB;
// Globale Variable z aus unitC;
// Globale Variablen u, v aus unit1;
procedure TKlasse.Machwas;
begin
// benötigt und verändert x, y, z, u, v
end;