Delphi - Crear, Visualizar y buscar en una Lista

   
Vista:

Crear, Visualizar y buscar en una Lista

Publicado por Albert (2 intervenciones) el 01/01/2014 19:02:54
Hola!! estoy haciendo un Programa que me permita añanir,crear un usuario con sus datos de telefono, y un identificador , que pueda ver esa lista y buscar si en la lista creada existe un usuario que buscamos, de momento tengo esto pero estoy alg perdido...si pudieran ayudarme!gracias!!!


uses
SysUtils;

const
nMaxUsuaris=20;
marca=-1;
type
tIxUsuaris=1..nMaxUsuaris;
tContUsuaris=0..nMaxUsuaris;
tRegUsuaris=record
telefon:integer;
identUsuari:tIxUsuaris;
end;
tLlistaUsuaris=array[1..20] of tRegUsuaris;
tArxiusUsuaris=record
nContUsaris:0..nMaxUsuaris;
dadesUs:tLlistaUsuaris;
end;
tBiblioteca= record
Usuari:tArxiusUsuaris;
end;
//-------------------------zona de subprogrames-----------//

procedure pCrearUser ( out nouUsuari:tArxiusUsuaris);

var
iPos:0..nMaxUsuaris;
begin
iPos:=0;
repeat
iPos:=iPos+1;
write('Introduce el telefono del usuario: ' );
readln(nouUsuari[iPos].dadesUs);
writeln('Introduce el identificador del usuario: ');
readln(nouUsuari[iPos].dadesUs.identUsuari);
until
(nouUsuari[iPos].dadesUs.identUsuari= marca ) or (iPos=nMaxUsuaris);
if
nouUsuari[iPos].dadesUs.identUsuari=marca
then
nouUsuari[iPos].dadesUs.identUsuari:=iPos-1;
else
nouUsuari[iPos].dadesUs.identUsuari:=iPos;
end;

//---------------------------------------------------------//

procedure pVerUser ( certUsuari:tArxiusUsuaris);

var
iVisita:1..nMaxUsuaris;
begin
writeln;
writeln('--------------------');
if certUsuari.nContUsuaris=0;
then
writeln('lista vacia');
else
begin
iVisita:=1;
while (certUsuari[iVisita]<> marca) and (iVisita<=nMaxUsuaris);
do
begin
writeln(certUsuari[iVisita]);
iVisita:=iVisita+1;
end;
end;
end;

//-------------------------------------------------------//

function fDimeNombre (unaBiblioteca:tBiblioteca; unIdentUsuari:tIxUsuari)boolean;
var
iVisita:tIxUsuaris;
begin
iVisita:=1;
while
(unaBiblioteca[iVisita]<> marca)
and
(unaBiblioteca[iVisita]<>unIdentUsuari)
and
(iVisita<nMax)
do
iVisita:=iVisita+1;
if
unaBiblioteca[iVisita]=unIdentUsuari
then
result:=true
else
result:=false;
end;
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