(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.120 Beiträge
Delphi 11 Alexandria
|
Re: Ersetzen von Dezimalwerten
6. Nov 2003, 21:12
Moin Jan,
ich würde mal behaupten, dass das unter Umständen schief geht.
Wer sagt denn, dass ein ; nur als Kennzeichen für das Ende einer & #nnn; Darstellung dient?
Noch gemeiner: Wenn der numerische Code = 59 ist, wird ein ; in den Text eingefügt, und schon stimmt das mit dem Pos auch nicht mehr.
Initialisiere lieber Result auf einen String mit der Länge des Eingabestrings (z.B. auf Blank), und füge Zeichen für Zeichen dort ein. Triffst Du auf ein & im Quellstring, merk Dir dessen Position und suche nach dem nächsten ;
Dann kannst Du den Wert dazwischen auswerten, und ins Ziel übertragen.
Der Wert muss ja nicht zwingend numerisch sein & amp; könnte z.B. auch vorkommen, und müsste entsprechend übersetzt werden.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|