Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Пустая ли строка

Nucer © (2009-10-15 20:23:00)
Как правильно проверять, пустая ли строка?
if Length(str) = 0 then Exit;
или
if str = '' then Exit;

Sha (2009-10-19 00:31:00) [1]
if s=''быстрее.
Но надо иметь ввиду, что некоторые сторонние библиотеки могут производить пустые строки, для которых s<>'', но length(s)=0

Leonid Troyanovsky (2009-10-18 23:44:00) [2]

> Игорь Шевченко © (16.10.09 00:02) [10]

> > А если строка пустая? Integer(S) даст нуль

> С какого перепугу ?

Пуркуа б не па.

--
Regards, LVT.

palva (2009-10-17 11:40:00) [3]

>> А если строка пустая? Integer(S) даст нуль
> С какого перепугу ?

Это моя Delphi 7 такая пуганная.
{$APPTYPE CONSOLE} var i: Integer; s: String; begin s := ''; i := Integer(s); WriteLn(i); // 0 end.

RWolf (2009-10-16 09:42:00) [4]
Unit1.pas.29: if s='' then subroutine; 0044E1DF 83BBFC02000000 cmp dword ptr [ebx+$000002fc],$00 0044E1E6 7507 jnz +$07 0044E1E8 8BC3 mov eax,ebx 0044E1EA E819000000 call TForm1.subroutine
Unit1.pas.30: if Length(s)=0 then subroutine; 0044E1EF 8B83FC020000 mov eax,[ebx+$000002fc] 0044E1F5 E8A662FBFF call @LStrLen 0044E1FA 85C0 test eax,eax 0044E1FC 7507 jnz +$07 0044E1FE 8BC3 mov eax,ebx 0044E200 E803000000 call TForm1.subroutine @LStrLen: 004044A0 85C0 test eax,eax 004044A2 7403 jz +$03 004044A4 8B40FC mov eax,[eax-$04] 004044A7 C3 ret

Делайте выводы.

Игорь Шевченко (2009-10-16 00:02:00) [5]

> А если строка пустая? Integer(S) даст нуль

С какого перепугу ?

palva (2009-10-15 22:04:00) [6]

> Result:=PInteger(Integer(S)-4)^;

Да вы шо? А если строка пустая? Integer(S) даст нуль - тут в одной ветке говорили. Может врали...

Nucer (2009-10-15 21:32:00) [7]
>Если тебе критично по времени работы, меряй сам.

Как оказалось, вот это работает в 4 раза быстрее:
if str = '' then ...

oldman (2009-10-15 21:16:00) [8]

> {RASkov} © (15.10.09 21:05) [6]

А текст PInteger(Integer(S)-4) можешь привести до кучи?

{RASkov} (2009-10-15 21:05:00) [9]
> в первом случае работает функция

вся функция:
function Length(const S: String): Integer begin Result:=PInteger(Integer(S)-4)^; end;
:)

oldman (2009-10-15 20:42:00) [10]
в первом случае работает функция и оператор сравнения,
во втором только оператор сравнения
Если тебе критично по времени работы, меряй сам.

oldman (2009-10-15 20:38:00) [11]

> Nucer (15.10.09 20:34) [3]

Тогда какая тебе разница?
Правильно и так и так, не принимая в учет [1]

Nucer (2009-10-15 20:34:00) [12]
Не понял... Условия ведь равнозначны по смыслу.
Пустая строка - это именно строка с нулевой длиной, т.е. ''.

{RASkov} (2009-10-15 20:31:00) [13]
:)

oldman (2009-10-15 20:25:00) [14]
Если str:=' ' не является пустой строкой, тогда 1
Иначе 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »