Código Delphi
[-]
Var
SL: TStringList; I, IAzar, IDigits: Integer; S : String;
Arr : Array[0..23] of Integer; begin
IDigits := 24; Memo1.Clear ; TRY
SL:= TStringList.Create;
while SL.Count <= IDigits - 1 do
begin
IAzar:= Random( IDigits) + 1 ;
if SL.IndexOf( (IntToStr(IAzar))) = - 1 then
begin
SL.Add( IntToStr(IAzar ) ) ; Memo1.Lines.Add(IntToStr(IAzar ) ) ;
end;
end;
for I := 0 to Length(Arr) -1 do
begin
Arr[i] := StrToInt(Memo1.Lines[i]) ; end;
ShowMessage('Extremos del Array : ' + IntToStr(Arr[Low(Arr)] ) +' ' + IntToStr( Arr[High(Arr)] ) );
for I := 0 to Length(Arr) -1 do
begin
S := S +' '+ IntToStr( Arr[i] ) ;
end;
Edit1.Text := S; FINALLY
SL.Free;
END;
procedure TForm1.Button1Click(Sender: TObject);
Cuando alguien encuentre un camino más fácil se agradecerá saberlo. El mió es más bien alambicado. Saludos