Ergebnis der Suchanfrage

• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Escape sequenzen ersetzen

    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

  AW: Escape sequenzen ersetzen

    Delphi
    by Photoner, 11. Apr 2016
  Ergebnis wie gewünscht: "abc def<ghi"
  
  Die leere Exception bitte als imaginäres //TODO verstehen. Ich kommentiere nicht immer alle Baustellen. Schlechte Angewohnheit...
  Sollte ich tatsächlich durch ein TryStrToInt ersetzen. Das ist deutlich besser.
  
  
  
  Das ist gekauft. (p2>p1+1) Sollte man testen; ein "<>" zu parsen ergibt keinen Sinn.
  Du hast mich aber damit darauf aufmerksam gemacht,...
• Forum: Algorithmen, Datenstrukturen und Klassendesign

  AW: Escape sequenzen ersetzen

    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

  AW: Escape sequenzen ersetzen

    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;