Funcion split en Delphi

[ecfisa]

Hola Lepuke.

Empezado por Lepuke

funcionan bien efcisa , gracias por la ayuda y ¿ tenes links donde no usen classes como el codigo que mostre ? porque es una aplicacion consola y classes le suma mucho peso ejecutable.

No, pero te hice un procedimiento que creo te va a servir:

Código Delphi [-]
program Project2;
{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TVecStr = array of string;

procedure Split(Cadena: string; const Delim: Char; var vec: TVecStr);
var
  p: Integer;
begin
  Cadena:= Cadena + Delim;
  while Length(Cadena) > 0 do
  begin
    p:= Pos(Delim, Cadena);
    if p = Length(Cadena) then
      SetLength(Cadena, Length(Cadena)-1);
    SetLength(vec, Length(vec)+1);
    vec[High(vec)]:= Copy(Cadena, 1, p-1);
    Delete(Cadena, 1, p);
  end;
end;

var
  s: string;
  v: TVecStr;
  i: Integer;
begin
  s:= 'la coma(,)se,usara,como delimitador,para,el ejemplo';
  Split(s, ',', v);
  for i:= Low(v) to High(v) do Writeln(v[i]);
  v:= nil;
  Readln;
end.

Salida:



Saludos