[Pumasin]

На первой форме есть edit в нем записана дата например 06.08.1985
Помогите как сделать чтобы с первой формы на вторую где созданы уже 3 edit'a, в первый вводились только день 06, во второй месяц 08 и в третий кидался год 1985. Месяц только нужно уже чтобы писало буквами.

[friz]

Код:

const Month: Array [1..12] of String = ('Январь', 'Февраль', 'Март', 'Апрель',
                                'Май', 'Июнь', 'Июль', 'Август',
                                'Сентябрь', 'Октябрь', 'Ноябрь', 'Декабрь');
var n: Integer;
.......................

form2.edit1.text := copy(form1.edit1.text,1,2);
n := StrToInt(copy(form1.edit1.text,4,2));
form2.edit2.text := Month[n];
form2.edit3.text := copy(form1.edit1.text,7,4);

[Pumasin]

Все работает прекрасно, спасибо огромное что помогаете чайникам!)