Skip to content

Commit f8618cd

Browse files
committed
Adds missing compiler directives
1 parent b9de2e3 commit f8618cd

File tree

1 file changed

+4
-0
lines changed

1 file changed

+4
-0
lines changed

src/RestClient.pas

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -926,19 +926,23 @@ procedure TResource.SetContent(entity: TObject);
926926
var
927927
vRawContent: string;
928928
vStream: TStringStream;
929+
{$IFDEF SUPPORTS_GENERICS}
929930
vMultipartFormData: TMultipartFormData;
931+
{$ENDIF}
930932
begin
931933
FContent.Clear;
932934
if not Assigned(entity) then
933935
Exit;
934936

937+
{$IFDEF SUPPORTS_GENERICS}
935938
if entity is TMultipartFormData then
936939
begin
937940
vMultipartFormData := TMultipartFormData(entity);
938941
vRawContent := vMultipartFormData.ContentAsString;
939942
ContentType(vMultipartFormData.ContentType);
940943
end
941944
else
945+
{$ENDIF}
942946
vRawContent := TJsonUtil.Marshal(Entity);
943947

944948
vStream := TStringStream.Create(vRawContent);

0 commit comments

Comments
 (0)