Leerzeichen/Zeilenumbrüche bis unbekannten Text löschen

[dominikkv]

  Delete(MeineHTMLSeite, 1, Pos(MeineHTMLSeite, 'Der Text ab dem nicht mehr gelöscht werden soll')); oder (wenn der Anfangstext nicht bekannt ist)

Delphi-Quellcode:

  while (length(MeineHTMLSeite) > 0) and not (MeineHTMLSeite[1] in ['A'..'Z', 'a'..'z', '0'..'9']) do
    Delete(MeineHTMLSeite, 1, 1);