Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

AW: Get(anyPointer) Verständnisfrage

  Alt 29. Apr 2013, 16:26
Wie kann ich nun Pointer in der Form wie in GetPChar() erhalten?
Was bitte willst Du (erreichen)?

Delphi-Quellcode:
procedure irgendwas(wert:integer);
begin wert:=66; end;

...
wert:=9;
irgendwas(wert);
// Hier ist wert immer noch 9 !!!!!
Ohne var werden keine Daten/werte aus der procedure zurück gegeben!
Ausnahme:

Delphi-Quellcode:
procedure irgendwas(pw:pinteger);
begin pw^:=100; end;

...
wert:=45;
irgendwas(@(wert);
// ab hier ist wert=100;
weil Du eine Adresse übergeben hast und an diese Adresse Daten geschrieben wurden. Die Adresse ist daran aber nicht direkt beteiligt.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat