bis zu einem bestimmten zeichen suchen?

[Progman]

dann nehm ich eben AnsiLowerCase und geb die Zeile dann als AnsiLowerCase(z) zurück, denn Tags sollen in Kleinschreibung sein
Natürlich muss man in der Endversion noch Prüfungen einbauen, ob nicht /> schon korrekt da steht. Mein Beispiel sollte ja nur die etwaige Vorgehensweise zeigen.
Hier korrigierter Source:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, p: Integer; z: String;
begin
  for i:=  0 to Memo1.Lines-1 do begin
    z:=LowerCase(Memo1.Lines[i]); //gleich in Kleinbuchstaben umwandeln :-)
    p:=Pos('<img',z);
    if p > 0 then begin
      inc(p,4); //'<img' übergehen
      while z[p] <> '>' do inc(p); //p bleibt auf Position von '>' stehen
      if z[p-1] <> '/' then Insert(' /',z,p);
      Memo1.Lines[i]:=z;
    end;
  end;
end;