mirror
/
Hamlib
kopia lustrzana https://github.com/Hamlib/Hamlib
1
0
Forkuj 0
Kod Zgłoszenia Projekty Wydania Wiki Aktywność

Initial changes for ft100 

git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@981 7ae35d74-ebe9-4afe-98af-79ac388436b8
Hamlib-1.1.3
Alex V Flinsch, KC2IVL 2002-03-04 12:57:49 +00:00
rodzic 491f9f67f6
commit b216747445
1 zmienionych plików z 7 dodań i 1 usunięć
Pokaż statystyki Ściągnij plik aktualizacji Ściągnij plik porównania Expand all files Collapse all files

8
kylix/HamlibComponents.pas
Wyświetl plik

@ -393,9 +393,15 @@ procedure TRigComponent.SetFreq(vfo: vfo_t; freq: freq_t);
var var
retval: integer; retval: integer;
begin begin
vfo:=1;
writeln('vfo=',vfo,' freq=',freq);
retval := rig_set_freq(FRig, vfo, freq); retval := rig_set_freq(FRig, vfo, freq);
if (retval <> RIG_OK) 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; end;
procedure TRigComponent.SetTransceive(trn: integer); procedure TRigComponent.SetTransceive(trn: integer);