Forum: Sonstige Fragen zu Delphi
Delphi
by Progman,
15. Nov 2007
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:
procedure TForm1.Button1Click(Sender: TObject);
var i, p: Integer; z: String;...
Forum: Sonstige Fragen zu Delphi
Delphi
by Progman,
15. Nov 2007
procedure TForm1.Button1Click(Sender: TObject);
var i, p: Integer; z: String;
begin
for i:= 0 to Memo1.Lines-1 do begin
z:=Memo1.Lines; //Zeile aus Memo holen
p:=Pos('<img',z);
inc(p,4); //'<img' übergehen
while z <> '>' do inc(p); //p bleibt auf Position von '>' stehen
Insert(' /',z,p);
Memo1.Lines:=z; //Zeile wieder zurück ins Memo
Forum: Sonstige Fragen zu Delphi
Delphi
by Progman,
15. Nov 2007
ich würde so vorgehen:
Erst mal mit Pos('<img') die Position des img-Tags ermitteln, von da ab nach ">" suchen und an der Position von ">" einfach Insert(Zeile,Position,'/') machen.