From 62f4a5bc497a05431df9b324c3d5f4a1656a4ea4 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Fri, 12 Mar 2010 20:54:19 +0000 Subject: fix bug report ID: 2969613. Thanks to Mike greywind git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2191 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/base/URecord.pas | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'src/base/URecord.pas') diff --git a/src/base/URecord.pas b/src/base/URecord.pas index 2c2093a0..a3f665e5 100644 --- a/src/base/URecord.pas +++ b/src/base/URecord.pas @@ -753,11 +753,12 @@ var // search devices with same description for i := 0 to deviceIndex-1 do begin - if (AudioInputProcessor.DeviceList[i].Name = name) then - begin - Result := true; - Break; - end; + if (AudioInputProcessor.DeviceList[i] <> nil) then + if (AudioInputProcessor.DeviceList[i].Name = name) then + begin + Result := true; + Break; + end; end; end; -- cgit v1.2.3