Forum: Sonstige Fragen zu Delphi
Delphi
by faux,
8. Mai 2004
dann machs so:
var
a, e: Integer;
begin
a := Pos('<body>', Edit1.Text) + 6;
e := Pos('</body>', Edit1.Text) - 7;
Memo2.Text := Copy(Edit1.Text, a, e-a);
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by faux,
8. Mai 2004
Jetzt fällts mir erst auf:
Forum: Sonstige Fragen zu Delphi
Delphi
by faux,
8. Mai 2004
var
a, e: Integer;
begin
a := Pos('<body>', Edit1.Text);
e := Pos('</body>', Edit1.Text);
Memo2.Text := Copy(Edit1.Text, a,e-a);
end;
in Memo2 hast du dann alles zwischen body und body drinnen (inclusive den body's)
und von Edit1 wird der Quelltext genommen...