|
ｿｽ@ｿｽｿｽRandomｿｽﾖ撰ｿｽｿｽﾌバｿｽOｿｽH
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
Mark.X 2005/08/18(ｿｽｿｽ) 00:12:21
ｿｽﾈ会ｿｽｿｽﾌ様ｿｽﾈ、ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽEdit1ｿｽﾉｿｽｿｽｿｽｿｽ_ｿｽｿｽｿｽﾉ包ｿｽｿｽｿｽｿｽｿｽｿｽWｿｽJｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽeｿｽﾍ、0-9ｿｽAa-zｿｽAA-Zｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽA5ｿｽ`10ｿｽｿｽｿｽｿｽｿｽﾌｿｽｿｽｿｽｿｽ_ｿｽｿｽｿｽﾈ包ｿｽｿｽｿｽｿｽｿｽ生撰ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽxｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽ2ｿｽｿｽｿｽｿｽｿｽｿｽ0ｿｽｿｽｿｽｿｽｿｽA11ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽ痰ｪｿｽ成ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾆ、ｿｽﾎ擾ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
function RandomStr(key: String): String;
var
i: Integer;
begin
Randomize;
for i := 0 to Random(6)+5 do Result := Result+key[Random(Length(key))];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=RandomStr('0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ');
end;
Mark.X 2005/08/18(ｿｽｿｽ) 02:20:19
ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽ_ｿｽuｿｽｿｽﾅゑｿｽ
