| QUOTE (UnderFade @ 10.03.2005 - время: 13:25) |
| У кого-нибудь есть информация по поводу нанесения цифровых водяных знаков на соответственно цифровое изображение. Очень нужно. |
google: watermark generation
ps Мне просто нужно, не бейте мня
Есть ли в Delphi 7 функция проверки введенных данных в поле ввода Edit
Типа как в VBA для Excel есть функция isnumeric.
| QUOTE (Ларри @ 05.02.2005 - время: 14:33) |
| . . . почему при использование линейного конгруентного генератора мы выбираем степенью модуля длину машинного слова? . . . |
Мдяяя
Я вообще по специальности "техник-программер", но как я все-таки счастлив, что не стал иситиным программистом, т.к. есть специализация "Сисадмин"! 
| QUOTE |
| Есть ли в Delphi 7 функция проверки введенных данных в поле ввода Edit |
Можно сделать так:
try
strtoint(Edit1.Text);
//----далее команды если введённая вещь - число
except
//----далее команды если введённая вещь - не число
end;
Метод пограмотнее:
{ ResVar - переменная в которую запишется значение числа, если строка состоит из цифр}
Val(Edit1.Text, ResVar, E);
if E=0 then
begin
//----далее команды если введённая вещь - число
end
else
begin
//----далее команды если введённая вещь - не число
end;
Ну а самый лучший вариант, это проверять нажатие кнопок на этом TEdit'e в обработчике события OnKeyPress:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (ord(Key) in [48..57]) then
Key:=#0;
end;
try
strtoint(Edit1.Text);
//----далее команды если введённая вещь - число
except
//----далее команды если введённая вещь - не число
end;
Метод пограмотнее:
{ ResVar - переменная в которую запишется значение числа, если строка состоит из цифр}
Val(Edit1.Text, ResVar, E);
if E=0 then
begin
//----далее команды если введённая вещь - число
end
else
begin
//----далее команды если введённая вещь - не число
end;
Ну а самый лучший вариант, это проверять нажатие кнопок на этом TEdit'e в обработчике события OnKeyPress:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (ord(Key) in [48..57]) then
Key:=#0;
end;
for i:=1 to length(edit.text) do
begin
if (ord(edit.text[i])<=48)or(edit.text(str[i])>=57)
then
begin
MessageDlg('Введенное значение не число!', mtError,[mbOk],0);
edit.Clear;
edit.SetFocus;
Exit;
end;
end;
| QUOTE (UnderFade @ 02.06.2005 - время: 21:05) |
| if[/b] (ord(edit.text[i])<=48)or(edit.text(str[i])>=57) |
Не надо использовать Ord, некрасиво, оптимизатор не поймет.
Лучше так: edit.tex[i] in ['0'..'9']
А вообще где-то в либах есть готовая функция для этого.
Ну а ord он все прекрасно понял, я просто и спрашивал, есть ли готовая функция для всего этого, так как все изучал самостоятельно, а в книжке не нашел ничего подобного.
| QUOTE (UnderFade @ 26.07.2005 - время: 16:04) |
| Хыыыы, ожили....... |
Не ожили, а случайно обнаружили тему :-)
А вообще если какие будут интересные вопросы по паскалю, по прямым иксам - задавайте :)
| QUOTE (Enekin @ 28.07.2005 - время: 23:39) |
| О как я не навижу Паскаль, только начинаю вспоминать, так сразу воротит. |
Гы! Разжигатель религиозных войн?
;-)
| QUOTE (Zidan @ 03.09.2005 - время: 14:16) |
| Вопрос у меня. Недавно стал я ПХП изучать. Везде все про програмирование написано, а как сделать дизайн ни слова. В какие теги нужно вставлять код дизайна? Про то, что в файлы которые отвечают за низ и верх сайта я разобрался. Помогите кто знает. |
Посмотри на www.medigo.ru там были книги по web-дизайну.
Вот, я и удивлюсь тогда.
| QUOTE (IrbiS @ 10.09.2005 - время: 04:41) |
| А есть спецы по С++? Я просто тут уже 1 год и 2 месяца пишу эмулятор игровой приставки Денди. Пишу на MSVC++ под Win32. |
Прошу прощения, что не в тему. Раз пишеш эмуль, то может знаеш какой-нибудь для PS у которого акцент все-таки на клаву и мышь, к таким как ePSXe все-таки нужен джойстик, а я уже как-то от него отвык
| QUOTE (dimy @ 11.09.2005 - время: 05:42) | ||
Прошу прощения, что не в тему. Раз пишеш эмуль, то может знаеш какой-нибудь для PS у которого акцент все-таки на клаву и мышь, к таким как ePSXe все-таки нужен джойстик, а я уже как-то от него отвык |
Вообще я PSX не эмулировал, мое любимое это сега и денди, но мож че и найду. Ты PSX чем эмулил?
Да и вообще об объектно-ориентированном программировании можно поболтать...
| QUOTE (cGOD @ 17.02.2005 - время: 02:13) |
| Но я пока знаком с Pascal, Delphi, HTML, Javascript, немного C++ и Visual Basic. |
Я с Visual Basic начинал. Ох, детство программерское, где ты?
Паскаль вообще не юзал ни разу, HTML знаю неплохо, Фортран тоже, а кодю на C++, занимаюсь компьютерным моделированием химических процессов. Как, кстати, в С++ объявить подпрограмму? Кусочек кода зашвырните, если не затруднит.
| QUOTE (Дом и гном @ 24.10.2005 - время: 19:30) |
| Это приговор или есть другие мысли на эту тему? |
Вообще такое категоричное "нет" я бы заявлять не стал. Давайте поразмыслим. Пусть у нас есть 36 карт по 8 карт в четырёх мастях. Пусть сколько-то карт уже вынуто и нам известно, что это за карты. Соответственно можно с известной вероятностью предсказать, что вынется та или иная карта. Однако эта вероятность будет для каждой конкретной карты достаточно мала - даже если мы предварительно изымем половину колоды, вероятность будет 1/18=0,5556. Точнее можно предсказать масть. Короче, задача-то достаточно проста, это азы матстатистики, только вот не стоит овчинка выделки.
| QUOTE (Дом и гном @ 25.10.2005 - время: 17:40) |
| Видно умные люди живут в своем мире. Уважаемый Trucker задам вопрос по другому. Представь, что я написал программу которая выдает на экране компа картинку красного или черного цвета. Каждую минуту программа меняет цвет или оставляет его таким же. Получается последовательность цветов крассного и черного. Например К Ч К Ч Ч Ч К Ч К К Ч К и так далее до бесконечности. Вопрос можно ли написать еще одну программу в которую введем последовательность цветов выдаваемых первой программой, чтоб просчитать какой цвет картинки выдаст первая программа в следующую минуту. |
Я тебя понял. В общем-то мой ответ остаётся прежним - говоря научным языком, можно лишь оценить вероятность исхода следующего испытания (в твоём случае - появления картинки определённого цвета, пусть красного). Вероятность появления красного цвета на первом испытании - 1/2 (чёрного, сответственно, тоже). Если красный цвет появился, то вероятность, что он выскочит во второй раз, будет уже 1/4 (1/2*1/2 - по теореме умножения вероятностей), чёрного - 3/4 (1-1/4). На третьем испытании - соответственно 1/8 и 7/8. Это если у тебя вероятности появления того или иного цвета распределены равномерно. Если они у тебя распределены нормально (к примеру, есть ещё синий цвет, и вероятность его появления - 6/8, а у красного и чёрного - по 1/8), то можно оценить "синюю" вероятность точнее. Кстати, установление закона распределения случайной величины (здесь - цвета экрана) по массиву её испытаний - это одна из классических задач матстатистики.
Ну что, будут ещё вопросы?
| QUOTE (Дом и гном @ 25.10.2005 - время: 20:21) |
| Да не понял ты ничего. Меня интересует, можно ли написать ПРОГРАММУ которая вычислит как работает программа в игровом аппарате и со 100% гарантией выдаст какой цвет карты будет следующим. Без всяких вероятностей. |
Да сам ты ничего не понял! Описание такого рода процессов - всегда вероятностное. Так что ответ на твой вопрос - НЕТ.
Задача, имхо, нереальная! 