Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];

Вниз

Как найти каталог   Найти похожие ветки 

← →
Андрей Сенченко   (2002-02-08 17:05) [4]

Иван Шихалев © (08.02.02 16:37)
Искать posза pos-ом скорее всего будет еще медленнее. Потому как заранее неизвестна вложенность директорий.
SysUnits, как Вы и сказали, сразу увеличивает размер программы до привычных Windows-у размеров, то есть сотни килобайт. А смысл ?
Опять же ... собственно
function LastDelimiter(const Delimiters, S: string): Integer;
var
P: PChar;
begin
Result := Length(S);
P := PChar(Delimiters);
while Result > 0 do
begin
if (S[Result] <> #0) and (StrScan(P, S[Result]) <> nil) then
{$IFDEF MSWINDOWS}
if (ByteType(S, Result) = mbTrailByte) then
Dec(Result)
else
Exit;
{$ENDIF}
{$IFDEF LINUX}
begin
if (ByteType(S, Result) <> mbTrailByte) then
Exit;
Dec(Result);
while ByteType(S, Result) = mbTrailByte do Dec(Result);
end;
{$ENDIF}
Dec(Result);
end;
end;
При достаточно большой вложенности - можно поспорить что быстрее.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c