Anfidya'nın arka bahçesi..

There is dark web in the deep web..

Archive for the ‘delphi string’ tag

[Delphi] Rastgele Metin Dizisi

2 comments

Merhaba,

Öncelikle herkese iyi bayramlar (:

Aşağıdaki kod örneklerimizle Delphi’de metin dizisi oluşturmayı göreceğiz.

 

function RastgeleMetinDizisi:string;
const
  Chars = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890';
var
  S: string;
  i, N: integer;
begin
  Randomize;
  S := '';
  for i := 1 to 5 do begin
    N := Random(Length(Chars)) + 1;
    S := S + Chars[N];
  end;
  result := S;
end;

Written by anfidya

Ekim 4th, 2014 at 4:07 am