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

[cargem]

هذا افضل

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
 var
 s1, s2, s3:string; i, t:Integer;

begin        // <1>delphi44<4>
    s1 := '<1>delphi44999<4>'  ;
 for i := 1 to length(s1)  do
        case s1[i] of
         'a'..'z' :s2 := s2 + s1[i]  ;
         'A'..'Z' :s2 := s2 + s1[i]  ;

        end;
        t :=Pos(s2, s1)   ;
        if t>0 then
         s3 :=     Copy(s1,t ,length(s1)-length(s2) );
        Edit1.Text  := s3 ;
end; 


PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
 var
 s1, s2, s3:string; i,j,  t:Integer;

begin        // <1>delphi44<4>
    s1 := '<1>delphi44999o<4>'  ;
        s2:= '';
for i := 1 to length(s1)  do
begin


             t  := Pos('<', s1[i])  ;
             if t >0   then

                 begin
                  j := Pos('>', s1)  ;
                    if j >0   then
                   j :=  j + 1 ;
                   t :=  i-j ;


                 end;
             if (j>1)and (t>j) then
              s2 := Copy(s1,j ,t);
end;
        Edit1.Text  := s2 ;
end;