PPoint zu short

[EWeiss]

Danke dir.
Ich glaube die einfachste Lösung wäre ohne viel zu verändern meta als Integer zu definieren.
meta: TArray<Integer>
Dann stehen alle Daten im Array hintereinander so wie sie es sollen.

Habe mal zwei pics angehängt da kannst du sehen was ich meine.
Sieht dann so aus der Stern!

gruss

[EWeiss]

Muss noch mal nach haken.

MoveMemory(PByte(@buffer[0]) + K * sizeof(Short), @A2[K], sizeof(Short));

wegen der Änderung short zu PByte verändert sich nun das Array

buffer ist Array of short.

Das Array sollte dann als bsp. so aussehen 1,0,2,0,3,0 usw..
Das wird aber nun durch die Konvertierung zu PByte verändert.

Sieht dann so aus.
1,2,3 es fehlt also jeweils die 0 zwischen den einzelnen werten.

Wie kann ich das am besten korrigieren?
Ich muss Short erhalten.
Siehe Short.png im vorherigen Beitrag.

gruss

[brechi]

Was soll das machen?
A2[k] := buffer[k]?

PByte konvertiert nichts, sondern ist nur nen Poiner auf ein Byte.


wenn du aus zwei Bytes (z.B: 0300h) ein Short machst und dir dann siehst du die 0 nicht mehr, weil 0300h eben die Zahl 3 als Short ist.

[EWeiss]

Zitat von brechi:

Was soll das machen?
A2[k] := buffer[k]?

PByte konvertiert nichts, sondern ist nur nen Poiner auf ein Byte.


wenn du aus zwei Bytes (z.B: 0300h) ein Short machst und dir dann siehst du die 0 nicht mehr, weil 0300h eben die Zahl 3 als Short ist.

Sorry werde aus deinen schreiben nicht schlau etwas konfus..
A2[k] := buffer[k]? steht nirgends.

Habe es jetzt mal so gemacht nicht schön aber das Array wird dann gefüllt so wie ich es erwarte.

Delphi-Quellcode:

    for K := 0 to (Count * 2) do
    begin
      //MoveMemory(PByte(@buffer[0]) + K * sizeof(Short), @A2[K], sizeof(Short));
      if K mod 2 <> 0 then
      begin
        buffer[K] := 0;
        continue;
      end else
      buffer[K] := A2[K div 2];
    end;

gruss

[brechi]

Das hattest du mit dem CopyMemory programmiert

Delphi-Quellcode:

  for K := 0 to Count-1 do begin
    buffer[K*2+0] := A2[k];
    buffer[K*2+1] := 0;
  end;

[EWeiss]

Zitat von brechi:

Das hattest du mit dem CopyMemory programmiert

Delphi-Quellcode:

  for K := 0 to Count-1 do begin
    buffer[K*2+0] := A2[k];
    buffer[K*2+1] := 0;
  end;

Jo so geht's auch gleiche Ergebnis.

Zitat:

wenn du aus zwei Bytes (z.B: 0300h) ein Short machst und dir dann siehst du die 0 nicht mehr, weil 0300h eben die Zahl 3 als Short ist.

Dann frage ich mich warum bei Short der jeweils 2 Nenner im Array dann 0 ist.
Siehe mein PNG!

gruss

[brechi]

Ne in der 2. Zeile ist nicht jedes zweite Zeichen eine 0.

Du solltest direkt sagen welche Komponente du verwendest.

Durch googlen habe ich das gefunden, dass es sich um GDImage handelt.

--> Integer (Powebasic) = Short (Delphi)

sollte vom Datentyp also passen. Ob du aber jedes zweite Zeichen auf 0 setzen muss glaub ich nicht (das ist die Y-Koordinate)

Delphi-Quellcode:

TShortPoint = packed record
  x: Short;
  y: Short;
end;

TShortPointArr = array of TShortPoint;

// und dann
var
  myarr: TShortPointArr;  
begin
  SetLengtH(myarr, ...);
//....
 @myarr[0];