String to TArray<T>

[mamcx]

Esa solución esta muy compleja!

La manera mas simple e idiomática en todos los lenguajes que usan generics es pasar una interface/protocolo (no tengo Delphi a la mano así que...):

Código Delphi [-]
type
   // Una Interface para convertir a String
   IString = Interface(IInterface)
     function IntoString : String;
   end;

function split< T: IString > (const S: string; const Separator: array of char): TArray< T >
begin
    //Codigo...
    item.IntoString() // Aqui obtienes el valor como un String!
end


// O pasa una function como convertidor
type TIntoString= reference to function< T >(inputValue: T): String;

function split_f< T > (const S: string; const Separator: array of char, convert: TIntoString< T >): TArray< T >
begin
    //Codigo...
    TIntoString (item) // Aqui obtienes el valor como un String!
end

[[movorack]]

Hola mamcx! No se si he entendido mal. Pero, el lo que busca es hacer el Split de un texto a un TArray<T> y decirle a una función que tipo de array quiere para obtenerlo como resultado.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  lArrI: TArray< Integer >;
  lArrD: TArray< Double >;
  lArrS: TArray< String >;
begin
  lArrI := Split< TArray< Integer > >('1;100;1000;10000;100000', [';']);
  lArrD := Split< TArray< Double >>('1,1;1,2;1,3;1,4;1,5', [';']);
  lArrS := Split< TArray< String >>('A;B;C;D;E', [';']);
end;

En la respuestas que das, pienso que estás enfocándote en el tratamiento del texto como tal para convertirlo en un array, que es la parte mas sencilla del planteamiento.

Lo complicado, son las limitantes que Delphi tiene en cuanto a esto. Al querer evaluar o manipular a T como indicador del tipo de dato que quieres devolver y así hacer el tratamiento correcto de datos, sea cual fuese el método propiedad determinada por una interfaz, función como parámetro o implementado dentro de la misma función. Debes usar la RTTI para identificar en tiempo de ejecución que tipo de dato te enviaron.

Esto mismo, afecta al Result de la función. Ya que al ser de un tipo T, el compilador no logra comprenderlo ni manipularlo correctamente. No te deja asignarle un valor directo, no deja que le hagas un casteo. Por ello en el ejercicio opto por asignarle la memoria del array que armé con la cadena que pasan como parámetro.

Lo que yo hice fue mas un ejercicio para aclarar mis ideas que una solución. En mi opinión la solución la aportó lucho6007 cuando aconseja que se realice una función de split para cada tipo, haciendo el overload respectivo.

[mamcx]

Correcto, lo hice al revés! Lo que necesitas es convertir de String a T:

Código Delphi [-]
{$ifdef fpc}
  {$mode delphi}
{$endif}

program Hello;
uses
  SysUtils;
  
type
  TConverter = function (const S: String): T;

function IntToStr(const S: String): Integer;
begin
    Result := StrToInt(S)
end;

type
  TSpliter = class
    class function Split(const S: string; const Separator: array of char; const convert: TConverter): TArray;
  end;

class function TSpliter.Split(const S: string; const Separator: array of char; const convert: TConverter): TArray;
var
  i: Integer;
  lArrStr: TArray<String>;
  lArr: TArray;
begin
    lArrStr := S.Split(Separator);
    SetLength(lArr, High(lArrStr) + 1);
  
    for i := 0 to High(lArrStr) do
    begin
      lArr[i] := convert(lArrStr[i]);
    end;

  Result := lArr;
end;

var 
  i: Integer;
  nums: TArray;
begin
    nums := TSpliter.Split('1;100;1000', [';'], IntToStr);
  
    for i := 0 to High(nums) do
    begin
      WriteLn(nums[i]);
    end;
end.

[[movorack]]

¡Mis respetos! Gracias por compartirnos esta solución mas elegante