Forum: Object-Pascal / Delphi-Language
Delphi
by tr909,
16. Jan 2008
ich bekomme bei mkinzlers Variante eine Zugriffsverletzung an der Stelle :
if p1 <> nil then
begin
p2 := StrScan( p1, '>');
if p2 <> Nil then
begin
StrLCopy( pr, p, p1-p); <---- an dieser Stelle knallt es
Result := Result + pr;
Forum: Object-Pascal / Delphi-Language
Delphi
by tr909,
16. Jan 2008
Hatte gerade das gleiche Problem und habe nu provisorisch erst mal folgendes gebastelt und zusammengesucht
function GiveSZ(HCode: string): Char;
var
i : Integer;
begin
Result := ' ';
if (HCode = '"') or (HCode = '"') then Result := '"';
if (HCode = '&') or (HCode = '&') then Result := '&';
if (HCode = '<') or (HCode = '<') then Result :=...