Hallo,
also ich habe ein dynamisches Array erzeugt, mit Anfangswerten init. und eine Procedure soll nun anhand von Berechnungen einzelne Werte im Array ändern.
Das funzt auch alles, solange diese Procedure in der gleichen (Haupt)unit steht. Wenn ich sie auslagere und das Array als Parameter übergebe wird auch weiterhin alles berechnet aber dann werden die Ergebnisse nicht zurückgegeben. (Puh, hoffe das war halbwegs verständlich
)
Hier noch mal der wichtigste Teil des Quelltextes:
Unit Main
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| uses Berechnung;
var arr : Array of Tarr
SetLength(arr,6)
..... // weitere Initialisierung
Berechne(arr, rechenfaktor)
// und hier ist dann alles wie vorher - als ob die Berechnung nie stattgefunden hätte. Aber warum? |
Unit Berechnung
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| type Tarr = record
i : integer;
s : string;
end;
procedure Berechne(arr : Tarr, faktor : integer)
begin
// hier wird dann berechnet
end |
Code-Tags hinzugefügt. Tino
