Initial changes for ft100

git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@981 7ae35d74-ebe9-4afe-98af-79ac388436b8
zisi · Mar 4, 2002 · b216747 · b216747
1 parent 491f9f6
commit b216747
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/kylix/HamlibComponents.pas b/kylix/HamlibComponents.pas
@@ -393,9 +393,15 @@ procedure TRigComponent.SetFreq(vfo: vfo_t; freq: freq_t);
 var
     retval: integer;
 begin
+    vfo:=1;
+    writeln('vfo=',vfo,' freq=',freq);
     retval := rig_set_freq(FRig, vfo, freq);
     if (retval <> RIG_OK)
-    then raise ERigException.Create('rig_set_freq: ' + StrPas(rigerror(retval)));
+    then
+    begin
+       writeln('Return=',retval);
+       raise ERigException.Create('rig_set_freq: ' + StrPas(rigerror(retval)));
+       end;
 end;
 
 procedure TRigComponent.SetTransceive(trn: integer);