Delphi - generace čísel - PASCAL

[Hary.p2]

potreboval bych vedet jak naprogramovat generator cisel (IP adres)

diky

[markjag]

AK je to este aktualne tak nasledovne.

Kód: Vybrat vše

var i: integer;
    s: string;
begin
  Randozmize;
  s := '';
  for i := 1 to 4 do
  begin
    s := s + IntToStr(Random(256));
    if i < 4 then s := s + '.';
  end;
end;

To co ti ostane v premennej s je IP adresa v stringovom tvare. Neosetroval som aby nemohla byt 255.255.255.255 ani 0.0.0.0, ale to zvladnes, keby nieco, daj vediet.