Pointerinhalt verändern

[marabu]

@Jasmine:

Delphi-Quellcode:

uses
  Windows;
  
const
  CBUFSIZE = 1024;

var 
  buffer, src: PByte; 
  copyBuffer, tgt: PByte; 

begin
  buffer := Pchar(AllocMem(CBUFSIZE)); 
  copybuffer := Pchar(AllocMem(CBUFSIZE)); 
  FileRead(FH, buffer^, 50); 

  src := buffer;
  tgt := copyBuffer
  for i := 1 to 50 do begin
    tgt^ := src^ + vari[i];
    Inc(src); // Zeiger um eine Stelle weiterrücken
    Inc(tgt);
  end;
end;

Grüße vom marabu