Последние комментарии
Для меня эта страница - это удобный способ смотреть, что нового происходит в комментариях и сразу находить заметку, не заходя в админку. Думаю, она будет полезна и тебе.
blaDer
Спасибо большое за помощь Михаил! Теперь у меня все работает. Кстати, я читал только одну Вашу книгу "Компьютер глазами хакера". Все не как не соберусь купить вашу книгу по Делфи так что вот этот справочник и калькулятор были моим первыми программами и опытом работы в качестве программиста =)
Михаил Фленов
Извиняюсь, это нужно было сделать в первой строке
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption:='Человек не найден';
if Edit1.Text == 'Имя1' then
Label2.Caption:='Номер телефона 1';
if Edit1.Text == 'Имя2' then
Label2.Caption:='Номер телефона 2';
if Edit1.Text == 'Имя3' then
Label2.Caption:='Номер телефона 3';
...
end;
blaDer
Теперь у меня все работает, спасибо,
но все же 1 вопрос у меня остался, у меня то все работает
но как сделать так что если вводишь имя которого нет в списке то программа писала "Человек не найден". Все же мне только 14 лет и я не сильно рублю в этой программе =)
Михаил Фленов
Внимательно сравни мой код и свой и проверь логику. Ты капитально ошибся и твой код работать не будет. Обрати внимание, что я даже оформил код, чтобы он нагляднее был. А в твоем случае вообще лучше сделать так:
procedure TForm1.Button1Click(Sender: TObject);
begin
Label2.Caption:='Номер телефона';
if Edit1.Text == 'Имя1' then
Label2.Caption:='Номер телефона 1';
if Edit1.Text == 'Имя2' then
Label2.Caption:='Номер телефона 2';
if Edit1.Text == 'Имя3' then
Label2.Caption:='Номер телефона 3';
...
end;
У тебя сразу же в поле Label2.Caption заносится значение по умолчанию и после этого ты ищешь правильное значение.
Если знать задачу, то возможно еще больше упростить задачу. Если у тебя так много народу, то лучше создать список и бежать по нему с помощью цикла.
Пару советов:
1. Не используй сравнение "не равно" без особой надобности. Старайся строить свои алгоритмы так, чтобы происходило сравнение на равенство.
2. Если читал Delphi глазами хакера, наверно читал про оптимизацию. Обращай внимание на повторяющиеся операции. Ты много раз бессмысленно повторял операцию Label2.Caption:='Номер телефона'. Избавляйся от повторяющихся операций не только из-за оптимизации скорости, но и из-за наглядности.
Ярослав
А меня такой вопрос: после покупки BLUE RAY выяснилось, что он не распознаёт носители в NTFS формате, фильм в высоком разрешении весит намного больше 4 гб - неужели не существует способа создать такой файл в FAT 32?
blaDer
Я использовал твой код и вот что у меня получилось:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'Имя' then
Label2.Caption:='Человек не найден'
else Label2.Caption:='Номер телефона';
if Edit1.Text<>'Имя' then
Label2.Caption:='Человек не найден'
else Label2.Caption:='Номер телефона';
if Edit1.Text<>'Имя' then
Label2.Caption:='Человек не найден'
else Label2.Caption:='Номер телефона';
if Edit1.Text<>'Имя' then
Label2.Caption:='Человек не найден'
else Label2.Caption:='Номер телефона';
end;
end.
Впринцепе я сдвинулся с мертвой точки, но почему-то при вводе имени я получаю такой результат - либо пишет что такой человек не найден либо путает его номер с номером другого человека который был тоже внесен в код. Я это все к чему, как сделать что б программа не путала чужие номера и не допускала ошибок так как у меня бует записано более 30 человек с номерами телефонов. Вот именно из моего примера кода можно это сделать (чтобы программа не допускала ошибок при выведении телефона) или нет?
Михаил Фленов
Ну можно например так:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'Имя' then
Label2.Caption:='Человек не найден'
else
if Edit1.Text<>'Что-то еще' then
Label2.Caption:='что-то еще'
else
Label2.Caption:='Номер телефона';
end;
end.
blaDer
У меня вопрос по поводу Delphi а точнее по коду который я хочу в ней написть. Я новичок этой программы и вот что я хочу узнать: Как под одну кнопку закрепить несколько одинаквыз команд ? Я хочу сделать что то на подобии своего справочника ну вот часть кода:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'Имя' then
Label2.Caption:='Человек не найден'
else Label2.Caption:='Номер телефона';
end;
end.
Как мне под этуже кнопку прикрепить еще несколько таких подобных кодов? заранее благодарен =)
Vis-a-vis
Сейчас мода на SEO-блоги. Мое ИМХО блог должен приносить удовольствие и вести его нужно вкладывая душу. Это должно быть хобби, но никак не способом зароботка, т.е. зарабатывать можно и даже нужно, но это не должно быть основной целью блога.
Вот как-то так :)
О блоге
Программист, автор нескольких книг серии глазами хакера и просто блогер. Интересуюсь безопасностью, хотя хакером себя не считаю
Copyright © 2025 Михаил Флёнов. Тираж 1 штука. Отпечатано на ноутбуке. А за права отвечаю, или постараюсь.
А здесь еще и копирайт поставлю: Professional Web Development.
На сайте используются Cookie. Если вы из ЕС или Калифорнии США, то вы должны согласиться с их использованием - Согласен. Если вы из нормальной страны, то вам пох.
he110
Тут в основном собрались парни, которые начали программировать или в универе, или ранее. А что на счет того, что начало времени занятия программированием припало на несколько лет после универа?! Вот, тотоже.
Вот у меня, к примеру, ситуация: я закончил юридический (кста. с красным дипломом, и когда мне было 20), после чего решил заняться работой по специальности так как считал, что смогу что-то изменить своей работой, помочь людям. В общем все оказалось довольно тривиально - скорее всего можно сказать, что я был разочарован, понял, что "один в поле не воин", ментальность людей в конфликтах очень далека от беспристрастности и компромисса, вообще гуманитарная сфера очень насыщена "ядом в стакан", "ножом в спину" и прочими подобными методами, классически описанными Макиавелли (конечно, не такими прямыми, но такими же недостойными). Если к этому прибавляется еще и вопросы разной ментальности партнеров, наводнение рынка труда гуманитарными специалистами, экономический кризис и политическая нестабильность, то здравым решением есть переход в сферу, где можно развиваться интеллектуально, с учетом всех прошлых опытов, и где меньше человеческий фактор, особенно конфликтный человеческий фактор...
Кроме того для меня было стимулом то, что парня, который сидел со мной в школе за одной партой забрали в силиконовую долину. Он тоже этого, грубо говоря не ожидал, но он заслуживает. Это что-то вроде истории из фильмов...
Но самым большим стимулом было то, что это мне нравится.
В общем где-то почти год тому (мне было 23, сейчас уже 24) я принял решение полностью перейти в сферу программирования. Где-то месяца 2-3 читал-листал про тенденции и пр., и сделал выбор в пользу развития в сторону С# и .NET.
Так получилось, что я устроился на работу, которая частично связана с софтом, и где есть лояльный шеф, и это дало мне возможность узнать html, css, php, MySQL (последние 2 еще не сверхплотно), ну и постиг такие высокоуровневые штуки как joomla, wordperss и пр.
В общем прошло где-то месяцев 7 с момента как я начал что-то читать и смотреть в этом направлении.
На счет С# скажу, что "Библия С#" расписана нормально (мне ее подарили на НГ, прочитал страниц 250 пока), все, что там написано нужно иметь в голове в онлайн-доступе. Мало кто излагает без дополнительного усложнения, а Михаил Фленов молодец. Мне еще импонирует, что автор - из наших, работал в Хакере, да и возраст - отличный. Кста., и на этот сайт-блог я попал из книги, - там есть указание. Сайт тоже мне нравится, - ничего лишнего, все по делу. В общем эта книга как фундамент. Сверху планирую накинуть Троелсена, тоже для онлайн доступа, там больше справочной информации. Думаю это будет для начала нормально.
Так что вот такой план до лета.
В общем я тут изложил кратко - как я начал заниматься программированием.
П.С. Считаю, что за этой сферой большое будущее, по-сути может программироваться все от генов до изменения цвета обоев на стене (в будущем). Так что парни - вперед!