Hola Lepuke.
Cita:
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