|
Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
|
Re: alles zwischen <body> und </body> kopieren
8. Mai 2004, 18:12
hi
Delphi-Quellcode:
var
s: string;
begin
s := Edit1.Text;
Delete(s, 1, Pos(<body>, s)+5);
Memo2.Text := Copy(s, 1, Pos('</body>',s)-1);
end;
Mario
MSN: cyanide@ccode.de
|