Модераторы: THandle, bems

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Оптимизация 
:(
    Опции темы
THandle
Дата 14.2.2008, 10:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
Если у Вас есть код, который, как Вам кажется можно оптимизировать - милости просим к нам, выкладывайте свой код и мы все вместе подумаем над тем, как можно его оптимизировать.
PM   Вверх
Alexeis
Дата 18.2.2008, 18:34 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 4
Всего: 459
Ээээ... так общий раздел останется без хлеба  smile 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
THandle
Дата 18.2.2008, 18:34 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
Alexeis, конкуренция, конкуренция smile  К тому же не моя идея - претензии не ко мне smile 
PM   Вверх
Akella
Дата 18.2.2008, 20:58 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Цитата(Alexeis @  18.2.2008,  18:34 Найти цитируемый пост)
Ээээ... так общий раздел останется без хлеба  

 smile  smile  smile  smile  smile  smile 
PM MAIL   Вверх
VICTAR
Дата 18.2.2008, 21:55 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 1
Всего: 80
Цитата(THandle @  18.2.2008,  18:34 Найти цитируемый пост)
К тому же не моя идея - претензии не ко мне smile 

Тааааак, как вопросы задавать про развитие раздела мы можем.
А тут сразу в кусты - "Я не я и лошадь не моя!"  smile 
PM MAIL   Вверх
Akella
Дата 18.2.2008, 22:06 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
ага, мапэд не мой, какие предъявы? я тока объяву разместил  smile 
PM MAIL   Вверх
VICTAR
Дата 18.2.2008, 22:16 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 1
Всего: 80
THandle пропал куда-то. Наверное совесть замучала  smile 
PM MAIL   Вверх
THandle
Дата 18.2.2008, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
VICTAR, да нет. Она у меня отсутствует. Меня замучало сидеть за 15 дюймовым неисправным манитором.

Модераторы: забаньте меня плиз. Я стараюсь, трачу свое время, зрение посадил, а тут начинаете меня катать в ацфальте. Лучше забаньте.

Это сообщение отредактировал(а) THandle - 18.2.2008, 22:27
PM   Вверх
VICTAR
Дата 18.2.2008, 22:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 1
Всего: 80
Нуууу...
Злобные тираннозавры не должны так просто сдаваться! smile 
PM MAIL   Вверх
THandle
Дата 18.2.2008, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
Цитата(VICTAR @  18.2.2008,  22:59 Найти цитируемый пост)
Нуууу...
Злобные тираннозавры не должны так просто сдаваться!

Ну чо вы все прикалываетесь? К вашему сведению: я увлекаюсь палеонтологией, в особенности динозаврами.
Доведет меня этот мир до с.уб. Надеюсь вы в курсе того что у меня происходит.
PM   Вверх
VICTAR
Дата 18.2.2008, 23:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 1
Всего: 80
THandle, да ладно те! Не воспринимай все так всерьез! 
Это ж шутка  smile 
PM MAIL   Вверх
Akella
Дата 18.2.2008, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Цитата(THandle @  18.2.2008,  23:05 Найти цитируемый пост)
Надеюсь вы в курсе того что у меня происходит.

нет, а что?

Добавлено через 33 секунды
Цитата(THandle @  18.2.2008,  22:25 Найти цитируемый пост)
Меня замучало сидеть за 15 дюймовым неисправным манитором.


Цитата(THandle @  18.2.2008,  23:05 Найти цитируемый пост)
я увлекаюсь палеонтологией, в особенности динозаврами.


это типа принцып  smile  smile  smile 
PM MAIL   Вверх
THandle
Дата 18.2.2008, 23:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
VICTAR, спасиюо конечно, но почитай вот отсюда и до конца ветки - поймешь чё за фигня со мной. <тут была ссылка, которую я в последствии убрал>

Вобщем ладно. Мои проблемы не ваши, но пожалуйста не надо так. Я искренне хочу этот форум развить.

Это сообщение отредактировал(а) THandle - 8.3.2008, 19:48
PM   Вверх
VICTAR
Дата 18.2.2008, 23:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 1
Всего: 80
THandle, уже читал.
Черная полоса всегда сменяется белой, так что жди в ближайшем будущем что-то очень хорошее. smile 
И еще раз повторюсь: не принимай все так близко к сердцу.
PM MAIL   Вверх
Akella
Дата 23.4.2008, 19:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
значит у мну скоро будет чёрная  smile 
PM MAIL   Вверх
VICTAR
Дата 27.4.2008, 22:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 1
Всего: 80
Akella, только черная всегда сменяется белой. Так что все будет хорошо  smile 
PM MAIL   Вверх
SneG0K
  Дата 30.4.2008, 23:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: нет
Всего: 54
Я смотрю тут один оффтопик
А оптимизируйте пожалуйсто 
Код

{$APPTYPE CONSOLE}
begin
 writeln('Hello World');
end;
PM WWW Skype   Вверх
Alexeis
Дата 2.5.2008, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 4
Всего: 459
SneG0K, это не алгоритм а вызов функции. Чего оптимизировать? Саму функцию или вывод текста?


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
SneG0K
Дата 4.5.2008, 23:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Max Mara
***


Профиль
Группа: Завсегдатай
Сообщений: 1887
Регистрация: 1.12.2007
Где: Wis Dells

Репутация: нет
Всего: 54
Alexeis, да я просто прикалуюсь=) и все=) Не стоит воспринимать в серьез
PM WWW Skype   Вверх
Akella
Дата 16.5.2008, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Оптимизируйте этот код.
на входе 75-85-239, например
на выходе должно быть: 7585239

Код

function TfmScanner.OnlyDec(Inp:string):string;
Var
 k:integer;
begin
  Result := '';
  for k := 1 to Length(Inp) do
   if Inp[k] in ['0'..'9'] then
     Result := Result + Inp[k];
end;
PM MAIL   Вверх
Alexeis
Дата 16.5.2008, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 4
Всего: 459
Код

function OnlyDec(Inp : AnsiString) : AnsiString;
Var
 k1, k2 :integer;
begin
  k1 := 1; k2 := 1;
  SetLength(Result, length(Inp));
  Repeat
      while (k2 <> length(Inp)) and ((Inp[k2] < '0') or (Inp[k2] > '9'))
      do
        inc(k2);

      if k2 = length(Inp)
      then
        Begin
          SetLength(Result, k1);
          Break;
        End;

      Result[k1] := Inp[k2];
      inc(k1);
      inc(k2)
  until false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage(OnlyDec('75-85-239'));
end;



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 16.5.2008, 16:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
а почему AnsiString?
PM MAIL   Вверх
Alexeis
Дата 16.5.2008, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 4
Всего: 459
Хм... дизасемблировал и еще улучшил.

Код

function OnlyDec(Inp : AnsiString) : AnsiString;
Var
  k1, k2, l : integer;
  pInp, pDest : PAnsiChar;
begin
  k1 := 1;
  k2 := 1;
  l := length(Inp);
  SetLength(Result, l);
  pInp := @Inp[1];
  pDest := @Result[1];
  Repeat
      while (pInp[k2] < '0') or (pDest[k2] > '9')
      do
        Begin
          inc(k2);
          if k2 = l
          then
            Begin
              SetLength(Result, k1);
              exit
            End
        End;

      pDest[k1] := pInp[k2];
      inc(k1);
      inc(k2)
  until false;
end;


Цитата(Akella @  16.5.2008,  15:46 Найти цитируемый пост)
а почему AnsiString? 

Потому что на юникодной не тестил. В принципе, должно работать и для юникода.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 17.5.2008, 08:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
в String это разве юникод?

Добавлено через 6 минут и 25 секунд
Alexeis, 
Цитата(Alexeis @  16.5.2008,  17:06 Найти цитируемый пост)
Хм... дизасемблировал и еще улучшил.

AV

Добавлено через 8 минут и 54 секунды
user posted image
PM MAIL   Вверх
Alexeis
Дата 17.5.2008, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 4
Всего: 459
Цитата(Akella @  17.5.2008,  07:02 Найти цитируемый пост)
в String это разве юникод?

  В 2008 это будет юникод, точно также как и PChar.

Упс, точно накосячил, PChar же с нуля индексируется. 

Код

function OnlyDec(Inp : AnsiString) : AnsiString;
Var
  k1, k2, l : integer;
  pInp, pDest : PAnsiChar;
begin
  k1 := 0;
  k2 := 0;
  l := length(Inp);
  SetLength(Result, l);
  pInp := @Inp[1];
  pDest := @Result[1];
  Repeat
      while (pInp[k2] < '0') or (pDest[k2] > '9')
      do
        Begin
          inc(k2);
          if k2 >= l
          then
            Begin
              SetLength(Result, k1 + 1);
              exit
            End
        End;
      pDest[k1] := pInp[k2];
      inc(k1);
      inc(k2)
  until k2 >= l;
end;




--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 17.5.2008, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
user posted image
Alexeis, откуда берётся MARK, в тексте его нигде нет? smile 
PM MAIL   Вверх
Alexeis
Дата 17.5.2008, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 4
Всего: 459
Akella, что значат эти строчки?

Добавлено @ 16:49
Нашел еще 2 глюка smile       while (pInp[k2] < '0') or (pDest[k2] > '9') и   тут      SetLength(Result, k1 + 1);
Akella, протесть еще такой вариант
Код

function OnlyDec(Inp : AnsiString) : AnsiString;
Var
  k1, k2, l : integer;
  pInp, pDest : PAnsiChar;
begin
  k1 := 0;
  k2 := 0;
  l := length(Inp);
  SetLength(Result, l);
  pInp := @Inp[1];
  pDest := @Result[1];
  Repeat
      while (pInp[k2] < '0') or (pInp[k2] > '9')
      do
        Begin
          inc(k2);
          if k2 >= l
          then
            Begin
              SetLength(Result, k1);
              exit
            End
        End;
      pDest[k1] := pInp[k2];
      inc(k1);
      inc(k2)
  until k2 >= l;
end;



--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 19.5.2008, 08:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
да, вроде то, что надо, посмотрим
PM MAIL   Вверх
Akella
Дата 19.5.2008, 10:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
Не правильно, в дебаггере видно, что из 560-741, получается '560-741'#0

Это сообщение отредактировал(а) Akella - 19.5.2008, 10:35
PM MAIL   Вверх
Alexeis
Дата 19.5.2008, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 4
Всего: 459
Akella, 560-741 и 560-741'#0 это тоже самое smile . Все анси строки нультерминатные.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Akella
Дата 19.5.2008, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 7
Всего: 329
да, но программа почему-то этого не понимает, могу тебе скинуть или полностью исходники или хотябы процедуру обработки

Добавлено через 1 минуту и 33 секунды
я получившийся результат потом отдаю функции, которая ищёт по БД совпадение, в БД есть строковое поле, где хранится куча телефонов
PM MAIL   Вверх
bems
Дата 30.11.2008, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 2
Всего: 88
Цитата(Alexeis @  19.5.2008,  10:49 Найти цитируемый пост)
560-741 и 560-741'#0 это тоже самое
 не совсем. Это значит что поле длины строки нужно уменьшить на единицу, что бы нулевой символ был за строкой (rtl делает так)



--------------------
Обижено школьников: 8
PM MAIL   Вверх
Страницы: (3) [Все] 1 2 3 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle

Добро пожаловать в форум группы "Delphi".

В разделе разрешается:

  • Флудить (в приемлемых величинах)
  • Обсуждать модерирование данного раздела (но не его модератора)
  • Добавлять свои правила если они не противоречат существующим
  • Делать наезды на пешеходов***

Строго запрещено:

  • Размещать рекламу
  • Совершать оскорбления личностей
  • Материться
    • *** Пешеходами не являются (ко)модераторы, админы, участники клуба.

Если Вам понравилась атмосфера форума, заходите к нам чаще! Люблю, целую, вечно Ваш, THandle.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Форум группы: delphi | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0810 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.