Error al compilar: Operator is not overloaded
Publicado por Javier (1 intervención) el 21/04/2009 17:18:30
Hola. Estoy intentando compilar una practica que debo de entregar mañana, pero me da el error: "Operator is not overloaded"
en la siguiente function:
Function postinser(x:tInfo; lista: tLista):tPos;
var
P:tPos;
begin
P:=primero(lista);
{En esta línea}
while (x>=lista.elementos[P]) and (P<lista.ultimo) do
P:=P+1;
{Y en esta otra}
if (x>lista.elementos[P]) then
postinser:=P+1
else
postinser:=P;
end;
Los tengo definidos así:
tInfo= record
NumeroTelefono: TNumeroTelefono;
OperadorTelefono: TOperadorTelefono;
end;
tLista = record
elementos:array[1..maximo] of tInfo;
ultimo: nulo..maximo;
info: tInfo;
end;
GRACIAS. Y UN SALUDO
en la siguiente function:
Function postinser(x:tInfo; lista: tLista):tPos;
var
P:tPos;
begin
P:=primero(lista);
{En esta línea}
while (x>=lista.elementos[P]) and (P<lista.ultimo) do
P:=P+1;
{Y en esta otra}
if (x>lista.elementos[P]) then
postinser:=P+1
else
postinser:=P;
end;
Los tengo definidos así:
tInfo= record
NumeroTelefono: TNumeroTelefono;
OperadorTelefono: TOperadorTelefono;
end;
tLista = record
elementos:array[1..maximo] of tInfo;
ultimo: nulo..maximo;
info: tInfo;
end;
GRACIAS. Y UN SALUDO
Valora esta pregunta


0