leer texto pero del final al inicio

[[duilioisola]]

Dos opciones :

- Guardas en una variable global la última posición donde encontró el "separador"
- Pasas la posición donde quieres que comience el análisis como parámetro

Código Delphi [-]
function CopyEntre(s : string, sep1 : string; sep2 : string; var posicion : integer)
begin
...
   for i := posición to length(s) do
   begin
      {si encuentro sep2}
         {posición := i;}
         {salir y devolver resultado}
   end;
...
end;

pos := 1;
texto := 'ABCDE-HOLA+FGHIJ-ADIOS+KLMN';
texto2 := CopyEntre(texto,'-','+',pos);
{devuelve "HOLA"}
{pos habrá cambiado a 11}
texto2 := CopyEntre(texto,'-','+',pos);
{devuelve "ADIOS"}

[*Caro*]

Hola , también puedes hacerlo de esta forma, para que recorra toda la cadena y te devuelva todas las que encuentra entre - y +.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 texto, textoTmp, cadena : String;
 Inicio, Final : Integer;
begin
 texto := 'ABCDE-HOLA+FGHIJ-ADIOS+KLMN';
 textoTmp := texto;
 
 while Pos('-',textoTmp)>0 do
  begin
    Inicio := Pos('-',textoTmp);
    Final := Pos('+',textoTmp);
 
    cadena:=Copy( textoTmp, Inicio+1, Final-Inicio-1);
 
    textoTmp[Inicio] := '0';
    textoTmp[Final] := '0';

    showmessage(cadena);
  end;
end;

Saluditos

[octalh]

Gracias a los dos por responder, me convence la forma de hacerlo guardando la posicion del ultimo separador y continuar desde ahi la prox busqueda.

Ya que no puedo hacer eso manual porque la string cambia constantemente y yo no puedo saber la cantidad de caracteres dentro de ella

esa forma de guardar el ultimo separador como variable global me parece muy buena pero no entendi muy bien el ejemplo, no se si el ejempo es de la primera o la segunda optativa que me has dado.

podrias ayudarme con algo de codigo para poder entender como podria hacer eso?

gracias

[octalh]

Pues al final lo solucione, solo que no de esa forma

resulta que si se pueden voltear las strings y funciono muy bien

dejo el codigo por si alguien lo necesita

Function String_Reverse(S : String): String; 
Var 
   i : Integer; 
Begin 
   Result := ''; 
   For i := Length(S) DownTo 1 Do 
   Begin 
     Result := Result + Copy(S,i,1) ; 
     T := result; 
   End; 
End;