<1>delphi3<1>
<1>delphi3<2>
<1>delphi3<3>
<1>delphi44<4>
<1>delphi4<4>procedure TForm1.Button1Click(Sender: TObject);
var
s1:ShortString;
begin // <1>delphi44<4>
if Pos('>','<1>delphi44<4>' )>0 then
s1 := Copy('<1>delphi44<4>',Pos('>','<1>delphi44<4>' ) + 1 ,length('<1>delphi44<4>' )-Pos('>','<1>delphi44<4>' ) -3 ) ;
Edit1.Text :=s1 ;
end;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;
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;
Edit2.Text :=Copy(Edit1.Text,pos('>',Edit1.Text)+1,Length(Edit1.Text)-6);
copy(s,pos('<1>',s)+3,pos('<4>',s)-4);