Hallo Leute

also, ich versuche mich gerade an Zeigern, habe aber eine unklare Situation geschaffen.

Ich möchte als Beispiel, eine Stringliste erstellen, zurückgeben will ich den Zeiger als Integer Wert.
Danach möchte ich in die Stringliste etwas einfügen, habe den Wert den ich einfügen will, und den Zeiger auf die Liste als Integer.

WIE kann ich jetzt die Liste greifen und etwas eintragen?

Mein Versuch:

zusammenfalten · markieren

Delphi-Quellcode:

{...}
var
  zeiger: integer;
  p: pointer;
  strl, mylist: tstringlist;
begin
  strl := tstringlist.Create;
  strl.add('Hallo');
  p := @strl;
  zeiger := Integer(p);
  ShowMessage('Der Zeiger als Nummer: '+IntToStr(zeiger));

  mylist := TStringlist(Pointer(zeiger));
  mylist.Add('Welt!');

  ShowMessage(mylist.Text);
{...}

Nur als Warnung: dieser Code wird nicht mehr funktionieren, sobald Emb. einen 64bit-Compiler rausbringt.

Zitat von Assarbad:

Nur als Warnung: dieser Code wird nicht mehr funktionieren, sobald Emb. einen 64bit-Compiler rausbringt.

Wir beide wissen, dass das keine größe Einschränkung ist

@Topic: Es ist quasi sinnlos einen Zeiger auf ein Objekt zeigen zu lassen, da eine Objektreferenz bereits ein Zeiger ist.

==>

zusammenfalten · markieren

Delphi-Quellcode:

var
  p: tstringlist;
  strl, mylist: tstringlist;
begin
  strl := tstringlist.Create;
  strl.add('Hallo');
  p := strl;
  ShowMessage('Der Zeiger als Nummer: '+IntToStr(Integer(P)));

  mylist := p;
  mylist.Add('Welt!');

  ShowMessage(mylist.Text);

Zitat von jfheins:

Zitat von Assarbad:

Nur als Warnung: dieser Code wird nicht mehr funktionieren, sobald Emb. einen 64bit-Compiler rausbringt.

Wir beide wissen, dass das keine größe Einschränkung ist

In dem Wissen, daß sie daran arbeiten, finde ich es schon sinnlos heute noch Code zu schreiben der nicht vorbereitet ist.

Zitat von Assarbad:

In dem Wissen, daß sie daran arbeiten, finde ich es schon sinnlos heute noch Code zu schreiben der nicht vorbereitet ist.

Okay, ich bin da auch nicht mehr auf dem Laufenden - welcher Integer-Typ entspricht denn dann dem Pointer?

P.S.: Falls das ganze nur so eine Fingerübung ist, um mal ein wenig mit Pointer zu spielen empfehle ich für diesen Zweck records

Ich glaube ich muss da weiter ausholen.

Ich arbeite mit einem Script Interpreter, die Verarbeitung von Listen, Dateien und anderen Objekten soll so wie folgt laufen:

Beispiel:

markieren

Delphi-Quellcode:

{...}
var list integer

list := ListCreate ()
ListAdd (list, 'mein Eintrag 1')
ListAdd (list, 'mein Eintrag 2')
ListSaveToFile (list, 'C:\MeineListe.txt')
ListFree (list)
{...}

Dafür ist es erforderlich, das ich mittels ListCreate eine Stringliste zur Laufzeit erzeuge, und diese Liste Anhand der "Nummer" - also dem Zeiger - identifizieren und verarbeiten kann.

was spricht gegen

var list Pointer

??

Gute Idee, aber ich brauche die Adresse der Liste als Ganzzahl

Zitat von jfheins:

Zitat von Assarbad:

In dem Wissen, daß sie daran arbeiten, finde ich es schon sinnlos heute noch Code zu schreiben der nicht vorbereitet ist.

Okay, ich bin da auch nicht mehr auf dem Laufenden - welcher Integer-Typ entspricht denn dann dem Pointer?

In Delphi meines Wissens nach keiner. Im PSDK hat man ULONG_PTR und andere *_PTR deswegen eingeführt.

Dann kannst Du ihn wie Du vorhattest (und fast alle es tun) als Integer casten.
gegf. habe wir alle Glück und Pointer werden wie Integer bei D64bit beide 8 Byte lang, dann passts eh wieder.