Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Увеличение на единицу! [D7, XP]

Страницы: 1 2 >
Kuvalda © (2007-12-25 22:34:00)
var
a: integer;
begin
a:=0;
inc(a);
label1.Tag :=a;
label1.Caption :=inttostr(a);

Что неправильно делаю? Надо значение label1 увеличивать на 1 с каждым нажатием кнопки button.

Ega23 (2007-12-27 07:57:00) [1]

> стерилизовать также надо за такое количество флуда на пустом
> месте )

Стерилизовать надо за дебильные и неправильные ответы в конфе "Начинающим"

engine (2007-12-26 20:52:00) [2]
> [25] Ega23 © (26.12.07 20:12)

стерилизовать также надо за такое количество флуда на пустом месте )

palva (2007-12-26 20:31:00) [3]
Автор не реагирует.
Мы его потеряли...

@!!ex (2007-12-26 20:21:00) [4]
> [25] Ega23 © (26.12.07 20:12)

и глобальные переменные - это тоже не гуд.

Ega23 (2007-12-26 20:12:00) [5]

> a: integer=0;// только в разделе глобальный переменных

За мнемоническое название глобальной переменной "a" - надо сразу стерилизовать. Дабы не портить человеческий генофонд в будущем.

fics (2007-12-26 18:41:00) [6]
var
a: integer=0;// только в разделе глобальный переменных
begin
// a:=0; закоментируй или удали :)
inc(a);
label1.Tag :=a;
label1.Caption :=inttostr(a);

oldman (2007-12-26 09:36:00) [7]

> А так никак нельзя?
>
> begin
> Label1.Tag := Label1.Tag + 1;
> Label1.Caption := IntToStr(Label1.Tag);
> end;
> ?

А так:

begin
Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);
end;

:)))

AndreyV (2007-12-26 09:00:00) [8]
> [21] Kolan © (26.12.07 08:36)

А здесь отличий больше одного:).

Kolan (2007-12-26 08:36:00) [9]
> var
> a : integer;
> begin
> a := label1.Tag;
> inc(a);
> label1.Tag := a;
> label1.Caption := inttostr(a);
> end;

А так никак нельзя?

begin Label1.Tag := Label1.Tag + 1; Label1.Caption := IntToStr(Label1.Tag); end;
?

Skyle (2007-12-26 07:35:00) [10]
Резюмируем.

Автор, найди одно отличие.

var a: integer; begin a:=0; inc(a); label1.Tag :=a; label1.Caption :=inttostr(a); end;

var a : integer; begin a := label1.Tag; inc(a); label1.Tag := a; label1.Caption := inttostr(a); end;

Washington (2007-12-26 05:23:00) [11]
Понесло вас фсех во флуд :)

Anatoly Podgoretsky (2007-12-26 03:36:00) [12]
> {RASkov} (26.12.2007 03:12:14) [14]

Не умеешь - научим, не хочешь заставим.
Вот такой он delphimaster

{RASkov} (2007-12-26 03:25:00) [13]
> [12] {RASkov} © (26.12.07 02:40)
> :(
> Грусно....

.......

> Да я и не грущу

Ну т.е. погрустил 5 минут и хватит :)

{RASkov} (2007-12-26 03:19:00) [14]
> [15] Германн © (26.12.07 03:17)
> Не грусти.

Да я и не грущу ...или грустю :)

> Поможем с русским.

Спасибо)

Германн (2007-12-26 03:17:00) [15]

> {RASkov} © (26.12.07 03:12) [14]

Не грусти. Поможем с русским. :)

{RASkov} (2007-12-26 03:12:00) [16]
> [13] Германн © (26.12.07 02:59)
> Но слово "грусно" отсутствует в словарях. :(

А вот в моем словаре ....есть, к сожалению :(
:)
Кстати.... мне кажется, что русский я сейчас лучше знаю, чем когда учился в школе :) наверное шучу)
ЗЫ: Очень многому в русском языке научился у MS Ворда ....опять наверное шутка :)
ЗЫЫ: Но в школе с русским было плохо. А вот это уже не шутка :(

Германн (2007-12-26 02:59:00) [17]

> {RASkov} © (26.12.07 02:40) [12]

Не грусти. Ты ведь не виноват. Но слово "грусно" отсутствует в словарях. :(

{RASkov} (2007-12-26 02:40:00) [18]
> [11] Германн © (26.12.07 02:35)
> А для того чтобы думать нужны базовые знания. А их, имхо нет.

:(
Грусно....
Многие зарплату получают "за такой" код(

Германн (2007-12-26 02:35:00) [19]

> {RASkov} © (26.12.07 02:29) [10]

> т.е. не думай как компилятор, а думай как человек и что
> выйдет?

Тут всё проще. Достаточно просто думать, а не бездумно срисовывать код со сторонних источников. А для того чтобы думать нужны базовые знания. А их, имхо нет.

{RASkov} (2007-12-26 02:29:00) [20]
> [0] Kuvalda © (25.12.07 22:34)
> var
> a: integer;
> begin
> a:=0;
> inc(a);
> label1.Tag :=a;
> label1.Caption :=inttostr(a);
>
> Что неправильно делаю?

А вот теперь просто прочитай код... прямо так на человеческом языке.... т.е. не думай как компилятор, а думай как человек и что выйдет?
Что выйдет после первого нажатия? А что после второго? А после N-го? Ты-ж сам каждый раз "a" равняешь нулю.....
Вот ты сохраняешь кол-во нажатий в Тэге метки....
А теперь тоже самое только вначале в "а" считай предыдущее кол-во нажатий.... а=лабел.тэг

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »