Unit não está gravando na matriz

1 de maio de 2010

Estou com um problema num programa em que eu criei uma unit e um programa principal.

-----------------------------------------------------

unit lseq;

interface
procedure inserir (l: array of string; x: integer);

implementation
uses crt;
var
cont: integer;

procedure inserir (l: array of string; x: integer);
Begin
textcolor (0);
textbackground (15);
clrscr;
for cont:= 10 to 75 do
   begin
     gotoxy(cont,5);
     textbackground(0);
     write(' ');
   end;
for cont:= 10 to 75 do
   begin
     gotoxy(cont,12);
     textbackground(0);
     write(' ');
   end;
for cont:= 5 to 12 do
   begin
     gotoxy(10,cont);
     textbackground(0);
     write(' ');
   end;
for cont:= 5 to 12 do
   begin
     gotoxy(75,cont);
     textbackground(0);
     write(' ');
   end;
   textbackground(15);
   Gotoxy(16,7); writeln('Digite posicao que deseja inserir um dado (1 a 50)');
   Gotoxy(16,8); readln(x);
   while (x<1) or (x>50) do
      begin
         Gotoxy(1,8); clreol;
         Gotoxy(10,8); textbackground(0); write(' ');
         Gotoxy(75,8); textbackground(0); write(' ');
         Gotoxy(16,8); textbackground(15); readln(x);
      end;
   Gotoxy(16,9); writeln('Informe o dado que deseja inserir');
   Gotoxy(16,10); readln(l[x]);
end;

-----------------------------------------------------

Onde este procedimento serve para colocar uma informação dentro de uma lista.

E aqui um trecho do meu programa principal.

-----------------------------------------------------

Program list;
Uses Crt, Lseq;

Var
Lista: Array[1..50] of string;
Pos: Integer;
If ent='2' then
          Inserir(lista,pos);

-----------------------------------------------------

Vale a pena ressaltar que eu declarei o uses lseq, a var lista é um vetor de string e o pos é uma variavel de integer, obedeceço aos parametros da minha unit. (l da unit = lista do programa principal) e (x da unit = pos do programa principal)

O unico problema é que quando eu peço para apresentar o LISTA no programa principal, ela sempre apresenta que está vazia. Enquanto que pelo que vejo na minha procedure da unit, ela é salva lá dentro.

Caso seja necessário eu apresento o codigo inteiro, mas ele é um tanto grande.

Simon Viegas · 4 de maio de 2010

Estou com um problema num programa em que eu criei uma unit e um programa principal.

-----------------------------------------------------

unit lseq;

interface

procedure inserir (l: array of string; x: integer);

implementation

uses crt;

var

cont: integer;

procedure inserir (l: array of string; x: integer);

Begin

textcolor (0);

textbackground (15);

clrscr;

for cont:= 10 to 75 do

begin

gotoxy(cont,5);

textbackground(0);

write(' ');

end;

for cont:= 10 to 75 do

begin

gotoxy(cont,12);

textbackground(0);

write(' ');

end;

for cont:= 5 to 12 do

begin

gotoxy(10,cont);

textbackground(0);

write(' ');

end;

for cont:= 5 to 12 do

begin

gotoxy(75,cont);

textbackground(0);

write(' ');

end;

textbackground(15);

Gotoxy(16,7); writeln('Digite posicao que deseja inserir um dado (1 a 50)');

Gotoxy(16,8); readln(x);

while (x<1) or (x>50) do

begin

Gotoxy(1,8); clreol;

Gotoxy(10,8); textbackground(0); write(' ');

Gotoxy(75,8); textbackground(0); write(' ');

Gotoxy(16,8); textbackground(15); readln(x);

end;

Gotoxy(16,9); writeln('Informe o dado que deseja inserir');

Gotoxy(16,10); readln(l[x]);

end;

-----------------------------------------------------

Onde este procedimento serve para colocar uma informação dentro de uma lista.

E aqui um trecho do meu programa principal.

-----------------------------------------------------

Program list;

Uses Crt, Lseq;

Var

Lista: Array[1..50] of string;

Pos: Integer;

If ent='2' then

Inserir(lista,pos);

-----------------------------------------------------

Vale a pena ressaltar que eu declarei o uses lseq, a var lista é um vetor de string e o pos é uma variavel de integer, obedeceço aos parametros da minha unit. (l da unit = lista do programa principal) e (x da unit = pos do programa principal)

O unico problema é que quando eu peço para apresentar o LISTA no programa principal, ela sempre apresenta que está vazia. Enquanto que pelo que vejo na minha procedure da unit, ela é salva lá dentro.

Caso seja necessário eu apresento o codigo inteiro, mas ele é um tanto grande.