Скачать: CL | DM;

Перевод из String в дату   Найти похожие ветки 

← →
John Doe ©   (2005-10-30 12:33) [0]

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.

---

← →
Zacho ©   (2005-10-30 12:40) [1]

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:=""

---

← →
John Doe ©   (2005-10-30 13:20) [2]

Спасибо огромное.
Это у меня была механическая ошибка,так бы не нашел.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c