Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-06-2022
Avatar de mamcx
mamcx mamcx is offline
Moderador
 
Registrado: sep 2004
Ubicación: Medellín - Colombia
Posts: 3.918
Poder: 25
mamcx Tiene un aura espectacularmamcx Tiene un aura espectacularmamcx Tiene un aura espectacular
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.
__________________
El malabarista.
Responder Con Cita
  #2  
Antiguo 29-06-2022
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
¡Mis respetos! Gracias por compartirnos esta solución mas elegante
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Función que retorne Tarray<T> movorack OOP 2 23-09-2021 15:30:39
Pasar de string a $ o de $ a string BuRtOn Varios 8 17-06-2008 01:53:45
la expresión String s = new String("hola"); David JAVA 4 22-02-2008 19:33:20
(const Value: string) vs (Value: string) eliash OOP 10 14-12-2005 19:10:13
String de mas de 250? unko! Varios 5 28-03-2005 17:55:19


La franja horaria es GMT +2. Ahora son las 01:07:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi