delphi6 字符串大写字母变小写，小写字母变大写

在 Delphi 6 中，可以使用 `AnsiUpperCase` 和 `AnsiLowerCase` 函数来实现字符串中大写字母变小写，小写字母变大写。

以下是一个示例代码：

var
  s: string = 'Delphi6 is Awesome!';

begin
  for var i := 1 to Length(s) do
  begin
    if s[i] in ['a'..'z'] then // 如果是小写字母
      s[i] := AnsiUpperCase(s[i])[1] // 将小写字母转换为大写字母
    else if s[i] in ['A'..'Z'] then // 如果是大写字母
      s[i] := AnsiLowerCase(s[i])[1]; // 将大写字母转换为小写字母
  end;
  
  ShowMessage(s); // 输出 "dELPHI6 IS aWESOME!"
end.

在上面的代码中，我们先定义了一个字符串 `s`，然后使用 `for` 循环遍历字符串中的每一个字符。如果当前字符是小写字母，就使用 `AnsiUpperCase` 函数将其转换为大写字母；如果当前字符是大写字母，就使用 `AnsiLowerCase` 函数将其转换为小写字母。注意，这里需要取函数返回值的第一个字符，因为函数返回的是一个字符串。

最后，我们使用 `ShowMessage` 函数输出转换后的字符串。这样就实现了字符串中大写字母变小写，小写字母变大写。