2 Arrays vergleichen\sortieren

[Fritzew]

Hall Emil,
nur mal was ich auf die schnell gesehen habe

Zitat von EWeiss:

Delphi-Quellcode:

  FillChar(buffer, sizeof(buffer), 0);
    for K := 0 to Count do  // Warum nicht Count-1? Wenn z.B Count 1 ist kopierst Du 2 Einträge?
 //     MoveMemory(PByte(@buffer[0]) + K * sizeof(Short), @A2[K], sizeof(Short));
  buffer[K] := A2[K];   // Warum das Pointer geschubse? Einfach zuweisen was anderes macht der C Code auch nicht

   // FillChar(A1, sizeof(A1), 0);
   // FillChar(A2, sizeof(A2), 0);
  A1 := nil; // Das Fillchar kannst Du dir sparen einfach den Speicher freigeben
 A2 := nil;

[Neutral General]

Zitat von Fritzew:

Delphi-Quellcode:

  A1 := nil; // Das Fillchar kannst Du dir sparen einfach den Speicher freigeben
  A2 := nil;

Das auf nil setzen kannst du dir auch sparen Das gibt keinen Speicher frei, sondern setzt nur 2 Variablen auf nil.
Der Speicher für das Array wird am Ende der Methode automatisch freigegeben.

[Fritzew]

Zitat von Neutral General:

Zitat von Fritzew:

Das auf nil setzen kannst du dir auch sparen Das gibt keinen Speicher frei, sondern setzt nur 2 Variablen auf nil.
Der Speicher für das Array wird am Ende der Methode automatisch freigegeben.

Alte Angewohnheit, wenn ich Speicher hole gebe ich Ihn auch frei
liest sich für mich immer flüssiger.....

[Neutral General]

Zitat von Fritzew:

Zitat von Neutral General:

Zitat von Fritzew:

Das auf nil setzen kannst du dir auch sparen Das gibt keinen Speicher frei, sondern setzt nur 2 Variablen auf nil.
Der Speicher für das Array wird am Ende der Methode automatisch freigegeben.

Alte Angewohnheit, wenn ich Speicher hole gebe ich Ihn auch frei
liest sich für mich immer flüssiger.....

Etwas auf nil zu setzen gibt aber nichts frei (Außer vllt. durch die gleiche Compiler-Magic die das Array am Ende sowieso automatisch freigibt).
Wenn du wirklich aktiv Speicher freigeben willst, dann benutz zumindest SetLength(array, 0);

[DeddyH]

Kleiner Einspruch: es handelt sich ja um ein dynamisches Array, und da gilt (http://docwiki.embarcadero.com/RADSt...amische_Arrays)

Zitat:

Dynamische Array-Variablen sind implizit Zeiger und werden mit derselben Referenzzählung verwaltet wie lange Strings. Um ein dynamisches Array freizugeben, weisen Sie einer Variable, die das Array referenziert, den Wert nil zu, oder Sie übergeben die Variable an Finalize. Beide Methoden geben das Array unter der Voraussetzung frei, dass keine weiteren Referenzen darauf vorhanden sind. Dynamische Arrays werden immer freigegeben, sobald ihr Referenzzähler null ist.

[Fritzew]

Zitat von DeddyH:

Kleiner Einspruch: es handelt sich ja um ein dynamisches Array, und da gilt (http://docwiki.embarcadero.com/RADSt...amische_Arrays)

Zitat:

Dynamische Array-Variablen sind implizit Zeiger und werden mit derselben Referenzzählung verwaltet wie lange Strings. Um ein dynamisches Array freizugeben, weisen Sie einer Variable, die das Array referenziert, den Wert nil zu, oder Sie übergeben die Variable an Finalize. Beide Methoden geben das Array unter der Voraussetzung frei, dass keine weiteren Referenzen darauf vorhanden sind. Dynamische Arrays werden immer freigegeben, sobald ihr Referenzzähler null ist.

Danke wollte es gerade posten......

[EWeiss]

Delphi-Quellcode:

var
  Destination, Source: Pointer;
  MemorySize: SIZE_T; 
begin
 ...
   MemorySize := SizeOf(Short);
   Destination := Pointer(NativeUInt(@buffer[0]) + K * MemorySize); 
   Source := @A2[K]; 
   MoveMemory(Destination, Source, MemorySize);

Das ist keine schlechte Erklärung bzw. zu zeigen wie MoveMemory Arbeitet.
Aber sorry hier eine Funktion in 20 teile zu zerlegen macht nicht wirklich sinn.
Hilfsvariablen und Funktionen einzurichten mach sinn bei immer widerkehrenden Mechanismen aber nicht bei einer Zeile Code.
Habe noch nirgends gesehen das jemand CopyMemory in 100 Zeilen zerlegt.

gruss