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` 函数输出转换后的字符串。这样就实现了字符串中大写字母变小写，小写字母变大写。

相关问题

delphi7 小写字母转大写英文字母

在 Delphi7 中将小写字母转换为大写英文字母，可以使用系统自带的函数 UpCase。UpCase 函数将传入的字符转换为大写字母，如果传入的是小写字母，则转换为对应的大写字母。例如，下面的代码可以将小写字母 a 转换为大写字母 A：

var
  c: Char;
begin
  c := UpCase('a');
  ShowMessage(c);
end;

需要注意的是，UpCase 函数只能转换单个字符，如果需要转换字符串中所有的小写字母，可以使用循环遍历字符串的方法。

delphi6 字符串大小写互换

在 Delphi 6 中，可以使用内置函数 `UpperCase` 和 `LowerCase` 来实现字符串大小写互换。这两个函数都是 Delphi 的内置函数，无需导入其他模块。

以下是一个示例代码：

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

begin
  s := LowerCase(s); // 将字符串转换为小写
  ShowMessage(s); // 输出 "delphi6 is awesome!"
  
  s := UpperCase(s); // 将字符串转换为大写
  ShowMessage(s); // 输出 "DELPHI6 IS AWESOME!"
end.

在上面的代码中，我们先定义了一个字符串 `s`，然后使用 `LowerCase` 函数将字符串转换为小写形式，并将结果保存回原来的字符串变量中。接着使用 `ShowMessage` 函数输出转换后的字符串。

接下来，我们再使用 `UpperCase` 函数将字符串转换为大写形式，并再次使用 `ShowMessage` 函数输出转换后的字符串。这样就实现了字符串的大小写互换。