在Ada语言中，可以使用指针和动态分配的内存来存储由函数返回的字符串值。以下是一个示例：

with Ada.Text_IO; use Ada.Text_IO;

function Get_Str return access String is
   Str : constant String := "Hello, World!";
begin
   return new String'(Str);
end Get_Str;

procedure Print_Str is
   Str_Ptr : access String := Get_Str;
begin
   Put_Line(Str_Ptr.all);
   deallocate(Str_Ptr);
end Print_Str;

begin
   Print_Str;
end;

在上面的示例中，Get_Str 函数返回一个 String 类型的指针，指向一个动态分配的字符串。在 Print_Str 过程中，我们通过 Get_Str 获取字符串的指针，并使用 Put_Line 将其打印出来。然后，我们使用 deallocate 函数释放内存，以避免内存泄漏。

请注意，为了安全起见，我们使用 access 类型来声明指针，并在返回指针之前使用 new 运算符动态分配内存。最后，在使用完字符串后，我们使用 deallocate 函数释放内存。

这只是一个简单的示例，你可以根据自己的需求扩展和修改它。