Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren

[nahpets]

Nagut, ich versuch's nochmal mit folgenden Annahmen:

text sei: *\A+*
alt sei: \A+
erwartetes Ergebnis: **

Delphi-Quellcode:

function TForm5.Löschen(text:string;alt:string): string;
  var
  b,a :integer;
begin
  // Welchen Wert hat hier eigentlich b? Größer als 0?
  while b > 0 do begin
    b := Pos(alt,text);  // Position von \A+ in *\A+* ist 2
    a := length(alt);  // Länge von \A+ ist 3
    text := copy(text,b,a);  // -> Copy('*\A+*',2,3) ergibt \A+
    Delete(text,b,a);  // Delete('\A+',2,3) ergibt \
    b := Pos(alt,text); // Pos('\A+','\') ergibt 0
  end;
  result := Text; // Rückgabewert = \, wenn b am Anfang zufällig > 0 war, sonst wird Text zurückgegeben.
end;