Forum: Object-Pascal / Delphi-Language
Delphi
by Mirilin,
18. Feb 2003
Vieleicht indem Du ein Array mit ca hundert solchen Namen erstellst, und dann von diesem einen ausliest...
oder wie stellst Du dir vor sonst richtige Namen zu erzeugen???
Forum: Object-Pascal / Delphi-Language
Delphi
by Mirilin,
18. Feb 2003
Ist mir schon klar, aber da ich nur die Funktion gepostet habe, ist es, meiner Meinung nach, besser dieses dort hineinzuschreiben, damit es nicht vergessen geht.
Verstanden! :evil:
Achnein, nicht böse gemeint, aber Du verstehst schon was ich meine, oder? :D
Forum: Object-Pascal / Delphi-Language
Delphi
by Mirilin,
18. Feb 2003
function RandName2:String;
var
S1 : array of String;
S2 : array of String;
S3 : array of String;
begin
S1 := 'gen';S1 := 'sen';S1 := 'fen';S1 := 'ten';S1 := 'pen';
S2 := 'gan';S2 := 'san';S2 := 'fan';S2 := 'tan';S2 := 'pan';
S3 := 'gon';S3 := 'son';S3 := 'fon';S3 := 'ton';S3 := 'pon';
randomize();
Forum: Object-Pascal / Delphi-Language
Delphi
by Mirilin,
18. Feb 2003
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := RandName(8);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Mirilin,
18. Feb 2003
meinst Du sowas?
function RandName(Length : Integer):String;
var
i : Byte;
begin
randomize();
result := '';
SetLength(Result,Length);
for i := 0 to Length do