From 464993cca3931161a623e6579f2bc08b3de9f8eb Mon Sep 17 00:00:00 2001 From: Matt Strapp Date: Tue, 2 Mar 2021 15:35:34 -0600 Subject: Add libraries --- EE3102/Libraries/USBRegulator/UL_Form.pas | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 EE3102/Libraries/USBRegulator/UL_Form.pas (limited to 'EE3102/Libraries/USBRegulator/UL_Form.pas') diff --git a/EE3102/Libraries/USBRegulator/UL_Form.pas b/EE3102/Libraries/USBRegulator/UL_Form.pas new file mode 100644 index 0000000..a79f13c --- /dev/null +++ b/EE3102/Libraries/USBRegulator/UL_Form.pas @@ -0,0 +1,14 @@ + +procedure TUL_Form.BtnFileClick(Sender: TObject); +begin + If OpenDlg.Execute Then Begin + TxtFile.Text := OpenDlg.FileName; + End; +end; + +procedure TUL_Form.BtnImportClick(Sender: TObject); +begin + ImportAscIIData(TxtFile.Text); + Close; +end; + -- cgit v1.2.3