Hola a todos, les comento, tengo el siguiente problema.
Cuento con una funcion split para cortar partes de una string
Código:
function TForm1.CopyEntre(Cadena:string; Desde,Hasta:string):string;
var
Inicio,Final: integer;
begin
Inicio:=Pos(Desde,Cadena)+Length(Desde);
Final :=PosEx(Hasta,Cadena,Inicio);
If (Inicio>0) and (Final>Inicio) then Result:=Copy( Cadena, Inicio, Final-Inicio );
end;
funciona bastante bien pero tengo el problema que necesito cortar varias veces una sola string y no entiendo muy bien el bucle para hacerlo
supongamos que quiero cortar la siguiente cadena
cadena : string;
cadena := '+hola-xxxxx+como-xxxxx+estas-';
usaria la funcion split para obtener "hola"
trozo :string;
trozo := CopyEntre(cadena,'+','-');
esto me daria "hola"
pero como corto lo demas de la string para obtener hola como estas ??
Bueno gracias po su ayuda