- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
procedure TDetailForm.GridPanel1Click(Sender: TObject);
var
i: Integer;
s: String;
begin
//set title and subtitle
if Pos('Item', TControl(Sender).Name) > 0 then begin
if Sender.ClassName = 'TImage' then begin
i := Length(TControl(Sender).Name) - Length('ItemImage') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
ItemSubtitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
end else if Pos('ItemSubTitle', TControl(Sender).Name) > 0 then begin
ItemSubtitle.Caption := TLabel(Sender).Caption;
i := Length(TControl(Sender).Name) - Length('ItemSubTitle') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
end else if Pos('ItemDescription', TControl(Sender).Name) > 0 then begin
i := Length(TControl(Sender).Name) - Length('ItemDescription') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemTitle.Caption := TLabel(DetailForm.FindComponent('ItemTitle' + s)).Caption;
ItemSubtitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
end else begin
ItemTitle.Caption := TLabel(Sender).Caption;
i := Length(TControl(Sender).Name) - Length('ItemTitle') - 1;
s := Copy(TControl(Sender).Name, Length(TControl(Sender).Name) - i, Length(TControl(Sender).Name));
ItemSubTitle.Caption := TLabel(DetailForm.FindComponent('ItemSubTitle' + s)).Caption;
end;
end;
end;
Код из шаблона New Metropolis UI Application в новом Delphi XE3. Рефлексия так и прет.
Follow us!
даже не зная, что они настолько нахуй не нужны, что во всех потомках Паскаля (я не про Дельфи и ФПЦ, полученные из него долгой "эволюцией") вообще эти begin и end убрали нахуй.
И эти долбоёбы, даже видя три ЖЫРНЫХ ключевых слова подряд, даже испытвая блевотное чувство при виде этого жирного забора, считают, что так писать - правильно и что это Паскаль виноват в том, что эта конструкция херово выглядит.
В этом коде нет этого ёбаного в рот переноса и всё заебись видно.
Для долбоёбов ещё раз - в крестах лучше перенести (и сделать 4 отступа, иначе else, стоящее сразу за фигурной скобкой, просто тупо сольётся со стеной кода), в Дельфи - нахуй не нужно. Мнение тех, кто привык к крестам и у которого глаз больше заточен под фигурные скобки, идёт нахуй, мне оба синтаксиса привычны одинаково и я знаю, о чём говорю.
И в три - говно лютое. За это не люблю Пасцаль - как ни крути - выглядит как говно.
А теперь посмотрим на бейсиковские ifы
> вообще эти begin и end убрали нахуй.
И правильно сделали. Действительно блевать тянет.
где оператор может быть простым, или составным вида
где операторные скобки есть неотъемлемая часть составного оператора.
И да, в Си-подобных языках я пишу так же и по той же причине:
if <condition>
..<operator1>
..<operator2>
else
..<operator3>
..<operator4>
end
намного проще записывается чем
if <condition> {
..<op>
..<op>
} else {
..<op>
..<op>
}
И тут для меня два плюса:
1. Пропадает необходимость в составных операторах.
2. Отсутствует проблема висящего else. [1]
[1] Good Ideas, through the Looking Glass by Niklaus Wirth, Computer, V. 39, No 1, January 2006
Нет, Вирт.
[COLOR=BLUE]СОСУ ХУИ[/color][COLOR=BLACK]ДАЮ В ЖОПУ[/color][COLOR=GREEN]ДЕЛАЮ МИНЕТЫ[/color][COLOR=RED]
ПИШИТЕ, ЗВОНИТЕ: 79046468333. СТРАНИЦА В ВК: vk.com/id41556[/color]
-В шею! Гоните все войска в ше-е-е-е-е-ю!
(Ф. Сологуб, "Мелкий бис").
2) Ну типичная лаба выводящая табличку значений непонятной функции, что не так?
Ваш капитан первого ранга.
Или комменты через неделю, говнокоды через две?
Pos чувствительна к регистру, на этом многие горят. Не лучше ли так:
Pos(ansilowercase('Item'), ansilowercase(TControl(Sender).Name))
Ну или переменные специально выделить, если Вы филантроп. Меня жаба душит(
В целом - нет.
Плохо тогда, когда автор узнал об этом когда программа уже скомпилирована и распространяется.
Обычный поиск чувствителен к регистру везде: он ищет точную копию образца. Как раз наоборот, для нечувствительности к регистру нужно принимать меры.
мягкий и доброжелательный. Правда, иногда упертый.
>>чтобы он от функции, предназначенной для поиска точного совпадения
А что, есть и не для точного поиска?
Иногда бывает так, что точность поиска не столь важна (при парсинге html например), а наоборот, препятствует нормальной работе функции;
немного грустно становится, когда функция различает текст вроде этого:
"some string here", "Some string here".
Можно, в принципе, воспользоваться ansilowercase, но в таком случае мы опять возвращаемся к вопросу:
>>А что, есть и не для точного поиска?
В данном случае это более надежное решение, чем если бы без ansilowercase
Ага, мне не нужно, значит, никому не нужно.
Парсинг html — вообще вещь сложная. Для нечувствительного к регистру поиска придётся указывать кодировку. Да, в отрыве от кодировки нечувствительность к регистру не существует. Ansilowercase — всего лишь частный случай, который может и не работать.
но я не говорил, что он не нужен в принципе!!! )
Ansilowercase — всего лишь частный случай, который может и не работать.
А можно поподробнее? Я знаю, что LowerCase работает только с семибитным текстом (так написано в справке) и как альтернатива с более широкими возможностями предлагается ansilowercase. А в чем лажа?
В принципе, можно переписать pos под себя и заменить вот эту конструкцию :
if "" = "" then
...
на
if lstrcmpi("","")=0 then
...
будет вызываться не чувствительная к регистру lstrcmp а ее регистронечувствительный аналог
>>LowerCase returns a string with the same text as the string passed in S, but with all letters converted to lowercase. The conversion affects only 7-bit ASCII characters between 'A' and 'Z'. To convert 8-bit international characters, use AnsiLowerCase.
Даже без учёта кодировок регистронезависимый поиск — слишком сложная вещь, чтобы ассоциировать её с примитивной функцией.