ayuda con arvhivos de textos y arreglos en delphi

[ecfisa]

Hola.

Hice la prueba y funciona correctamente de acuerdo a la condicion que expusiste: <cadena1> espacio <cadena2>.

Para comprobarlo, copia y pega lo siguiente:

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.