Skip to content

Commit

Permalink
compile fixes
Browse files Browse the repository at this point in the history
  • Loading branch information
Grahame Grieve committed Jan 30, 2024
1 parent c774c4f commit e526979
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
4 changes: 2 additions & 2 deletions server/console_form.pas
Original file line number Diff line number Diff line change
Expand Up @@ -1817,12 +1817,12 @@ procedure TMainConsoleForm.btnCombineGoClick(Sender: TObject);
combiner := TSnomedCombiner.Create;
try
combiner.international := TSnomedServices.Create;
combiner.international.Load(edtInternational.Text, true);
combiner.international.Load(edtInternational.Text);
for i := 0 to lbEditions.Items.Count - 1 do
begin
svc := TSnomedServices.Create;
combiner.others.Add(svc);
svc.load(lbEditions.Items[i], true);
svc.load(lbEditions.Items[i]);
end;
combiner.callback := cmbCallBack;
combiner.destination := edtCombinedDestination.text;
Expand Down
2 changes: 1 addition & 1 deletion server/fhirconsole.lpi
Original file line number Diff line number Diff line change
Expand Up @@ -18,8 +18,8 @@
</General>
<VersionInfo>
<MajorVersionNr Value="3"/>
<RevisionNr Value="5"/>
<MinorVersionNr Value="1"/>
<RevisionNr Value="5"/>
</VersionInfo>
<BuildModes Count="8">
<Item1 Name="default" Default="True"/>
Expand Down

0 comments on commit e526979

Please sign in to comment.