Отобразить дату/ время

[xxbesoxx]

но и бывает по необходимости

"необходимости" это когда-в каком случаи ?

[cw82]

я не просто так описал ситуацию в первом посте. Я эти данные(дату\время) беру в виде текста из текстового файла. Вот и предположил- зачем преобразовывать текст в дату, ведь действий никаких производить с ним не планирую, только для информации, поэтому предположил что можно как то это сделать в ДБГрид. В любом случае спасибо, попробую завира сделать то что вы описали.

[Аватар]

Это сейчас не планируется, а завтра может запланируется. Так что лучше сразу в формате дата-время в таблицу записать

[cw82]

Уважаемый Аватар. Опять прошу Вашей помощи. Воспользовался Вашей помощью, прописал процедуру MyGetText. Вылетает ошибка

Если я в ручную заполню свою базу Access, тогда все красиво... Не знаю что делать.

[cw82]

Так же сделал как советовал xxbesoxx. Поле Date1 в базе сделал датавремя, когда циклом заполняю БД вылетает ошибка "20160901000007" is not a valid date and time.
Заполняю БД таким циклом

var
 s: String;
 cr: TextFile;
begin
 AssignFile(cr,'11.cr') ;// полный путь к файлу из папки с приложением
   reset(cr);
try
while not eof(cr) do
begin
   readln(cr, s);

        ADOQuery1.Active:= True;
        ADOQuery1.DisableControls;
        ADOQuery1.Insert;
        ADOQuery1.Fields[1].AsString:=Copy(s,6,2);
        ADOQuery1.Fields[2].AsString:=Copy(s,24,15);
        ADOQuery1.Fields[3].AsString:=Copy(s,39,1);
        ADOQuery1.Fields[4].AsString:=Copy(s,40,15);
        
    ADOQuery1.Post;
    ADOQuery1.EnableControls;
     end;
   finally;
      end;

Догадываюсь, что проблема вот здесь ADOQuery1.Fields[4].AsString:=Copy(s,40,15);
Fields[4] - это столбец с датавремя , но что делать дальше не знаю.
Делал ADOQuery1.Fields[4].AsDateTime:=Copy(s,40,15); но тоже не помогает, думаю потому что
var
s: String;
. Конечно хочется чтобы столбец Дата был Дататайм.. ибо как вы сказали это правильно.

[Аватар]

На твоей картинке секунды то ли 02, то ли 82. Конечно 82 даст ошибку. И стартуй прогу с exe, а не из под делфи. Из-под делфи даже экранированные ошибки будет среда выдавать, а если ошибка еще в OnGetText, то вообще в цикл впадет. Ну и то, что строку напрямую в datetime пытаешься засунуть бред конечно. Или StrToDateTime или EncodeDateTime. И обязательно с try ... except

[cw82]

Спасибо, что не бросаете... Решил по своему, если кому то будет интересно или нужно то вот-

ADODataSet1.Fields[4].AsString:=Copy(s,40,5)+'.'+Copy(s,45,2)+'.'+Copy(s,47,2)+' '+Copy(s,49,2)+':'+Copy(s,51,2)+':'+Copy(s,53,2);

Т.Е. копирую нужные символы и вставляю разделители.

[come-on]

если кому то будет интересно или нужно то вот

не, такое никому не нужно

[cw82]

Ну Вам видимо виднее.