Перевод из 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:=""

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

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