Randomize и маски, ...сгенерировать записи... Опции

[Jill]

Подскажите, плз, как случайным образом сформировать запись с учетом ограничений (например, номер телефона, дату и т.д.)

Вот, собственно, и сабж

[мисс_граффити]

var S:string;
.....
S:='8'+random(900)+'-'+random(90); //получим что-то вроде 8-375-12
Edit1.Text:=S;

[Malice]

S:='8'+random(900)+'-'+random(90); //получим что-то вроде 8-375-12

Неочень хорошо, т.к. random(900) может быть <3 знаков, так может и 8-1-0 получится.