te agradezco mucho la ayuda ecfisa , al parecer tengo un problema con la funcion porque cuando pide char la variable del delimitador me da un error cuando uso un string intente usar un pchar() pero sigue dando el error , probe cambiando el valor delim de char a string para hacerlo funcionar y poder leer los datos del ejecutable pero se estanco todo el programa en esta parte :
No tira ningun error solo queda esperando en esa linea.
El codigo :
Código Delphi
[-]type
TVecStr = array of string;
procedure Split(Cadena: string; const Delim: string; 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 texto,todo:string;
TodoArray: TVecStr;
delimitador:string;
begin
delimitador := 'delimitador';
todo := read_file(paramstr(0));
Split(todo,delimitador,TodoArray);
Writeln(TodoArray[1]);
Estoy usando este codigo para leer los datos del login de mi agenda que tengo generados desde el instalador en mi ejecutable para poder leerlos y comprobar los datos.