15 lines
258 B
Plaintext
15 lines
258 B
Plaintext
|
|
||
|
|
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;
|
||
|
|
|