Random String

Random adalah data acak yang biasanya berupa bilangan, dan bagaimana

cara untuk membuat string acak dengan Delphi (untuk digunakan sebagai kode validasi).

hal itu terjadi di huruf dan nomor seperti:
46T27G!

Berikut adalah beberapa kode Delphi yang menghasilkan string acak dengan panjang 6 karakter

 procedure TForm1.Button1Click(Sender: TObject);
const
  Chars = '23456789ABCDEFGHJKLMNPQRSTUVWXYZ!?/*+-';
var
  S: string;
  i, N: integer;
begin
  Randomize;
  S := '';
  for i := 1 to 6 do begin   {... menampilkan 6 digit character...}
    N := Random(Length(Chars)) + 1;
    S := S + Chars[N];
  end;
  Label1.Caption := S;
end;

Hasil runing program :