Каков лучший способ проверить пустую строку в Delphi?

общее условие, которое должны делать все программы, - это проверить, пуста ли строка или нет.

возьмите следующие утверждения:

(1)

if Length(Str)=0 then
  // do something

(2)

if Str='' then
  // do something
17
delphi object-pascal

3 ответов

в XE2 в, if str = '' компилируется в лучше более быстрый код для строк Ansi и Unicode. if Length(str) = 0 компилируется в лучше более быстрый код для широких строк.

тестовая программа:

{$A8,B-,C+,D+,E-,F-,G+,H+,I+,J-,K-,L+,M-,N-,O+,P+,Q-,R-,S-,T-,U-,V+,W-,X+,Y+,Z1}
program Project172;

{$APPTYPE CONSOLE}

{$R *.res}

var
  sa1,sa2: AnsiString;
  sw1,sw2: WideString;
  su1,su2: UnicodeString;

begin
  if Length(sa1) = 0 then
    ;
  if sa2 = '' then
    ;
  if Length(sw1) = 0 then
    ;
  if sw2 = '' then
    ;
  if Length(su1) = 0 then
    ;
  if su2 = '' then
    ;
end.

скомпилированный код:

Project172.dpr.14: if Length(sa1) = 0 then
004050E2 A19C9B4000       mov eax,[409b9c]
004050E7 85C0             test eax,eax
004050E9 7405             jz 4050f0
004050EB 83E804           sub eax,
004050EE 8B00             mov eax,[eax]
004050F0 85C0             test eax,eax

Project172.dpr.16: if sa2 = '' then
004050F2 833DA09B400000   cmp dword ptr [409ba0],

Project172.dpr.18: if Length(sw1) = 0 then
004050F9 A1A49B4000       mov eax,[409ba4]
004050FE 85C0             test eax,eax
00405100 7407             jz 405109
00405102 83E804           sub eax,
00405105 8B00             mov eax,[eax]
00405107 D1E8             shr eax,1
00405109 85C0             test eax,eax

Project172.dpr.20: if sw2 = '' then
0040510B A1A89B4000       mov eax,[409ba8]
00405110 33D2             xor edx,edx
00405112 E839E8FFFF       call @WStrEqual

Project172.dpr.22: if Length(su1) = 0 then
00405117 A1AC9B4000       mov eax,[409bac]
0040511C 85C0             test eax,eax
0040511E 7405             jz 405125
00405120 83E804           sub eax,
00405123 8B00             mov eax,[eax]
00405125 85C0             test eax,eax

Project172.dpr.24: if su2 = '' then
00405127 833DB09B400000   cmp dword ptr [409bb0],

разница еще больше, если оптимизация отключена.

Project172.dpr.14: if Length(sa1) = 0 then
004050E2 A19C9B4000       mov eax,[409b9c]
004050E7 8945EC           mov [ebp-],eax
004050EA 837DEC00         cmp dword ptr [ebp-],
004050EE 740B             jz 4050fb
004050F0 8B45EC           mov eax,[ebp-]
004050F3 83E804           sub eax,
004050F6 8B00             mov eax,[eax]
004050F8 8945EC           mov [ebp-],eax
004050FB 837DEC00         cmp dword ptr [ebp-],

Project172.dpr.16: if sa2 = '' then
004050FF 833DA09B400000   cmp dword ptr [409ba0],

Project172.dpr.18: if Length(sw1) = 0 then
00405106 A1A49B4000       mov eax,[409ba4]
0040510B 8945E8           mov [ebp-],eax
0040510E 837DE800         cmp dword ptr [ebp-],
00405112 740D             jz 405121
00405114 8B45E8           mov eax,[ebp-]
00405117 83E804           sub eax,
0040511A 8B00             mov eax,[eax]
0040511C D1E8             shr eax,1
0040511E 8945E8           mov [ebp-],eax
00405121 837DE800         cmp dword ptr [ebp-],

Project172.dpr.20: if sw2 = '' then
00405125 A1A89B4000       mov eax,[409ba8]
0040512A 33D2             xor edx,edx
0040512C E81FE8FFFF       call @WStrEqual

Project172.dpr.22: if Length(su1) = 0 then
00405131 A1AC9B4000       mov eax,[409bac]
00405136 8945E4           mov [ebp-c],eax
00405139 837DE400         cmp dword ptr [ebp-c],
0040513D 740B             jz 40514a
0040513F 8B45E4           mov eax,[ebp-c]
00405142 83E804           sub eax,
00405145 8B00             mov eax,[eax]
00405147 8945E4           mov [ebp-c],eax
0040514A 837DE400         cmp dword ptr [ebp-c],

Project172.dpr.24: if su2 = '' then
0040514E 833DB09B400000   cmp dword ptr [409bb0],
36

семантически они идентичны и не будет никакой заметной разницы в производительности. Таким образом, мы остаемся смотреть на ясность для читателя кода.

if Str='' then

читаемый вариант на мой взгляд. Посмотрите на название вашего вопроса:

Как лучше проверить пустую строку?

в вашей голове вы рассматриваете это как пустую строку, а не строку с длиной 0. Так напиши код так, чтобы он соответствовал ваша точка зрения.

21

расширить на @Габр х, если мы изменим источник, чтобы добавить дополнительные сравнения с EmptyAnsiStr/EmptyWideStr/EmptyStr, мы видим следующие разборки из XE1:

Project1.dpr.21: if sa3 = EmptyAnsiStr then
004111DD A1807E4100       mov eax,[417e80]
004111E2 8B15EC2C4100     mov edx,[412cec]
004111E8 8B12             mov edx,[edx]
004111EA E83148FFFF       call @LStrEqual

Project1.dpr.27: if sw3 = EmptyWideStr then
0041120D A18C7E4100       mov eax,[417e8c]
00411212 8B15E82C4100     mov edx,[412ce8]
00411218 8B12             mov edx,[edx]
0041121A E8CD49FFFF       call @WStrEqual

Project1.dpr.33: if su3 = EmptyStr then
00411236 A1987E4100       mov eax,[417e98]
0041123B 8B15BC2D4100     mov edx,[412dbc]
00411241 8B12             mov edx,[edx]
00411243 E8DC4CFFFF       call @UStrEqual

все 3 будут требовать вызовов функций.

1