Или я дурак или одно из двух, Простой вопрос по Дэлфи Опции

[Berserker]

Хирт - вуй. Все по аналогии (же).

Не вижу смысла в дальнейшей беседе.

Тогда, простите, к System.Pi следует относиться как функции ?

А как она объявлена? FUNCTION Pi : EXTENDED;

По ссылке, в данном случае, может быть передан адрес соотв. поля в памяти.

Покажу лишь простой пример:

PROPERTY A: INTEGER READ fA;

INC(A); // нельзя, свойство недоступно на запись

PROPERTY A: INTEGER READ fA WRITE fA;

INC(A); // предположим, что можно, но...

PROPERTY A: INTEGER READ GetA WRITE fA; // изменилось определение

Весь код мёртвый, модульность и раздельная компиляция не работают. Было поле, стала функция. Поэтому даже не самые умные люди такие простые вещи понимают при разработке языков. За сим откланиваюсь, имея столько свободного времени, ликбезом можно заниматься самостоятельно.

[gamecreator]

безопасной разработке программного обеспечения

ок, замени макрос на inline. те же яйца, только в профиль.

INC это предопределённая процедура, принимающая аргумент по ссылке (VAR). Свойства по ссылке передаваться не могут по понятным причинам. В конечном итоге они могут вести к функциям.

но сделать инкремент универсальным можно же. propertySet(propertyGet()+1)

Тогда, простите, может еще к System.Pi следует относиться как функции ?

уже представил компилятор, в котором пи = 4

По ссылке, в данном случае, может быть передан адрес соотв. поля в памяти.

компилятор не оптимизирует, операторы не универсальны. вообще бардак. о какой передаче после этого может быть речь?

[Guevara-chan]

Не вижу смысла в дальнейшей беседе.

А в чем ты видишь смысл, позволь полюбопытствовать ? В вырожденной перегрузке long word’а под названием ‘Boolean’, коею компилятор даже не желает по-тихому обработать, чтобы никто не знал ? Даже, пожалуй, не поленюсь дать пример:

Код

If ReadFile(0, “имя_файла”); Открываем файл на чтение. Если получилось...
; [Читаем данные]
Closefile(0); ...Закрываем файл.
Else; [Выводим ошибку]
Endif

...Да, ‘ReadFile’ в данном случае возвращает какой-то свой код, о значении которого я могу не задумываться. Теперь попробуй то же самое на Delphi.

А как она объявлена?

Такие подробности должны волновать доказательного программиста, коий принципиально не в курсе о байтах и тактах ?

Весь код мёртвый, модульность и раздельная компиляция не работают.

А если все INC'и из примера заменить на A := A + 1, то он оживет обратно ?

уже представил компилятор, в котором пи = 4

Есть немного: http://www.bestwtf.com/2010/11/explaining-why-pi-is-4.html

компилятор не оптимизирует, операторы не универсальны. вообще бардак. о какой передаче после этого может быть речь?

После берсеркерского траура по модульности я вообще в способностях Delphi к работе с ООП сомневаться начала...
Но вообще помимо Get/Set простым полям можно просто еще ввести автоконструируемое по умолчанию AccessPtr.

---

...Что я, собственно, пытаюсь сказать: инструмент разработки должен либо самостоятельно решать технические неувязки (HLL:Prolog,REBOL,Nemerle,etc), либо предоставить свободу работы с ними программисту (MLL:PureBASIC,C,FORTH,etc). Одно из двух, иначе получается полное Delphi.

[Throutle]

Код

FUNCTION RandSign: INTEGER;
BEGIN
  RESULT := 1 - 2 * Random(2);
END;

Вот такая функция вполне вписывается в пройденную на данный момент часть обучения, попробую как будут делфя под рукой (дома не ставлю этого монстра)...

З.Ы. Единственный кто понял вопрос правильно... Хотя бы потому что был интересен ответ не на профессиональном уровне и даже не на моём, а на уровне текущей части обучения... СПС!

[Guevara-chan]

Единственный кто понял вопрос правильно...

Вообще-то он просто "перевел" за тебя мой пример, но да как будет угодно. Тему закрывать ?

[pHOMM]

А не проще не делать привязку к знаку а просто

Код

if random(2) = 1 then
shape1.top := shape1.top + 1
else shape1.top := shape1.top - 1;
if random(2) = 1 then
shape1.left := shape1.left + 1
else shape1.left := shape1.left - 1;

Randomize делается 1 раз на старте программы - традиционно в FormCreate

Также можно упростить код из 1 поста до вида:

Код

shape1.left := shape1.left + RandSign; // Berserker's randsign
shape1.top := shape1.top + RandSign;

Обсуждение о булеане считаю оффтопом, давайте не холиварить, каждый инструмент для своей задачи (в паскале, собственно, низкий порог вхождения без неявностей типа скрытого каста инта в бул, который если нужен, всегда можно сделать Ord(bool) или даже непосредственно Integer(bool)) Инк-обсуждение тоже оффтоп ))

Темку можно и не закрывать, чувствую, что не один вопрос ещё будет

[gamecreator]

в паскале, собственно, низкий порог вхождения без неявностей типа скрытого каста инта в бул

в c# же вообще неявных кастов не бывает, обязательная запись способа передачи параметра при вызове функций, сборщик мусора и нет параметров по умолчанию. куда дружелюбнее к новичкам, чем паскаль.

[feanor]

в c# же вообще неявных кастов не бывает

Расширяющие же, не? Или они не в счет?

[gamecreator]

хм, почему-то я думал они только для классов работают. но по крайней мере они не теряют информацию

[Guevara-chan]

Не поленилась, вот, дизассемблировать свой вариант RandomSgn:

Код

push dword 0x1
call dword 0x4054fb
mov ebx, eax
neg ebx
or ebx, 0x1

...и, дабы уж сразу, аналог by Berserker...

Код

push dword 0x1
call dword 0x4054fb
mov ebx, eax
add ebx, ebx
neg ebx
inc ebx

Дело, в принципе, хозяйское (+/- операнд). Suum cique.

[gamecreator]

не пойму зачем оно переносит в ebx, если результат функции все равно в eax возвращать.

[Guevara-chan]

не пойму зачем оно переносит в ebx, если результат функции все равно в eax возвращать.

У компилятора PB, увы, много фобий касательно регистра EAX. Это - одна из них.

[Throutle]

Ещё 1 вопросик, незнаю как бы нагуглить, потому решил спросить...

В form1 на клик по кнопке происходит form2.show; в form2 на клик по кнопке происходит form2.hide; form1.show;...

Так всё работает как надо, а вот если в form1 делать не form2.show а form2.showmodal, то после нажатия в form2 нужной кнопки она скрывается, но фокус form1 не возвращается...

Вот собственно и вопрос: как вернуть фокус первой форме, если вторая открыта из него в модальном режиме?

[Guevara-chan]

http://msdn.microsoft.com/en-us/library/wi...1(v=vs.85).aspx ? Ну или местное SetFocus...

[Throutle]

Всё, вопрос снят, прослушал, что закрывать не hide`ом, а всего-навсего close`ом )

[Throutle]

И снова я...

Нужно ограничить пользователя при вводе данных в стринггрид: ввод минуса не в первую позицию, ввод второго минуса, ввод чисел перед минусом.
Для эдита я решал это так:

Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9', #8:
if (Edit1.SelStart=0)and(pos('-',Edit1.Text)>0)
then Key:=#0;
'-':
  if (Edit1.SelStart<>0)or(pos('-',Edit1.Text)>0)
  then Key:=#0;
else
Key:=#0;
end;
end;

А в стринггриде нет селстарта, потому единственное что работает так же это запрет ввода 2-го минуса:

Код

'-':
  if pos('-',StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row])>0
  then Key:=#0;

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

[tolich]

На всякий ввод пользователя тут же пробуй преобразовать его в число, а затем на равенство строке '-'. Если оба теста проваливаются, тут же возврашай предыдущий текст. Qt-шный QIntValidator именно так работает.

[FBX]

Может что-то типа такого? http://forum.boolean.name/showthread.php?t=5561