Pointerinhalt verändern

[Jasmine]

Hallo zusammen,

bin neu hier und programmiere erst seit kurzem.

Ich habe ein Verständnisproblem mit Pointern und es wäre sehr nett, wenn ein
paar von euch lieben Spezialisten mir helfen könnte

Ich habe zwei Pointer deklariert:

var
buffer : PChar;
copybuffer : PChar;

Ihnen dann Speicher zugewiesen :

buffer:=Pchar(AllocMem(1024));
copybuffer:=Pchar(AllocMem(1024));

Dann aus einem File in einen gelesen :

FileRead(FH,buffer^,50);

Nun kopiert :

copybuffer^:=buffer^;

Nun möchte ich ähnlich wie bei arrays copybuffer[x]:=copybuffer[x] + vari[x]
vom ersten Wert bis zu einem bestimmten den Inhalt verändern, in diesem Fall die
Variable vari[x] dazu addieren.

Jedoch:

for i:=1 to 50 do copybuffer^[i]:=copybuffer^[i]+vari[i];

funktioniert nicht !

Über ein paar Tips würde ich mich sehr freuen.

Danke,

Jasmine

[Delphi-Freak]

Hi!

Herzlich willkommen in der DP!


Könnte es vielleicht über
for i:=1 to 50 do copybuffer[i]:=copybuffer[i]+vari[i]; funktionieren (PChar ist ja nicht ein »Standard-Pointer«, sondern etwas anders, glaube ich... )
oder sonst vielleicht mit
for i:=1 to 50 do copybuffer[i]^:=copybuffer[i]^+vari[i]; Sind nur zwei spontane Ideen, ist aber eine gute Frage



LG, Delphi-Freak

[brechi]

Delphi-Quellcode:

for i := 0 to 50-1 do
  pbyte(integer(copybuffer)+i)^ := pbyte(integer(copybuffer)+i)^+vari[i];

oder du machst:

Delphi-Quellcode:

type tbla: array[0..0] of byte;
     pbla: ^tbla;
     bla: pbla;
begin
  bla := copybuffer;
  for i := 0 to 50-1 do
    bla[i]^ := bla[i]^+var[i];
end;

[Jasmine]

Das ging aber schnell, danke

@Delphi-Freak

klappt leider nicht

@brechi

Danke.

Aber woher nehme ich pbyte ? Locale Variabel als Byte deklariert ?

var
pbyte : byte;

Compiler gibt Fehlermeldung : Missing operator or semicolon aus !

Jasmine

[Delphi-Freak]

pbyte dürfte eine Funktion sein, sowie z.B. die Funktion PChar(). Wahrscheinlich brauchst du dafür irgendwelche Units in den Uses - nur weiß ich auch nicht welche, ich lese diesen Fuktionsnamen (wenn es überhaupt einer ist) zum ersten Mal... Brechi kann dir da wahrscheinlich besser helfen

LG, ich

[brechi]

type pbyte = ^byte;

sollte delphi aber kennen, weils in der windows.pas steht
also einfach nix deklarieren

edit:

pchar ist nichts anderes als nen ^char;
also nen pointer auf nen char (array)

gibt auch pinteger etc. kommt halt drauf an was du amchen willst aber nen + funktioniert nur auf zahlbasis

d.h. du kannst nicht 2 chars addieren sondern nur 2 bytes

[Delphi-Freak]

Bedeutet das, dass wenn man zwei Typen

Delphi-Quellcode:

type
  MyType: Array of Byte;
  PMyType: ^MyType;

hat, dass es dann automatisch die »Funktion« PMyType gibt, um einen Pointer zu erzeugen?


mfg


[Edit]Tschuldigung, dass das jetzt etwas OT wird [/Edit]

[brechi]

pmytype ist dann einfach nur nen pointer, mehr nicht.
aber wenn du den veränderst mit mytype^ ändert delphi das dann jenachdem ab worauf es zeigt

d.h. nen pbyte(addr)^ := 1; würde nur das byte an der addreses ändern
nen pinteger(addr)^ := 1; würde 4 bytes ändern
usw.

wenn du nen ^array hast dann musst du noch nen index angeben

[Khabarakh]

Das war IMHO nicht Delphi-Freaks Frage.
PMyType ist keine neue Funktion, sondern einfach ein Typecast, den es ja automatisch für jeden Typ gibt.