14 lines
258 B
ObjectPascal
14 lines
258 B
ObjectPascal
|
|
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;
|
|
|