使用以下代码，我想将 Data.Text 值序列化为 ByteString。不幸的是，我的文本前面添加了不必要的 NUL 字节和 EOT 字节：

GHCi, version 9.4.4: https://www.haskell.org/ghc/  :? for help
ghci> import qualified Data.Text as T
ghci> import Data.Binary
ghci> import Data.Binary.Put
ghci> let txt = T.pack "Text"
ghci> runPut $ put txt
"\NUL\NUL\NUL\NUL\NUL\NUL\NUL\EOTText"
ghci>

问题：

• 为什么会生成这些 NUL 和 EOT 字节？
• 如何在生成的 ByteString 中避免它们？

PS：我真正的代码我把长度放在文本前面

    foo :: Text -> ByteString
    foo txt = runPut do
        putWord32host $ T.length txt
        put txt

我正在开发在 64 位 Windows 11 上运行的 Delphi 12 应用程序。我的应用程序需要从注册表中读取路径（用户路径和系统路径），并且我的应用程序可以读取用户路径，但不能读取系统路径。

我使用“工具”->“选项”->“清单”要求管理员权限才能执行该程序，当我运行该应用程序时，它会提示我授权管理员模式，所以我知道它的一部分正在工作。

我已经在互联网上搜索了好几天寻找解决方案，并且尝试了我能找到的所有选项（Embarcadero 的网站本周关闭，这使得所有这一切变得更加困难，因为我在那里找到了许多文章参考文档）并且每次，代码成功打开指定的键 ( SYSTEM\CurrentControlSet\Control\Session Manager\Environment)，但无法读取其中的任何属性（如path属性）。

我什至尝试TStringList使用该键下的所有属性填充 a

我创建了一个示例应用程序来演示这一点，您可以在https://github.com/johnwargo/Path-Test-2024找到它。

procedure PopulateList(pathList: TListBox; source: String; rootKey: HKEY;
  regKey, regProperty: String);
var
  Reg: TRegistry;
  pathArray: Tarray<String>;
  msg, pathStr: String;

begin
  LogMessage(Format('Reading "%s" Path from "%s"', [source, regKey]));
  // Reg := TRegistry.Create(KEY_ALL_ACCESS);
  // Reg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY);
  // Reg := TRegistry.Create(KEY_EXECUTE);
  // Reg := TRegistry.Create(KEY_EXECUTE OR KEY_WOW64_64KEY);
  // Reg := TRegistry.Create(KEY_READ OR KEY_WOW64_32KEY);
  Reg := TRegistry.Create(KEY_READ …

这会打印 cout，这意味着 的类型T是int&：

#include <vector>
#include <sys/types.h>
using namespace std;
using var_t = std::variant<int, long, double, std::string>;

int main(int argc, char* argv[]) {
    std::vector<var_t> vec = {10};
    for(auto v : vec) {
        std::visit([](auto&& arg) {
            using T = decltype(arg);
            // if (std::is_same_v<std::remove_reference<T>, int>) {
            if (std::is_same_v<T, int&>) {
                cout<<"int "<<arg<<endl;
            }
        }, v);
    }
    return 0;
}

现在，如果我申请std::remove_reference，它不会打印。

事实上，无论我使用int、int&或int&&，cout 都不会被打印。

#include <vector>
#include <sys/types.h>
using namespace std;
using …

我正在尝试在 Windows 上的 NASM 中编写一个简单的汇编程序，其中包含一个循环并从 Windows API 调用 ExitProcess 函数。我已经使用 NASM 成功组装了代码，但是当我尝试将其与 MinGW 上的 GCC 链接时，我遇到了 ExitProcess@4 的“未定义引用”错误。

这是我的汇编代码（file.asm）：

section .data
    i dd 0

section .text
    global _start

    extern ExitProcess@4   ; Import ExitProcess function from kernel32.dll

_start:
    mov ecx, 1000000       ; set loop counter

    ; loop start
loop_start:
    mov eax, [i]           ; load i into eax
    ; your code inside the loop (e.g., b = i) goes here

    add eax, 1             ; increment eax
    mov [i], eax           ; store the …

我正在尝试迭代表，但使用键从表中的位置开始。

list = {
  "one",
  "two",
  "four",
  "five",
  "six"
}

for k = 3, v in pairs(list) do
  print("Key:" .. k .. " " .. "Value:" .. v)
end

Compilation error on line 10: ...\ZeroBraneStudio\myprograms\untitled.lua:10: 'do' expected near 'in'

main :: IO (IO ())
main = (pure (print)) <*> (pure "Hello World!") *>
       (pure (print)) <*> (pure "I am Haskell.") *>
       (pure (print)) <*> (pure "Let's start our journey.")

我写了一个Haskell程序，如上所述。我编译并运行它。但该程序没有输出。为什么？。

我不知道如何解决这个问题。