[Delphi] Generator

[kucharpl]

Witam,

 

zaczynam przygodę z Delphi i chcę napisać generator kodów np. 1111-2222-3333-4444. Oczywiście losowo. Jak sie do tego zabrać.

[Krycho]

Poznac typy, funkcje, petle, przemyslec caly algorytm, rozlozyc na kroki, zaimplementowac.

[mirraseq]

W module Sysutils masz funkcję random i randomize

function random(zakres: integer): integer;

procedure randomize;

oraz IntToStr

function inttostr(liczba: integer): string;

 

Randomize ustawia ziarno liczb pseudolosowych na obecny czas (w ms), funkcja random losuje z podanego zakresu (liczby maksymalnej, wliczając w to zero). IntToStr natomiast zamienia zmienną w string.

 

Zatem kolejno:

- randomize

- 4 razy random (o ile to ma być 1111-2222-3333-4444, jeśli więcej to więcej liczb)

- wrzucasz wszystko do stringa i wyświetlasz