Copy 有 ANSI 版本吗？

Question

Delphi XE下，Copy有ANSI版本吗？ 我经常使用 Copy 来复制 ANSI 字符串的片段。

Answer 1

Delphi 中的 Copy 函数是一个内在函数，这意味着它由编译器而不是运行时库。根据传递给此函数的参数，调用 LStrCopy 或 UStrCopy 内部函数

检查此示例：

{$APPTYPE CONSOLE}

uses
  SysUtils;
Var
   s : AnsiString;
   u : string;
begin
  try
   s:='this is a ansi string';
   s:= Copy(s,1,5);
   Writeln(s);
   u:='this is a unicode string';
   u:= Copy(u,1,5);
   Writeln(u);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

现在检查汇编代码

Project91.dpr.12: s:='this is a ansi string';
004111DC B8787E4100       mov eax,$00417e78
004111E1 BA04134100       mov edx,$00411304
004111E6 E8314FFFFF       call @LStrAsg
Project91.dpr.13: s:= Copy(s,1,5);
004111EB 68787E4100       push $00417e78
004111F0 B905000000       mov ecx,$00000005
004111F5 BA01000000       mov edx,$00000001
004111FA A1787E4100       mov eax,[$00417e78]
004111FF E8A050FFFF       call @LStrCopy //call the ansi version of copy
Project91.dpr.14: Writeln(s);
00411204 A1EC2C4100       mov eax,[$00412cec]
00411209 8B15787E4100     mov edx,[$00417e78]
0041120F E84033FFFF       call @Write0LString
00411214 E8DF33FFFF       call @WriteLn
00411219 E8D22AFFFF       call @_IOTest
Project91.dpr.15: u:='this is a unicode string';
0041121E B87C7E4100       mov eax,$00417e7c
00411223 BA28134100       mov edx,$00411328
00411228 E8534EFFFF       call @UStrAsg
Project91.dpr.16: u:= Copy(u,1,5);
0041122D 687C7E4100       push $00417e7c
00411232 B905000000       mov ecx,$00000005
00411237 BA01000000       mov edx,$00000001
0041123C A17C7E4100       mov eax,[$00417e7c]
00411241 E8C654FFFF       call @UStrCopy //call the unicode version of copy
Project91.dpr.17: Writeln(u);
00411246 A1EC2C4100       mov eax,[$00412cec]

Answer 2

Copy 是一个“编译器魔法”例程，它由编译器根据您传递给它的参数（ANSI 字符串、字符串或动态数组）进行本质上的处理。您可以只使用复制；它可以正确地处理 ANSI 字符串。

Answer 3

我有同样的问题，请参阅以下代码：

const
     TheStart=13;
     TheEnd=69;
type
    TMyFileField: Array[TheStart..TheEnd] of Char; // This is a simplification of a field type on a file
procedure WriteWideStringToArrayOfChars(TheLiteral:WideString);
var
   MyFileField:TMyFileField; // This is a simplification, it is really a Field inside a File
   MyIndex:Integer;
begin
     for MyIndex:=1 to Max(Length(TheLiteral),1+TheEnd-TheStart)
     do begin // Will copy as many charactes as possible from TheLiteral to MyFileField
             MyFileField[MyIndex]:=Copy(TheLiteral,MyIndex,1)[1]; // This gives Copile Error: Incompatible types 'Char' and 'WideChar'
        end;
end;

问题是 WideString 必须保存到文件内的 Char 数组中。因此必须进行混合类型...因此，将会出现一些松散的 Unicode 字符，这是无法避免的。

想要的：编译器可以编译它。

解决方案1：在调用 Copy 之前或在 Copy 内部将 WideString 转换为 String。
解决方案2：在分配之前将WideChar 转换为Char。

这里有两个解决方案（记住一些 unicode 字符可能会丢失）...

解决方案 1:

MyFileField[MyIndex]:=Copy(UTF8Encode(TheLiteral),MyIndex,1)[1]; // 注意：Unicode 字符不会丢失，而是会转换，因此请注意口音等...

或

MyFileField[MyIndex]:=Copy(String(TheLiteral),MyIndex,1)[ 1]; // 注意：Unicode 字符会丢失，它们将被转换为 '?'

解决方案 2:

MyFileField[MyIndex]:=Char(Copy(TheLiteral,MyIndex,1)[1]); // 注意：Unicode 字符会丢失，它们将被转换为 '?'

如果有人知道更好的事情，我会很高兴知道。

我个人使用 Copy(String(Literal),Start,NumberOfChars) ，因为普通的重音字母是保守的，更重要的是长度......

示例： Length(String('BlaBlaBlá')) -> 9
示例： Length(UTF8Encode('BlaBlaBlá')) ->自最后一个“á”以来超过 9 个被转换为多个字符等...

希望这可以帮助某人！

Answer 4

我做了我自己的职责。它可能很有用，并且可以在 Linux 平台上获得正确的结果，而不是 Copy(string(ansistr), i, l)：

function AnsiCopy(const s: ansistring; StartIndex, Lenght: integer): ansistring;
begin
 SetLength(Result, Lenght);
 Move(s[StartIndex], Result[1], Lenght);
end;