Ловушка для сишника MidStr()

← →
Loginov Dmitry © (2007-02-16 09:11) [0]

uses StrUtils; function MidStr(const AText: AnsiString; const AStart, ACount: Integer): AnsiString; overload; begin Result := Copy(WideString(AText), AStart, ACount); end;

Вот на работе у нас один чел на ней и запнулся. Delphi этому способствовала как могла, добавила uses StrUtils автоматически.

Руки мало оторвать тому, кто такой бред написал :)

← →
Думкин © (2007-02-16 12:03) [1]

А на чем он запнулся?

← →
Loginov Dmitry © (2007-02-16 12:35) [2]

На том, что строка конвертируется в WideString. При обработке больший строк скорость из-за этого падает в сотни раз.

← →
ЮЮ © (2007-02-16 12:43) [3]

А если нужен был просто Copy(AText, AStart, ACount), так и надо было писать Copy(AText, AStart, ACount), а не использовать MidStr

Туманен смысл этой функции. Результат все равно AnsiString, как и аргумент.

Ловушка для сишника MidStr() Найти похожие ветки