EE3102/Libraries/PIC24/UL_Form.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
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;