Memeber Acces Operators in Delph

[Virchov]

Tach!


ich habe ein klitzekleines Prozedürchen in Delphi umzusetzen.
Da kommt dieses M.A.O. -> vor. Wie könnte das hier in Delphi aussehhen

Delphi-Quellcode:

void GetRGB(
  RGBTRIPLE* prgb,           //Pointer   to the pixel
  BYTE *R, BYTE *G, BYTE *B)  //Output:   R, G and B
{
  *R=prgb->rgbtRed;
  *G=prgb->rgbtGreen;
  *B=prgb->rgbtBlue;
}

Also, die Deklaration ist mir klar, wie das geht, vielmehr interessiert mich die Umsetzung der 3 Zeilen zwischen den Klammern :gruebel:

Danke!

[Virchov]

Vielleicht so:

*R=^prgb.rgbtRed;

??

[Virchov]

Delphi-Quellcode:

 implementation
procedure GetRGB(
  prgb: pRGBTRIPLE;           //Pointer   to the pixel
  R,G,B: pBYTE);                          //Output:   R, G and B

  begin
  R^:=prgb.rgbtRed;
  G^:=prgb.rgbtGreen;
  B^:=prgb.rgbtBlue;
end;

Oder vielleicht So? :angle2:

[Basilikum]

Code:

void GetRGB(
  RGBTRIPLE* prgb,           //Pointer   to the pixel
  BYTE *R, BYTE *G, BYTE *B)  //Output:   R, G and B
{
  *R=prgb->rgbtRed;
  *G=prgb->rgbtGreen;
  *B=prgb->rgbtBlue;
}

Delphi-Quellcode:

Procedure GetRGB(Const prgb : PRGBTRIPLE;Var R,G,B : Byte);
Begin
  R:=prgb^.rgbtRed;
  G:=prgb^.rgbtGreen;
  B:=prgb^.rgbtBlue;
end;

[Virchov]

Zitat:

Zitat von Virchov

Delphi-Quellcode:

 implementation
procedure GetRGB(
  prgb: pRGBTRIPLE;           //Pointer   to the pixel
  R,G,B: pBYTE);                          //Output:   R, G and B

  begin
  R^:=prgb.rgbtRed;
  G^:=prgb.rgbtGreen;
  B^:=prgb.rgbtBlue;
end;

Oder vielleicht So? :angle2:

Danke. Könntest Du mir vielleicht den Unterschied zwischen Deinem und meinem Ansatz erläutern? :wall:

[Chewie]

@ Virchov: R, G und B sind Zeiger auf Byte-Werte. Du weist diesen Zeigern aber die Werte selbst zu, nicht die Adressen!

[Basilikum]

während ich meinen Beitrag geschrieben habe, bist Du mit Deinem zuvorgekommen... grundsätzlich ist es das selbe... der Unterschied ist die Art der Wertrückgabe von R,G und B... in C verwendet man häufig Pointer (BYTE*) zur Wertrückgabe, während im Delphi dazu das VAR-Schlüsselwort verwendet werden kann... Du hast nun diese Art der Wertrückgabe übernommen, ich habe sie auf die Delphi-übliche Variante realisiert.... im Assembler-Code würden beide Ansätze nahezu identisch aussehen....

[Virchov]

Zitat:

Zitat von Chewie

@ Virchov: R, G und B sind Zeiger auf Byte-Werte. Du weist diesen Zeigern aber die Werte selbst zu, nicht die Adressen!

Hmmm.
Verstehe ich Dich richtig:
^R ist ein Pointer auf Pointer auf pByte;
R ist ein Pointer auf pByte;
R^ ist die pByte- Variable, auf die der Pointer zeigt

Richtig? :oops:

[Virchov]

Und das? Ich bin völlig verwirrt....

Delphi-Quellcode:

  R^:=prgb^.rgbtRed; ;
  G^:=prgb^.rgbtGreen;
  B^:=prgb^.rgbtBlue;

Ist das nicht dasselbe wie

Delphi-Quellcode:

  R:=prgb^.rgbtRed; ;
  G:=prgb^.rgbtGreen;
  B:=prgb^.rgbtBlue;

das hier? :duck:

[Chewie]

@ Virchov: Also: R, G und B sind vom Typ PByte, das sollte ein Pointer auf einen Byte-Wert sein.

prgb ist ein Pointer pRGBTRIPLE. Dieses enthält wohl drei Byte-Werte.

Delphi-Quellcode:

R^:=prgb^.rgbtRed; ;
  G^:=prgb^.rgbtGreen;
  B^:=prgb^.rgbtBlue;

Zunächst: prgb^.rgbtRed ist das gleiche wie prgb.rgbtRed.
Du weißt also der Speicherstelle, auf die R zeigt, den Wert von prgb.rgbtRed zu.

Delphi-Quellcode:

R:=prgb^.rgbtRed; ;
G:=prgb^.rgbtGreen;
B:=prgb^.rgbtBlue;

Hier weißt du der Variable R den Wert im Record zu.

Ich hab übrigens da oben Mist geschrieben, vergesst das.

Die Lösung von Basilikum entspricht allerdings der deinen, da er die Parameter als Referenz abruft. Dadurch kann er mit ihnen hantieren, als wären es Wertvariabeln, allerdings sind es Zeigervariablen.