aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/base/URecord.pas11
1 files changed, 6 insertions, 5 deletions
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;