insertar datos sin repeticion

[baby]

gracias caral por tu aclaracion
esta es la codificacion k tengo hecha
var
Form1: TForm1;
x:string;
a:array[0..4] of integer;
i,cont:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
b,j,f1:integer;
begin
b:=StrToInt(Edit1.Text);
f1:=0;
if cont<5 then
begin
for j:=0 to 4 do
begin
if a[j]=b then
f1:=1;
end;
if f1=0 then
begin
a[i]:=b;
inc(cont);
inc(i);
x:=x + IntToStr(b)+' ';
end;
end;
if cont=5 then
Label1.Caption:=x;
Edit1.Text:='';
Edit1.SetFocus;

end;
haber si me aclaro voy insertando numeros hasta llegar el max tamano del array y luego en una etiqueta se muestra los datos de este ultimo sin que aparezcan datos repetidos (desgraciadamente no me lo hace )
gracias

[[egostar]]

Pues ya he probado tu código, meto los siguientes números

1, 2, 2, 3, 4, 4, 5

y me muestra el label

1 2 3 4 5

A mi me parece que está funcionando bien.

Salud OS.

[[egostar]]

Solo quiero comentarte que encierres tu código con etiquetas para que se pueda leer correctamente, te invito a que leas nuestra guia de estilo y la otra guia de estilos.

Aquí pego como se vería si las usaras.

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
var
  b,j,f1:integer;
begin
  b:=StrToInt(Edit1.Text);
  f1:=0;
  if cont<5 then begin
     for j:=0 to 4 do begin
         if a[j]=b then f1:=1;
     end;
     if f1=0 then begin
        a[i]:=b;
        inc(cont);
        inc(i);
        x:=x + IntToStr(b)+' ';
     end;
  end;
  if cont=5 then
     Label1.Caption:=x;
  Edit1.Text:='';
  Edit1.SetFocus;
end;

Salud OS.

[baby]

gracias egostar
por tu respuesta pero no te ocurre otra solucion para eso a lo mejor es fallo del compilador no se porque io











recordar nuestros origines nos ayuda a no olvidar quien somos