最新的 Delphi 编译器版本和 String 类型兼容性

发布于 2024-11-02 07:33:01 字数 1107 浏览 1 评论 0原文

我正在尝试使一些字符串处理例程与最新的德尔福版本。我正在使用Delphi2005和2007，但我不完全确定兼容性。

这里有一些示例，它们是否与旧的和新的字符串类型兼容？（我将使用一个虚构的 STRING_UNICODE 指令）。

类型定义：
<前><代码>{$IFNDEF UNICODE_STRING} TextBuffer = Char 数组[0..13]； {$其他} TextBuffer = WideChar 数组[0..13]； {$ENDIF}
没用还是没用？ Char 类型（变成了原来的样子）是 Unicode String 之前的 WideChar，还是仍然有区别？

一个函数：

函数RemoveBlanks(Text: String): String;  
瓦尔   
  我：整数；  
开始  
  结果：= ''；  
  对于 i:= 0 到长度(文本) 执行  
  开始  
    {$IFNDEF UNICODE_STRING}   
    如果字节（文本[i]）< 21 然后继续；   
    {$其他}  
    如果 Word(Text[i]) < 21 然后继续；  
    {$ENDIF}  
    如果 Text[i] = ' ' 则继续；    
    结果 := 结果 + 文本[i];  
  结尾;

Word() 转换正常吗？

这里还存在' '问题。空间如何处理 Unicode 版本？我还应该使用该指令吗区分 ' ' 和 ' ' 还是自动处理 ' ' 作为 2 字节空白？

换行：
```
NewLineBegin := CanReadText( aPTextBuffer, #13#10 );
```
第二个参数 (#13#10) 在 Unicode 版本中如何解释？兼容吗？它会被翻译成字节块00130010吗？如果不是，那么该指令是否应该与常量 #0013#0010 一起使用？

原文

I'm trying to make some String processing routines compatible with
newest delphi version. I'm using Delphi2005 and 2007 but I'm not totally sure of the compatibility.

Here are a few samples, are they compatible with both the old and the new string type ?
( I'll use an imaginary STRING_UNICODE directive ).

a Type definition:
```
{$IFNDEF UNICODE_STRING}  
TextBuffer = Array[0..13] Of Char;   
{$ELSE}  
TextBuffer = Array[0..13] Of WideChar;  
{$ENDIF}
```
Useless or not? Is the Char type (becomes what was) a WideChar before the Unicode String, or is there still a difference?

a Function:

Function RemoveBlanks(Text: String): String;  
Var   
  i: integer;  
Begin  
  result := '';  
  For i:= 0 To Length(Text) Do  
  Begin  
    {$IFNDEF UNICODE_STRING}   
    If Byte(Text[i]) < 21 Then Continue;   
    {$ELSE}  
    If Word(Text[i]) < 21 Then Continue;  
    {$ENDIF}  
    If Text[i] = ' ' Then Continue;    
    Result := Result + Text[i];  
  End;

Is the Word() casting OK?

Here there is also the ' ' problem. How is the space handled
in Unicode version? Should I also use the directive to
differentiate ' ' and ' ' or will the ' ' be automatically handled
as a 2-byte blank?

a line jump:
```
NewLineBegin := CanReadText( aPTextBuffer, #13#10 );
```
How is the the second argument (#13#10) interpreted in the Unicode version? Is it compatible? Will it be translated to the byte block 00130010? If not, then should the directive be used instead with the constant #0013#0010?