Ersetzen von Dezimalwerten

[Jan]

Hi Christian,
ich hab da mal was gebastelt, was auch funktioniert.
Für die Nachwelt:

Delphi-Quellcode:

function Specialchars(intext:string):string;
var
    i, p: integer;
begin
  i:=1;
  while (not (i>length(intext))) do
  begin
    if intext[i]='&' then
    begin
      if intext[i+1]='#' then
      begin
        p:=pos(';', intext);
        if p<i+8 then
        intext:=copy(intext,1,i-1)+char(strtoint(copy(intext,i+2,p-(i+2))))+copy(intext,p+1,length(intext)-p);
      end;
    end;
    inc(i);
  end;
  result:=intext;
end;

Ist das so in ordnung, oder kann man das noch irgendwie gewinnbringend optimieren?
Gruß
Jan