Zeichen in einen String loeschen

[Ultimator]

Delphi-Quellcode:

const str = 'sectionid=15">SVCD'; //muss ja kein const sein, kannst das auch in ne Funktion packen und den string als Parameter übergeben
var i, found: integer;
ergebnis: string;
...
for i := length(str) downto 1 do
  begin
   if str[length(str) - i] = '>' then
    begin
     found := length(str) - i;
     ergebnis := copy(str, found +1, length(str)- found);
     ShowMessage(ergebnis);
     break;
    end;
  end;