Str To pointer?

[k4ni]

hey,

Ich mach jetzt schon fast ne stunde daran rum, aber bekomms nicht hin.
Wie übernehme ich exact was in einem Edit feld steht in einen pointer?
Also wenn jetzt im edit feld steht : $0078034F
Wie mach ich das zu einem pointer?
Ich hab das hier versucht:

Delphi-Quellcode:

p := ptr(StrToInt(Edit1.TExt));

Aber das gibt dann die decimal aus..


danke im vorraus..

[wido]

Deine Methode ist schon korrekt. Einfach den INT zu nem Pointer casten. Ein kleines Testprogramm bestätigt auch, daß es funktioniert:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  p : pointer;
begin
  p := nil;
  p := pointer(strtoint('$12345678'));
  writeln(format('%p', [p]));
  readln;
end.

Oder hab ich irgendwas übersehen? :)

[k4ni]

Yop :D , das er den pointer jetzt die addresse als decimal und nicht als hexdecimal ausgibt wenn man StrToInt verwendet.

[wido]

Delphi-Quellcode:

  p := pointer(strtoint('$FFFFFFFF'));
  writeln(format('%p', [p]));

Gibt korrekt FFFFFFFF aus. Aber selbst wenn da jetzt 4294967295 stünde statt FFFFFFFF. Ist doch nur ne andere Darstellungsform für ein und den selben Wert ;).