cadena de texto

[calcoen]

muy buenos dias, disculpen soy nuevo en delphi y por ahi me pregunta es un poco tonta, les explico recivo un texto por puerto com con dos datos, uno entre <xxxx> y otro (xxx), lo guardo en una variable, hasta ahi todo bien, como puedo separar estos datos en dos variables distintas, desde ya gracias, hugo

[Casimiro Notevi]

http://www.delphibasics.co.uk/RTL.asp?Name=Copy
http://www.clubdelphi.com/foros/guiaestilo.php

[calcoen]

muchisimas gracias por tu pronta respuesta, pero el dato que me pasa el com no son cadenas fijas, si no delimitado por caracteres, por eso no puedo contar caracteres, pero desde ya gracias, hugo

[Casimiro Notevi]

Empezado por calcoen

muchisimas gracias por tu pronta respuesta, pero el dato que me pasa el com no son cadenas fijas, si no delimitado por caracteres, por eso no puedo contar caracteres, pero desde ya gracias, hugo

No somos adivinos, con mejores preguntas obtendrás mejores respuestas
Por eso te he enlazado nuestra guía de estilo.

Desde "aquí" no vemos tu ordenador, ni el fichero que recibes, ni tu código fuente, ni nada de nada, así que tendrás que ser nuestros ojos.

[[movorack]]

Puede que puedas usar Expresiones regulares.

Web para pruebas

[[oscarac]]

yo hacia algo similar con esta rutina, de acuerdo a la posicion, lo asignaba en variables

Código Delphi [-]
 
    AssignFile (_file, edtArticulos.Text);
    Reset (_file);
    while not Eof(_File) do
    begin
      Readln(_File, sLinea);
      vCadena := '';
      CDSArticulo.Append;
      vContador := 0;
      for i:= 1 to Length(sLinea) do
      begin
        vChar := Copy(sLinea, i, 1);
        if vChar = '¦' then
        begin
          Inc(vContador);
  //LIN,KOD,DESCL,PR1,Check
          case vContador of
            1: begin CDSArticuloLIN.Value := vCadena; vCadena:= ''; end;
            2: begin CDSArticuloKOD.Value := vCadena; vCadena:= ''; end;
            3: begin CDSArticuloDESCL.Value := vCadena; vCadena:= ''; end;
            4: begin CDSArticuloPR1.Value := strtofloat(vCadena); vCadena:= ''; end;
            5: begin CDSArticuloCheck.Value := vCadena; vCadena:= ''; end;
          end
        End
        Else
          vCadena := vCadena + vChar;

      end;
      CDSArticulo.Post;
    end;
    CloseFile(_file);
  end;

[jhonny]

O quizá te sirva la función ExtractString

Zarko Gajic explica mejor su funcionamiento acá http://delphi.about.com/od/beginners...s-Function.htm