VPF::Tstrings VS Array - Форум программистов

h2o

Дата 22.2.2009, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: 1
Всего: 1

Tstrings или Array что производительнее?

использую такой код: ниже..
все выполняется очень долго... почти минуту.
Если вместо FontNamesList, CharsList - т.е. вместо Tstrings(TstringList) - использовать массивы , и вместо счётчика кол-ва цифр - например сортировку массива, будет ли операция выполняться быстрее?

Код


var
  fi,ci:Integer;
  c,TMPChar:Char;
  FontNamesList,CharsList : Tstrings;
  TMPStr,TMPFontStr,CharSymbol : string;
  Izero,Ione,Itwo,Ithree,Ifour,Ifive,Isix,Iseven,Ieight,Inine : integer;
begin
  FontNamesList:=TstringList.Create;
  FontNamesList.Clear;
  FontNamesList.AddStrings(Screen.Fonts); //загружаю примерно 180 штук шрифтнов
  CharsList:=TstringList.Create;
  CharsList.Clear;
    for fi:=0 to FontNamesList.Count-1 do
    begin
      TMPFontStr:=FontNamesList.Strings[fi];
      c:=GETNumberedChar(TMPFontStr); //получаю цифру в шрифте TMPFontStr
      if c in ['0','1','2','3','4','5','6','7','8','9']
        then  CharsList.Add(c);
    end;
    Izero:=0;  //кол-во нулей
    Ione:=0;   //.. единиц
    Itwo:=0;   //... двоек
    Ithree:=0;
    Ifour:=0;
    Ifive:=0;
    Isix:=0;
    Iseven:=0;
    Ieight:=0;
    Inine:=0;
    for ci := 0 to CharsList.Count - 1 do      //считаю количесво единиц, двоек, троек и т.д.
    begin
      TMPstr:=CharsList.Strings[ci];
      case StrToInt(TMPstr) of
      0 : Izero:=Izero+1;  
      1 : Ione:=Ione+1;
      2 : Itwo:=Itwo+1;
      3 : Ithree:=Ithree+1;
      4 : Ifour:=Ifour+1;
      5 : Ifive:=Ifive+1;
      6 : Isix:=Isix+1;
      7 : Iseven:=Iseven+1;
      8 : Ieight:=Ieight+1;
      9 : Inine:=Inine+1;
      end;
      Application.ProcessMessages;
    end;
    CharSymbol:='x';
{0} if (Izero>Ione) and (Izero>Itwo) and (Izero>Ithree) and (Izero>Ifour) and (Izero>Ifive)    //количество каких единиц больше...
        and (Izero>Isix) and (Izero>Iseven) and (Izero>Ieight) and (Izero>Inine)                         //если нулей больше чем других цифр
      then CharSymbol:='0';                                                                                                            //то CharSymbol:='0';   
{1} if (Ione>Izero) and (Ione>Itwo) and (Ione>Ithree) and (Ione>Ifour) and (Ione>Ifive)
        and (Ione>Isix) and (Ione>Iseven) and (Ione>Ieight) and (Ione>Inine)
      then CharSymbol:='1';
{2} if (Itwo>Izero) and (Itwo>Ione) and (Itwo>Ithree) and (Itwo>Ifour) and (Itwo>Ifive)
        and (Itwo>Isix) and (Itwo>Iseven) and (Itwo>Ieight) and (Itwo>Inine)
      then CharSymbol:='2';
{3} if (Ithree>Ione) and (Ithree>Itwo) and (Ithree>Izero) and (Ithree>Ifour) and (Ithree>Ifive)
        and (Ithree>Isix) and (Ithree>Iseven) and (Ithree>Ieight) and (Ithree>Inine)
      then CharSymbol:='3';
{4} if (Ifour>Ione) and (Ifour>Itwo) and (Ifour>Ithree) and (Ifour>Izero) and (Ifour>Ifive)
        and (Ifour>Isix) and (Ifour>Iseven) and (Ifour>Ieight) and (Ifour>Inine)
      then CharSymbol:='4';
{5} if (Ifive>Ione) and (Ifive>Itwo) and (Ifive>Ithree) and (Ifive>Ifour) and (Ifive>Izero)
        and (Ifive>Isix) and (Ifive>Iseven) and (Ifive>Ieight) and (Ifive>Inine)
      then CharSymbol:='5';
{6} if (Isix>Ione) and (Isix>Itwo) and (Isix>Ithree) and (Isix>Ifour) and (Isix>Ifive)
        and (Isix>Izero) and (Isix>Iseven) and (Isix>Ieight) and (Isix>Inine)
      then CharSymbol:='6';
{7} if (Iseven>Ione) and (Iseven>Itwo) and (Iseven>Ithree) and (Iseven>Ifour) and (Iseven>Ifive)
        and (Iseven>Isix) and (Iseven>Izero) and (Iseven>Ieight) and (Iseven>Inine)
      then CharSymbol:='7';
{8} if (Ieight>Ione) and (Ieight>Itwo) and (Ieight>Ithree) and (Ieight>Ifour) and (Ieight>Ifive)
        and (Ieight>Isix) and (Ieight>Iseven) and (Ieight>Izero) and (Ieight>Inine)
      then CharSymbol:='8';
{9} if (Inine>Ione) and (Inine>Itwo) and (Inine>Ithree) and (Inine>Ifour) and (Inine>Ifive)
        and (Inine>Isix) and (Inine>Iseven) and (Inine>Ieight) and (Inine>Izero)
      then CharSymbol:='9';
    if CharSymbol='x' then exit;

    CharsList.Clear;
end;

Это сообщение отредактировал(а) h2o - 22.2.2009, 19:48

--------------------

Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!

THandle

Дата 22.2.2009, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

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

Репутация: 65
Всего: 372

http://forum.vingrad.ru/forum/topic-232616.html

h2o

Дата 22.2.2009, 20:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

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

Репутация: 1
Всего: 1

ясно. Получается что разницы в скорости нет.
может тогда есть смысл в оптимизации? может как то по другому реализовать что-то для большего быстродейтвия?

--------------------

Я нифига не знаю! мало что понимаю! Помогите тупому... У меня стоит D7!

SneG0K

Дата 22.2.2009, 20:18 (ссылка)

(нет голосов)

Загрузка ...

Max Mara

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

Репутация: 1
Всего: 54

h2o, а смысл? TStrings - содержит уже готовый набор методов. А если будеш сам делать, то я не думаю, что тормозить оно будет меньше чем TStings

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »