Последние комментарии

Михаил Фленов

Внимательно сравни мой код и свой и проверь логику. Ты капитально ошибся и твой код работать не будет. Обрати внимание, что я даже оформил код, чтобы он нагляднее был. А в твоем случае вообще лучше сделать так:

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-блоги. Мое ИМХО блог должен приносить удовольствие и вести его нужно вкладывая душу. Это должно быть хобби, но никак не способом зароботка, т.е. зарабатывать можно и даже нужно, но это не должно быть основной целью блога.
Вот как-то так :)

Denis Ionov

2Elza
Конечно мужик! У меня стояла Ubuntu 9.04. У меня до сих пор валяется диск с ней на столе (красивый такой, подарочный)
К сожалению, я не могу использовать Ubuntu только ради самой системы. Я не работаю с теми технологиями которые заложены в этой оси.
Просто не работаю с никсами потому что они мне не приносят дохода. Мне без разницы какая система, главное что бы я в ней работал.
Мне нравится разрабатывать программы под Windows и Mac OS потому что их покупают. Именно покупают, это для меня стимул.

Антон

Михаил Фленов

Существуют. Полные установщики включают исходники.

Саша

Скромный вопрос - исходники (полные) в том числе и ядра UNIX (Линукс)Существуют? И где их можно взять? Если это конечно открытая система.