Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i, p: Integer; z: String;
begin
for i:= 0 to Memo1.Lines-1 do begin
z:=Memo1.Lines[i]; //Zeile aus Memo holen
p:=Pos('<img',z);
inc(p,4); //'<img' übergehen
while z[p] <> '>' do inc(p); //p bleibt auf Position von '>' stehen
Insert(' /',z,p);
Memo1.Lines[i]:=z; //Zeile wieder zurück ins Memo
end;
end;
Ungetestet, aber so müsste es klappen, vorausgesetzt, der img-Tag ist auch komplett in einer Zeile.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
