From f3f8cbd69e290ccbd60f9cbc0b1d9b63645127bb Mon Sep 17 00:00:00 2001 From: Matt Strapp Date: Sun, 28 Mar 2021 10:12:10 -0500 Subject: Add a basic VtoI function Also rearrange things and commit iconoclasm --- PCB/Libraries/LM741/UL_Form.pas | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 PCB/Libraries/LM741/UL_Form.pas (limited to 'PCB/Libraries/LM741/UL_Form.pas') diff --git a/PCB/Libraries/LM741/UL_Form.pas b/PCB/Libraries/LM741/UL_Form.pas new file mode 100644 index 0000000..a79f13c --- /dev/null +++ b/PCB/Libraries/LM741/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