Ich hab in meiner Software mehrere Statische Arrays. Hab gesehen daß ich die teilweise so gleichsetze. Bin gerade unsicher ob das überhaupt geht? Es soll keine Kopplung sondern ein Copy stattfinden.
Delphi-Quellcode:
type
TFemVec3 = array [0..cMaxElemCount - 1] of double;
TCustomFem = class
..
protected
FC: TFemVec3;
FCopyOfC: TFemVec3;
..
end;
Delphi-Quellcode:
procedure TCustomFem.CalcPlatte;
var
I, Wdh: integer;
begin
FCopyOfC := FC;
// ****************
Wdh := 0;
repeat
Inc(Wdh);
NullA;
for I := 1
to FemMaxN
do
begin
FX[I] := 0;
FB[I] := 0;
end;
for I := 1
to FSB
do
begin
Set_SmLc_Platte(I);
Load_G_Platte(Fm1[I], Fm2[I], Fm3[I], Fm4[I]);
end;
for I := 1
to FnUZ
do
begin
Set_SmLc_Stab(I);
Load_G_Platte(Fm1[FElemUZ[I]], Fm2[FElemUZ[I]], Fm3[FElemUZ[I]], Fm4[FElemUZ[I]]);
end;
Set_Last_Platte;
Solve;
until (Wdh = 3)
or (
not HaveAbhebendeElementeMitBettung);
end;