Pegar número inteiro entre números

Delphi

21/01/2008

Olá pessoal,

O Delphi tem alguma função para pegar os números inteiros entre 2 números?
Por exemplo. O usuário digita 1 e 5 então retorna 2,3,4

Alguém já tem um código pronto pra isso se não tiver função?

Obrigado


Yallebr

Yallebr

Curtidas 0

Respostas

Adriano Santos

Adriano Santos

21/01/2008

Use as funções Ramdom e Ramdomize;
Exemplo bem básico:

procedure TForm1...
var
  Numero: Integer;
begin
  Randomize;
  repeat
    Numero := Random(5);
  until (Numero > 1) and (Numero < 5)
end;



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

21/01/2008

Colega,

function TForm1.FaixaInteiros(Inicio, Fim: Integer): TStrings;
var I: Integer;
begin
  Result  := TStringList.Create;
  for I := Inicio+1 to Fim-1 do
    Result.Add(IntToStr(I))
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage(FaixaInteiros(1,10).Text);
end;



GOSTEI 0
POSTAR