AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Kann man statische Arrays so gleichsetzen?

Ein Thema von Bjoerk · begonnen am 9. Okt 2014 · letzter Beitrag vom 9. Okt 2014
 
Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#1

Kann man statische Arrays so gleichsetzen?

  Alt 9. Okt 2014, 09:45
Delphi-Version: 2007
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;
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz