... kann mir das jemand Implementieren ?

[Meister]

@gitzi

ja, ja ... ich habs mitlerweile auch gemerkt! Meine anwedung fängt total an zu spinnen! Och man ... alles kacke.

[MrSaint]

Hi!

Ich klink mich hier auch mal ein :). Um auf das mit den Pointern zuückzukommen: Hier ein Beispiel:


[font  size=2 face="Courier New"][font color="#000000"]procedure TForm1.Button1Click(Sender: TObject);
var a,b:^byte;
    c:pointer;
begin
  new(a);       [font color="#000080"]// a wird initialisiert
[/font]  new(b);       [font color="#000080"]// b wird initialisiert
[/font]  a^:=7;        [font color="#000080"]// der Inhalt von a wird mit "7" gefüllt
[/font]  c:=a;         [font color="#000080"]// Die Zeigeradresse von a wird in c gespeichert
[/font]  a:=b;         [font color="#000080"]// Die Zeigeradresse von b wird in a kopiert
[/font]  b^:=8;        [font color="#000080"]// Der Inhalt von b wird geändert...
[/font]  showmessage(inttostr(a^)+#13+#10+inttostr(b^));
  b^:=20;
  showmessage(inttostr(a^)+#13+#10+inttostr(b^));
  a:=c;         [font color="#000080"]// Die gespeicherte adresse wird wiederhergestellt
[/font]  dispose(a);   [font color="#000080"]// a wird "aufgeräumt"
[/font]  dispose(b);   [font color="#000080"]// b wird "aufgeräumt"
[/font]end;
[/font][/font]



Schau mal, was passiert :)




Greetz

MrSaint