<< Click to Display Table of Contents >> Navigation:  »No topics above this level« Delphi Examples: DbiGetDateFormat

Retrieve the date separator from the current session

The date separator is displayed it in a dialog box.

 

procedure TForm1.Button3Click(Sender: TObject);

var

 fmt: fmtdate;

 s: String;

begin

 Check(dbiGetDateFormat(fmt));

 s:=fmt.szDateSeparator;

 ShowMessage('Date is seperated by a ' + s + ' Character');

end;