2 Arrays vergleichen\sortieren

[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

[TiGü]

Zitat von 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.

Aus einer unübersichtlichen Zeile werden vier. Nur drei, wenn man sich das spart die MemorySize hinzuschreiben. Plus halt die übliche Variablendeklaration.

Das ist kaum Overhead, ist besser lesbar und vor allen besser debugbar.

Wenn du es gleich so hingeschrieben hättest, dann hättest du auch sofort verstanden wo dein Problem liegt.
So haste erstmal ewig rumgeflucht und gedacht das Delphi sich hier anderes als C++ verhält bei einer WinApi-Funktion.
Das dem nicht so ist, siehste ja jetzt.

Die Leute, die solche Sachen nicht in "100 Zeilen" (danke für die schlechte Polemik) zerteilen (müssen), wissen in der Regel aber auch was sie tun.
Du bist - wie du selber betonst - halt Laie und manche Feinheiten sind dir fremd oder unverständlich (C++-Char -> Delphi-Byte, Größen von Datentypen, Operator-Überladung, Zeigerarithmetik...etc.).

[EWeiss]

Zitat:

Du bist - wie du selber betonst - halt Laie und manche Feinheiten sind dir fremd oder unverständlich (C++-Char -> Delphi-Byte, Größen von Datentypen, Operator-Überladung, Zeigerarithmetik...etc.).

Richtig dessen schäme ich mich nicht.

Aber wenn ich jede mir bekannte API in ihre Bestandteile zerlegen würde hätte ich keine zeit mehr für andere Dinge

gruss

[TiGü]

Zitat von EWeiss:

Zitat:

Du bist - wie du selber betonst - halt Laie und manche Feinheiten sind dir fremd oder unverständlich (C++-Char -> Delphi-Byte, Größen von Datentypen, Operator-Überladung, Zeigerarithmetik...etc.).

Richtig dessen schäme ich mich nicht.

Aber wenn ich jede mir bekannte API in ihre Bestandteile zerlegen würde hätte ich keine zeit mehr für andere Dinge

gruss

Bei den unnötigen Wust an Quelltext, den du eh schreibst, fällt das nicht weiter ins Gewicht.
Und vielleicht machst du es nur da, wo du Probleme hast. Egal ob Verständnis-, Compiler- oder Laufzeitprobleme.

[EWeiss]

Zitat:

for K := 0 to Count do // Warum nicht Count-1? Wenn z.B Count 1 ist kopierst Du 2 Einträge?

Weil dann 1 Eintrag fehlt?

Das höchste Array Element ist "13" UB

Die Einträge gehen von 0 - 13 = 14 Einheiten
12 für meine Bilder und 2 für den linken und rechten Pfeil zum scrollen.

Würde ich jetzt (Count - 1) = 13 Einheiten nehmen würde mir der rechte Pfeil fehlen.

Zitat:

buffer[K] := A2[K]; // Warum das Pointer geschubse? Einfach zuweisen was anderes macht der C Code auch nicht

Gute Idee möchte aber MoveMemory behalten wegen der Kompatibilität zum original source so kann ich eventuelle Fehler besser analysieren.

gruss

[Neutral General]

Zitat von EWeiss:

Zitat:

for K := 0 to Count do // Warum nicht Count-1? Wenn z.B Count 1 ist kopierst Du 2 Einträge?

Weil dann 1 Eintrag fehlt?

Das höchste Array Element ist "13" UB

Die Einträge gehen von 0 - 13 = 14 Einheiten
12 für meine Bilder und 2 für den linken und rechten Pfeil zum scrollen.

Würde ich jetzt (Count - 1) = 13 Einheiten nehmen würde mir der rechte Pfeil fehlen.

Wie du schon gesagt hast:
14 Einheiten Count = 14
Einträge gehen von 0-13 (13 = 14-1 = Count-1 )

Deine Schleife geht aber von 0-14 (Count)
Eintrag 14 existiert nicht. Und das ist schlecht.

Ich hoffe du bist grad nur etwas verwirrt
Das ist etwas was man wissen sollte sobald man for-Schleifen gemeistert hat.

[Fritzew]

Zitat von EWeiss:

wegen der Kompatibilität zum original source so kann ich eventuelle Fehler besser analysieren.

Der war jetzt gut Hätte nicht gedacht das Du so viel Humor hast..............

[EWeiss]

Zitat:

14 Einheiten Count = 14

Nein der Count ist 13.
Und die schleife von 0 > High(UB) = 13 (14 Einheiten incl. der 0)

Mano. Muss ich jetzt noch ein Bild posten ?
Wenn es so wäre wie du sagst hätte es hier schon lang gekracht.
Auf ein nicht existierendes Element eines Arrays zuzugreifen macht AUA..

gruss