Hola.
Hice la prueba y funciona correctamente de acuerdo a la condicion que expusiste:
<cadena1
> espacio
<cadena2
>.
Para comprobarlo, copia y pega lo siguiente:
Código:
procedure QuitarMayorMenor(const Value: string; var s1,s2: string);
var
i: Integer;
begin
s1:= '';
for i:= 1 to Length(Value) do
if not(Value[i] in ['<', '>']) then
s1:= s1 + Value[i];
s2:= Copy(s1, Pos(' ', s1)+1, MaxInt);
Delete(s1, Pos(' ', s1), MaxInt);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Cad1,Cad2, st: string;
begin
st:= '<hola> <mundo>';
QuitarMayorMenor(st ,Cad1, Cad2);
ShowMessage(Cad1+#10#13+Cad2);
end;
Usé otras etiquetas, para que puedas copiar y pegar el ejemplo tal como es.
Nota: Si lees la
guía de estilo , verás que dice:
No solicites que te respondan por correo en privado.
(Por lo que borro el mismo de tu mensaje anterior)
Un saludo.