Оцените проги!

← →
Seriouss (2004-03-07 23:34) [0]

вот три проги -
http://serious.net.ru/other/Base.rar
http://serious.net.ru/other/PoleDelphi.rar
http://serious.net.ru/other/chislFILEnoerr430.rar (если у кого то потребует dll, то качать - http://serious.net.ru/other/qtintf70.rar)

ps. мне 12 лет
ps2. занимаюсь delphi 1 месяц
ps+ps2:="строго не судите!";

← →
Алхимик © (2004-03-07 23:39) [1]

Знаешь, что то не сильно хочется exe шник твой запускать.
Мало ли... :)
Вот код посмотрел бы.

← →
Seriouss (2004-03-07 23:46) [2]

вот код мне не сильно хочется отправлять, а если вы, мистер, боитесь что там вирус, то включите антивирус!)))

← →
Seriouss (2004-03-07 23:47) [3]

небойтесь! там все мирно. ничего опастного!

← →
Seriouss (2004-03-07 23:51) [4]

procedure TForm5.Button1Click(Sender: TObject); var i, i2, i3: Integer; begin if (Form1.StringGrid1.RowCount+StrToInt(Form5.SpinEdit1.Text))<99999999 then begin Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+StrToInt(Form5.SpinEdit1.Text); For i:=1 to Form1.StringGrid1.RowCount do begin Form1.StringGrid1.Cells[0,i]:=IntToStr(i); end; Form5.SpinEdit2.Text:=IntToStr(StrToInt(Form5.SpinEdit2.Text)+1); for i2:=1 to Form1.StringGrid1.ColCount do begin tempstr:=""; tempstr2:=""; for i3:=0 to StrToInt(Form5.SpinEdit1.Text)-1 do begin for i:=0 to Form1.StringGrid1.RowCount-StrToInt(Form5.SpinEdit2.Text) do begin tempstr2:=Form1.StringGrid1.Cells[i2,StrToInt(Form5.SpinEdit2.Text)+i]; Form1.StringGrid1.Cells[i2,StrToInt(Form5.SpinEdit2.Text)+i]:=tempstr; tempstr:=tempstr2; end; end; end; Form5.SpinEdit2.Text:=IntToStr(StrToInt(Form5.SpinEdit2.Text)-1); end else begin ShowMessage("Слишком много строк!"); end; end;

Красиво, как считаете? это маленький фрагмент) из Base.exe

← →
Игорь Шевченко © (2004-03-07 23:52) [5]

> там все мирно. ничего опастного

LOL

← →
TButton © (2004-03-07 23:56) [6]

а можно в общих чертах, что это и как это? а то мне качать чтоб узнать что там нечто совершенно бесполезное очень лениво.

← →
Seriouss (2004-03-07 23:56) [7]

← →
Seriouss (2004-03-07 23:58) [8]

примерно 200кб каждый архив, что ж вы, мастера, такие ленивые?

← →
Seriouss (2004-03-08 00:00) [9]

TButton
да, там совершенно бесполезные проги, но дайте мне повысить свое самолюбие, и оцените хоть как-то))

← →
Алхимик © (2004-03-08 00:03) [10]

[8] Seriouss (07.03.04 23:58)
Посмотрел.
Если > ps. мне 12 лет , то вполне неплохо.
А код свой считаешь рефоллюционным и боишься показать? :)

> [6] TButton © (07.03.04 23:56)
> а можно в общих чертах, что это и как это? а то мне качать
> чтоб узнать что там нечто совершенно бесполезное очень лениво.

1 - Чахоточный брат Excel
2 - Настольный вариант поля чудес на 3 вопроса.

← →
Игорь Шевченко © (2004-03-08 00:03) [11]

> Красиво, как считаете?

Некрасиво. Использование переменных объекта в его методах - крайне дурной тон, чреватый ошибками.

← →
DiamondShark © (2004-03-08 00:04) [12]

> небойтесь! там все мирно. ничего опастного!

Вообще-то, тебя никто не подозревает. Просто ты сам о том, есть ли там что-то опасное, можешь не знать.

← →
Piter © (2004-03-08 00:05) [13]

я не понимаю ссмысла смотреть проги, если даже непонятно, что там. Нафига это мне (да и не только мне). Подумай, Seriouss.

Ты думаешь сейчас жуткий дефицит программ, чтобы смотреть просто все подряд, лишь бы увидеть наконец то ПРОГРАММУ

← →
Seriouss (2004-03-08 00:06) [14]

Алихмик
1- это не брат Exel. даже не чахоточный. он к нему и близко не приближался
2- если вам мало воросов, лезьте в базу и добавляйте))
3- вы 3-й файл не скачали

//А код свой считаешь рефоллюционным и боишься показать? :)
ну... могу конечно показать если кого интересует

← →
Seriouss (2004-03-08 00:09) [15]

//Некрасиво. Использование переменных объекта в его методах - крайне дурной тон, чреватый ошибками.//

чего чего?

← →
DiamondShark © (2004-03-08 00:10) [16]

> Красиво, как считаете? это маленький фрагмент) из Base.exe

Для 12 лет + 1 месяц -- не смертельно.

1. Использование глобальных переменных (Form1, Form5). Лучше не привыкать, даже если в простенькой задаче кажется, что ничего страшного.

2. StrToInt(Form5.SpinEdit1.Text) используется во многих местах. Причём, это что-то важное, вводимое на форме Form5. Лучше оформить как свойство.

← →
Алхимик © (2004-03-08 00:11) [17]

> [14] Seriouss (08.03.04 00:06)

> 3- вы 3-й файл не скачали
Ломает :)
> ну... могу конечно показать если кого интересует
Туда же кинь, народ (кому не лень) поглядит, подскажет (наверно).

← →
Seriouss (2004-03-08 00:13) [18]

//1. Использование глобальных переменных (Form1, Form5). Лучше не привыкать, даже если в простенькой задаче кажется, что ничего страшного.//
А что надо использовать?

//2. StrToInt(Form5.SpinEdit1.Text) используется во многих местах. Причём, это что-то важное, вводимое на форме Form5. Лучше оформить как свойство.//
а что такое свойство?))))))

← →
Anatoly Podgoretsky © (2004-03-08 00:13) [19]

Seriouss (07.03.04 23:46) [2]
Насчет антивируча, ты всерьез нас за идиотов принимаешь?

← →
Алхимик © (2004-03-08 00:14) [20]

> [15] Seriouss (08.03.04 00:09)
> //Некрасиво. Использование переменных объекта в его методах
> - крайне дурной тон, чреватый ошибками.//
>
> чего чего?

Дурной тон - это, к примеру, щи вилкой хлебать. Не смертельно, но и не стоит :)

← →
Piter © (2004-03-08 00:18) [21]

Seriouss (08.03.04 00:09) [15]
//Некрасиво. Использование переменных объекта в его методах - крайне дурной тон, чреватый ошибками.//

чего чего?

у тебя есть метод TForm5.Button1Click
И ты в нем обращаешься непосредственно к экземпляру класса TForm5 (к Form5), например

Form5.SpinEdit2.Text:=IntToStr(StrToInt(Form5.SpinEdit2.Text)-1);

Почему бы просто не написать

SpinEdit2.Text:=IntToStr(StrToInt(Form5.SpinEdit2.Text)-1);

К тому же, задумайся о форматировании текста, а то что это такое...

Единственное что мне думается... оно тебе надо в 12 лет?

← →
Piter © (2004-03-08 00:28) [22]

Piter (08.03.04 00:18) [21]
точнее лучше будет написать

SpinEdit2.Text:=IntToStr(StrToInt(SpinEdit2.Text)-1);

А еще лучше:

With SpinEdit2.Text do Text:=IntToStr(StrToInt(Text)-1);

Ну а еще лучше

With SpinEdit2.Text do try Text:=IntToStr(StrToInt(Text)-1); except on EConvertError do showmessage("Что вы мне тут в SpinEdit понаписали?!"); end;

Piter (08.03.04 00:18) [21]
И ты в нем обращаешься непосредственно к экземпляру класса TForm5 (к Form5),

конечно, скорее всего кроме Form5 других экземпляров TForm5 у тебя нету, но тем не менее

← →
DiamondShark © (2004-03-08 00:31) [23]

> А что надо использовать?

Из метода TForm5 нет смысла обращаться к переменной Form5, для доступа к самой форме. Все её методы и компоненты уже находятся в области видимости метода. Кроме того, такой код будет однозначно ошибочным при использовании нескольких экземпляров формы.

Форма Form5 оказывается сильно связанной с формой Form1 (небось, показ Form5 происходит из Form1. Угадал?). Но это не нужно. Form5 -- это форма каких-то настроек, угадал? Так вот, ей совершенно не нужно знать о существовании Form1. Её задача -- получить ввод от юзера, а конкретными действиями пусть занимается сама Form1.
Весь код, изменяющий Form1 из Form5 убрать. Все данные, вводимые юзверем оформить свойствами.

> а что такое свойство?))))))

Ну... это... Вот Text, к примеру, это свойство SpinEdit.

Желательно с деталями языка ознакомится. Ключевое слово для поиска в справке -- property.

← →
DiamondShark © (2004-03-08 00:33) [24]

> Ну а еще лучше
>
> With SpinEdit2.Text do
> try
> Text:=IntToStr(StrToInt(Text)-1);

Эта... ты его не слушай. Он тебя плохому научит.

← →
Алхимик © (2004-03-08 00:45) [25]

Нафига?
SpinEdit2.Text:=IntToStr(StrToInt(SpinEdit2.Text)-1);
Когда есть Value?
SpinEdit1.Value := SpinEdit1.Value - 1;

← →
Seriouss (2004-03-08 10:37) [26]

//Единственное что мне думается... оно тебе надо в 12 лет?//
да, надо. делать больше нечего)

http://serious.net.ru/other/SourceBase.rar
исходники Base.exe. смотрите. скоро и другие выложу

ps. не обращайте внимания на идиотские коментариии в коде. я писал там где мне удобно и как удобно)

← →
Seriouss (2004-03-08 10:49) [27]

//Когда есть Value?
SpinEdit1.Value := SpinEdit1.Value - 1;//
спасибо. незнал. исправлюсь.

← →
Piter © (2004-03-08 11:08) [28]

DiamondShark (08.03.04 00:33) [24]
блин, ну ошибся, на самом деле
with SpinEdit2 do
засыпал просто :)

← →
Seriouss (2004-03-08 11:10) [29]

код кто нибудь смотрел?

Зачем, приведенного в [4] достаточно, понимаешь есть такая штука как нервы, очень дорогостоящее в лечении. Короче этого куска достаточно, чтобы остальное не смотреть.

← →
Seriouss (2004-03-08 11:42) [31]

спокойнее надо ко всему относиться

Спокойствие, только спокойствие. (С) Карлсон.

← →
Seriouss (2004-03-08 12:21) [33]

вижу никто смотреть не собирается.

Ну не отчаивайся, может кто и посмотрит, то ты вроде не предоставляешь исходные коды, как смотреть то?

to Seriouss
лучше расскажи как доменое имя в net.ru зарегистрировал и где хостера нашел

← →
Seriouss (2004-03-08 12:57) [36]

Piter
http://red-host.com
бесплатно net.ru дают

Anatoly Podgoretsky
//не предоставляешь исходные коды//
как не предоставляю вот - http://serious.net.ru/other/SourceBase.rar
писал в [26]

Эх, я в 12 лет в футбол гонял до потери пульса. :)))

← →
Seriouss (2004-03-08 13:09) [38]

//Эх, я в 12 лет в футбол гонял до потери пульса. :)))//
нелюблю футбол)

> нелюблю футбол)

Ты эта... ко врачу сходи :)

← →
Seriouss (2004-03-08 16:26) [40]

Ты эта... ко врачу сходи :)

обязательно.
дак что с кодом?

Оцените проги! Найти похожие ветки