devolver una cadena

[Neftali [Germán.Estévez]]

Hombre, por poder, sí se puede. Utilizando la rutina de dec, sería algo así:

Código Delphi [-]
   procedure PartirCadena(cadena: string; separador: char;
     var primeraParte, segundaParte: string);
   var
     TS:TStringList;
   begin
     // Crear
     TS := TStringList.Create();
     // proteccion para liberar
     try
       // Asignar
       TS.Delimiter := separador;
       TS.DelimitedText := cadena;
       // Obtener los trozos
       primeraParte := TS[0];
       segundaParte := TS[1];
     finally
       // Liberar
       TS.Free;
     end;
   end;

[[Lepe]]

Ya puestos a crear un TStringList....

Código Delphi [-]
// Advertencia: La función crea el StringList, 
// el usuario de la función tendrá que liberarla
function PartirCadena(cadena: string; separador: char):TStringList;
   begin
     // Crear
     Result := TStringList.Create();
     // Asignar
       Result.Delimiter := separador;
       Result.DelimitedText := cadena;
   end;

Uso de la misma:

Código Delphi [-]
var s:TStringList;
begin
try
  s := PartirCadena('Este texto ; se partirá en 2',';');
finally
  s.free;
end;

He visto hacer cosas como estas en rutinas, y funcionar funciona, aunque se sale del "estandar de trabajo con delphi".

Un saludo