separar una cadena 5263-526-30 que me quede 30

[ingabraham]

necesito separar una cadena
ej:
5263-526-30
que me quede
30

alguien q me pueda ayudar en una funcion o algo asi.
que me quede la cadena despues del ultimo separador -

[[maeyanes]]

Hola...

Hay varias formas, una es que recorras la cadena de forma invertida y te detengas al encontrar el primer '-':

Código Delphi [-]
for I := Length(Cadena) to 1 do
begin
  if Cadena[i] = '-' then
    Exit;
  Insert(Cadena[i], Result, 1)
end

Saludos...

[rgstuamigo]

Si se trata de copiar o extraer los dos ultimos caracteres de la cadena, pues se puede hacer:

Código Delphi [-]
Cadena_Separada:=RightStr(Cadena,2);

o tambien

Código Delphi [-]
Cadena_Separada:=Copy(Cadena,Length(Cadena)-1,2);

Ojo: Para que te funcione lo anterior no debe haber ningun espacio al final de la cadena..
Saludos...

[ingabraham]

no, pueden haber mas numero despues del separador
y tambien hay muchos separadores.

[rgstuamigo]

Bueno en ese caso puedes hacerlo tal como te ha indicado Maeyanes o bien así:

Código Delphi [-]
    p:=LastDelimiter('-',Cadena);//Obtengo la ultima posicion del caracter '-' en la cadena
   Cadena_Separada:=RightStr(Cadena,length(Cadena)-p);//Extraigo la parte derecha de la cadena a partir de la pocision p+1

O tambien

Código Delphi [-]
    p:=LastDelimiter('-',Cadena);//Obtengo la ultima posicion del caracter '-' en la cadena
   Cadena_Separada:=Copy(Cadena,p+1,length(cadena)-p);//copio a partir de la pocision p+1 hacia adelante

Saludos...

[ContraVeneno]

Separar cadenas en un arreglo.