Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Photoner,
11. Apr 2016
Aller Guten Dinge sind drei:
function ParseLiteralsW(AInputString : WideString) : WideString;
var
p1,p2 : Integer;
tmpInt : Integer;
tmpw : WideString;
begin
Result:=AInputString;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Photoner,
11. Apr 2016
Es ist immer noch ein Fehler in meinem Beitrag weiter oben. Die Sequenz <60>...<62> wird bei einem rekursiven Aufruf wieder geparsed. Unschön. Deswegen eine kleine Änderung:
function ParseLiteralsW(AInputString : WideString) : WideString;
var
p1,p2 : Integer;
tmpword : Word;
tmpw : WideString;
begin
Result:=AInputString;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Photoner,
8. Apr 2016
Was ist deine Frage?
Magst du was hilfreiches von uns sehen?
Zum Bsp. mit Rekursion:
// <XYZ> wird ersetzt durch WideChar(XYZ) wenn zum einen die Kombination "<" + "XYZ" + ">" gefunden wird und zum anderen sich "XYZ" in einen Integer umwandeln lässt.
function ParseLiteralsW(AInputString : WideString) : WideString;