Pointer : Eine Speicherstelle weiterrücken

[braingrenade]

Moin Leute !


Hab ein Problem mit den allseits beliebten Pointern :

Wie kann ich einen die in einem Pointer P gespeicherte adresse
um eine Speicherstelle weiterbewegen?

In der OH steht dazu :

Code:

If I is an integer and P is a character pointer, then P + I adds I to the address given by P; that is, it returns a pointer to the address I characters after P. (The expression I + P is equivalent to P + I.) P ? I subtracts I from the address given by P; that is, it returns a pointer to the address I characters before P.

Nun hab ich folgenden Code :

Delphi-Quellcode:

var Pinput : Pointer;
begin
pinput :=  Pinput + 1;

Geht aber nicht : [Error] INN.pas(73): Operator not applicable to this operand type

ich habs auch noch so probiert :

 pinput := byte(Pinput) + 1; was aber auch nicht zum gewünschten Ergebniss führt : [Error] INN.pas(73): Incompatible types: 'Integer' and 'Pointer'

Weiß jemand wie ich das Lösen könnte ?

[Luckie]

Versuch es mal mit Inc. Als zweiten Parameter kannst die Schrittweite angeben, also sizeof(Integer).

[braingrenade]

hmmm ...

funtioniert leider auch nicht :

Delphi-Quellcode:

 inc(pinput,sizeof(byte)); //[Error] INN.pas(74): Ordinal type required

 inc(pinput); //[Error] INN.pas(74): Ordinal type required

[braingrenade]

Problem gelöst !!

Delphi-Quellcode:

var pinput : pointer;
    P : Pbyte;
begin
    P := pinput;
    inc(P);
end;

Dankescheeen !

[atreju2oo0]

Also das was Du brauchst ist eine Liste

Code:

type 
      PListe : ^TListe;
      TListe = record
      wert : integer // beliebige Variablen;
      next : PListe; // zeigt auf das nächste Element

var Anker,help:PListe; // Anker speichert das ERSTE Element und wird NIE verändert; help durchläuft die Liste

Im OnCreate musst Du nun noch die Zeiger initialisieren

Code:

new(Anker);// Reserviert Speicher für die Variable

An irgendeiner Stelle musst Du die Werte einlesen; Das geht so:

Code:

 help:=anker; // Setzt die Hilfsvariable auf die Erste Stelle

repeat
 new(help.next); // Erzeugt eine neue Variable und speichert den Zeiger dieser Variable in help.next ab
 help:=help.next; // Jetzt rutscht man mit help in der Liste eins hoch 
 help.wert:=2    // Hier kannst Du Daten ändern
 Help.next:=nil; // und setzt den neuen Nachfolger, der ja noch nicht erzeugt wurde auf 0 
until fertig...

und mit der Struktur kannst Du dann ganz locker eins hoch rutschen indem du

Code:

 help:=help.next

benutzt...

Am Ende des Programms musst Du den Speicher noch freigeben
indem Du diese Procedure mit clearanker(Anker) aufrufst

Code:

  procedure clearanker(help: PListe);
    begin
      if help.next<>nil then clearanker(help.next);
      dispose(help);
    end;

Ich hoffe das löst dein Problem...

[atreju2oo0]

oder so...

[braingrenade]

Nee , Listen mag ich net so , aber troztdem danke für die Mühe !

[Sebastian Nintemann]

Liegt, wenn ich mich nicht irre, daran, dass der Pointer typisiert sein muss. Es wird immer um soviel byte weitergerückt, wie eine Speichereinheit des referenzierten Typs belegt. Inc(p) bewirkt also zB das "vorrücken" um vier byte falls p ein PInteger ist.

Gruß, Sebastian

[Christian Seehase]

Moin Braingrenade,

es ginge auch

inc(PByte(pinput));

[braingrenade]

Ahh , das ja noch praktischer !