|
Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
Delphi 6 Professional
|
18. Feb 2003, 18:39
meinst Du sowas?
Delphi-Quellcode:
function RandName(Length : Integer):String;
var
i : Byte;
begin
randomize();
result := '';
SetLength(Result,Length);
for i := 0 to Length do
begin
Result[i] := Char(Random(25)+65);
end;
end;
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
|