23-08-2011, 09:48 AM
جرب هذا
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var p1,p2,i : integer;
s : string;
begin
for i := 0 to Memo1.lines.count - 1 do
begin
p1 := 0;
p2 := 0;
s := Memo1.Lines.Strings[i];
repeat
delete(s,p1,p2);
p1 := pos('<',s);
p2 := pos('>',s);
until ((p1 = 0) and (p2 = 0));
Memo1.Lines.add(s);
end;
end;