AGB  ·  Datenschutz  ·  Impressum  







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

Array SCHNELL auf Null setzen

Ein Thema von bernhard_LA · begonnen am 20. Okt 2014 · letzter Beitrag vom 21. Okt 2014
Antwort Antwort
bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.138 Beiträge
 
Delphi 11 Alexandria
 
#1

Array SCHNELL auf Null setzen

  Alt 20. Okt 2014, 10:11
was ist denn die schnellste Methode in Delphi ein dynmische Array Result = array of array of integer; mit Nullen zu befüllen ?
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.314 Beiträge
 
Delphi 12 Athens
 
#2

AW: Array SCHNELL auf Null setzen

  Alt 20. Okt 2014, 10:14
Das array of integer mit FillChar/ZeroMemory
und das array of array mußt du dabei einzeln durchlaufen.

Ich weiß jetzt nicht genau, ob der Speicher beim Initialisieren mit 0 gef+llt wird, wenn ja, und wenn "schnell" = kurzer Code, dann eventuell auch so
Delphi-Quellcode:
A := nil;
SeltLength(A, L1, L2);
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (20. Okt 2014 um 10:16 Uhr)
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.487 Beiträge
 
Delphi 12 Athens
 
#3

AW: Array SCHNELL auf Null setzen

  Alt 20. Okt 2014, 10:20
Beim Initialisieren wird das Array nicht mit Nullen gefüllt.
Delphi-Quellcode:
for n : = 0 to High(Result) do
  if Length(Result[n]) > 0 then
    FillChar(Result[n][0], SizeOf(Result[n][0]) * Length(Result[n]), #0);
Wenn es wirklich auf Geschwindigkeit an kommt ist eine Struktur DynArray in DynArray aber nicht so optimal.

Geändert von Blup (20. Okt 2014 um 10:24 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.599 Beiträge
 
Delphi 12 Athens
 
#4

AW: Array SCHNELL auf Null setzen

  Alt 20. Okt 2014, 10:28
Beim Initialisieren wird das Array nicht mit Nullen gefüllt.
Das ist schlichtweg falsch!

SetLength ruft intern DynArraySetLength aus System.pas auf. Dort steht dann (in XE7 Zeile 33931-33933) folgender Code:

Delphi-Quellcode:
  // Set the new memory to all zero bits
  if newLength > oldLength then
    FillChar((PByte(p) + elSize * oldLength)^, elSize * (newLength - oldLength), 0);
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
PMM

Registriert seit: 17. Feb 2005
101 Beiträge
 
#5

AW: Array SCHNELL auf Null setzen

  Alt 20. Okt 2014, 11:59
Ist das 0-setzten eine dokumentierte Eigenschaft? Oder könnte das in zukünftigen Delphi-Versionen auch mal anders gelöst sein?
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.599 Beiträge
 
Delphi 12 Athens
 
#6

AW: Array SCHNELL auf Null setzen

  Alt 20. Okt 2014, 12:03
Ist das 0-setzten eine dokumentierte Eigenschaft? Oder könnte das in zukünftigen Delphi-Versionen auch mal anders gelöst sein?
Dokumentiert? ja!

Zitat von http://docwiki.embarcadero.com/Libraries/XE7/de/System.SetLength:
Bei einer dynamischen Array-Variable weist SetLength dem in S referenzierten Array die angegebene Länge zu. Die vorhandenen Elemente des Arrays werden beibehalten, und der neu zugewiesene Platz wird auf 0 oder nil gesetzt. Bei multidimensionalen dynamischen Arrays kann SetLength mehrere Parameter für die Länge übernehmen. Die Parameteranzahl wird lediglich durch die Zahl der Array-Dimensionen beschränkt. Jeder Parameter gibt die Anzahl der Elemente für eine bestimmte Dimension an.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.487 Beiträge
 
Delphi 12 Athens
 
#7

AW: Array SCHNELL auf Null setzen

  Alt 20. Okt 2014, 12:46
Dann sprechen wir von unterschiedlichen Delphi-Versionen, meine Hilfe sagt dazu:

Bei einer langen String- oder einer dynamischen Array-Variable weist SetLength dem in S referenzierten String oder Array die angegebene Länge zu. Dabei bleiben die Zeichen im String oder die Elemente im Array erhalten, jedoch ist der Inhalt des neu zugewiesenen Speicherbereichs nicht definiert. Eine Ausnahme stellt das Vergrößern der Länge von dynamischen Arrays dar, in dem die Elemente Typen sind, die initialisiert werden müssen (Strings, Varianten, Variant-Arrays oder Records, die solche Typen enthalten). Wenn S ein dynamisches Typen-Array ist, das initialisiert werden muss, wird der neu zugewiesene Platz auf 0 oder nil gesetzt.

Das scheint aber nicht mehr zu stimmen, ob es aber garantiert werden kann, dass der Speicher in jedem Fall gelöscht wird?

Geändert von Blup (20. Okt 2014 um 13:18 Uhr)
  Mit Zitat antworten Zitat
greenmile

Registriert seit: 17. Apr 2003
1.107 Beiträge
 
Delphi 10.3 Rio
 
#8

AW: Array SCHNELL auf Null setzen

  Alt 21. Okt 2014, 09:10
Beim Initialisieren wird das Array nicht mit Nullen gefüllt.
Das ist schlichtweg falsch!

SetLength ruft intern DynArraySetLength aus System.pas auf. Dort steht dann (in XE7 Zeile 33931-33933) folgender Code:

Delphi-Quellcode:
  // Set the new memory to all zero bits
  if newLength > oldLength then
    FillChar((PByte(p) + elSize * oldLength)^, elSize * (newLength - oldLength), 0);
Cool, das ist gut zu wissen. So wie jede Variable initialisiere ich bisher jedes Array.
  Mit Zitat antworten Zitat
Antwort Antwort


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 09:34 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 by Thomas Breitkreuz