daten verändern auf die pointer zeigt?

[Marco Steinebach]

Hallo zusammen,
Ich habe eine Funktion, die als parameter
buffer: pointer
length: DWord
übergebenbekommt. Length ist die Anzahl der Bytes, die von Buffer belegt werden.
Wie, um gotteswillen, kann ich auf die Daten, die durch buffer referenziert werden zugreifen, und sie verändern?
Ich weiß, daß die Daten vom typ Single sein sollen.
Ich muß nur den ganzen Puffer durchlaufen, und jeweils zwei Single-Paare verändern.
Kann mir da bitte mal jemand auf die Sprünge helfen?
Einen freundlichen Gruß
Marco

[Neutral General]

Hi,

Delphi-Quellcode:

procedure Test(p: Pointer);
begin
  PSingle(p)^ := 54.23;  // 1. Single
  PSingle(Cardinal(p) + SizeOf(Single))^ := 12.23; // 2. Single
  inc(PSingle(p),2); // Nächstes Paar
  PSingle(p)^ := 54.8;  // 3. Single
  PSingle(Cardinal(p) + SizeOf(Single))^ := 2.8; // 4. Single
end;

Das sollte dir helfen

[Marco Steinebach]

Hallo Neutral General,
Vielen dank. Und wie das hilft! ;-)
Einen schönen Abend noch
Marco

[Blup]

Macht auch nichts anderes, sieht aber besser aus:

Delphi-Quellcode:

type
  P2Single = ^T2Single;
  T2Single = record
    a: Single;
    b: Single;
  end;

procedure Test(p: P2Single); 
begin 
  p^.a := 54.23; // 1. Single 
  p^.b := 12.23; // 2. Single 
  inc(p, 1);     // Nächstes Paar 
  p^.a := 54.8;  // 3. Single 
  p^.b :=  2.8;  // 4. Single 
end;

Test kann natürlich auch mit einem normalen Pointer aufgerufen werden.

[Marco Steinebach]

Zitat:

Zitat von Blup

Macht auch nichts anderes, sieht aber besser aus:

Stimmt, danke. Gleich umgesetzt, denn es sieht wirklich besser aus!
Viele Grüße
Marco