كيف ينسخ نص بين وسمين <1> <4>

[yassine_hell]

جرب هذا

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;