Pascal/Turbo Pascal - archivo texto

   
Vista:

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder