Forum: Object-Pascal / Delphi-Language
Delphi
by luke2,
29. Mai 2012
So? Das funktioniert auch ohne Division.
writeln(p-addr(pointer(s)^)+1);
Forum: Object-Pascal / Delphi-Language
Delphi
by luke2,
29. Mai 2012
Das war mir klar, ich wusste nur nicht genau wie ich an die Anfangsposition komme, aber jetzt hab ich es:
var
s:string;
p:pchar;
begin
s:='hallo';
p:=pointer(s);
writeln(p-@pointer(s)^+1); //hier soll 1 für das 1. Zeichen, auf das p zeigt, ausgegeben werden
inc(p,2);
Forum: Object-Pascal / Delphi-Language
Delphi
by luke2,
29. Mai 2012
Hi,
gibt es eine sichere Methode den Zeichenindex eines PChars zu erhalten?
Beispiel:
var
s:string;
p:pchar;
begin