archivo texto
Publicado por tomas (2 intervenciones) el 29/12/2007 17:47:36
Hola necesito crear una unit que permita administrar usuarios.
y que este en un archivo de texto de la siguiente forma: usuario#contraseña#privilegio....y el privilegio 0 es el de administrador...
necesito crear nuevos usuarios, eliminar, cambiar contraseñas, etc..
yo ya hice esto..pero no se como seguir...
procedure Separar (tex: string; var nom: string; var pwd: string; var pri: integer);
var
p: integer;
begin
p := pos ('#', tex);
nom := copy (tex, 1, p - 1);
delete (tex, 1, p);
p := pos ('#', tex);
pwd := copy (tex, 1, p - 1);
delete (tex, 1, p);
val (tex, pri, p);
end;
function BuscarUsuario (nombus: string; var pwdbus: string; var pribus: integer): boolean;
var
arch: text;
linea: string;
nom, pwd: string;
pri: integer;
begin
assign (arch, nomarch);
reset (arch);
readln (arch, linea);
Separar (linea, nom, pwd, pri);
while (not eof (arch)) and (nom <> nombus) do
begin
readln (arch, linea);
Separar (linea, nom, pwd, pri);
end;
if eof (arch) then
BuscarUsuario := false
else
begin
pwdbus := pwd;
pribus := pri;
BuscarUsuario := true
end
end;
Ahora necesito lo demas...MUCHAS GRACIAS.
y que este en un archivo de texto de la siguiente forma: usuario#contraseña#privilegio....y el privilegio 0 es el de administrador...
necesito crear nuevos usuarios, eliminar, cambiar contraseñas, etc..
yo ya hice esto..pero no se como seguir...
procedure Separar (tex: string; var nom: string; var pwd: string; var pri: integer);
var
p: integer;
begin
p := pos ('#', tex);
nom := copy (tex, 1, p - 1);
delete (tex, 1, p);
p := pos ('#', tex);
pwd := copy (tex, 1, p - 1);
delete (tex, 1, p);
val (tex, pri, p);
end;
function BuscarUsuario (nombus: string; var pwdbus: string; var pribus: integer): boolean;
var
arch: text;
linea: string;
nom, pwd: string;
pri: integer;
begin
assign (arch, nomarch);
reset (arch);
readln (arch, linea);
Separar (linea, nom, pwd, pri);
while (not eof (arch)) and (nom <> nombus) do
begin
readln (arch, linea);
Separar (linea, nom, pwd, pri);
end;
if eof (arch) then
BuscarUsuario := false
else
begin
pwdbus := pwd;
pribus := pri;
BuscarUsuario := true
end
end;
Ahora necesito lo demas...MUCHAS GRACIAS.
Valora esta pregunta


0