| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перевод из String в дату [D7, XP]
John Doe © (2005-10-30 12:33:00)procedure TfrmAddRecord.btnSaveClick(Sender: TObject);
var
Aux: TEvent;
ArraySize: Word;
begin
edtName.Text:='';
edtDate.Text:='';
ArraySize:=Length(Events)+1;
SetLength(Events,ArraySize+1);
Aux.Name:=edtName.Text;
Aux.Date:=StrToDate(edtDate.Text);//Эта строчка вызывает ошибку. - EConvertError "" is not a valid Date
Events[ArraySize+1]:=Aux;
end;
Ввожу в edtDate дату в формате DD/MM/YYYY.
В соответствии с ShortDate,который я посмотрел у себя в Regional Settings.
John Doe (2005-10-30 13:20:00) [1]Спасибо огромное.
Это у меня была механическая ошибка,так бы не нашел.
Zacho (2005-10-30 12:40:00) [2]John Doe © (30.10.05 12:33)
edtName.Text:='';
edtDate.Text:='';
[SKIP]
Aux.Date:=StrToDate(edtDate.Text);//Эта строчка вызывает ошибку. - EConvertError "" is not a valid
Естественно, попытка преобразования пустой строки в дату вызывает ошибку. Убери отмеченную строку. Да и конструкция
edtName.Text:='';
...
Aux.Name:=edtName.Text;
довольно бессмысленна. Тогда уж можно сразу Aux.Name:=''
| |
