Помощь новичкам

Да лучше пользуйтесь возможностями Graph3D, перемещение, поворот, кручение, …

Предложение разработчикам. В модуле GraphABC, процедура ARC, когда показывает сообщение, в Procedure отмечается, что а1 и а2 целые, это правильно. В самом тексте - действительное. По моему тут отпечатка.

Здравствуйте. Необходимо решать одну проблему. Массив создаётся в главной программе. Передаётся в процедуру. В теле процедуре меняем значение некоторых членов. Почему эти изменение влияет и на массив в главной программе. Пример: Program Крамер; Procedure Detr(a : array[,] of real; Var mdt : real); Begin
a.Println; mdt := a[0,0]*a[1,1]*a[2,2]+a[0,1]*a[2,0]*a[1,2]+a[0,2]*a[1,0]*a[2,1]; mdt := mdt - a[2,0]*a[1,1]*a[0,2]-a[0,0]*a[2,1]*a[1,2]-a[0,1]*a[1,0]*a[2,2]; (a[0,0],a[1,1]) := (2.2,3.3); end; Begin Var mtr := MatrRandomReal(3,3,-6.37,6.37); Var dtr : real; Detr(mtr,dtr); Println(dtr); mtr.Println;
end.

Потому что mtr - это ссылка на динамический массив. Вы передаёте её в процедуру, как параметр-значение, но по сути это всё равно ссылка, что позволяет менять значения элементов массива. А вот если вы захотите изменить размер массива в процедуре, тогда понадобится написать в заголовке var a : array[,] of real;

Нет, вставить Var или не ставить, роль не играет, безразлично. Все равно изменится значение членов массива и в главном программе.

Да, поскольку массив имеет ссылочный тип. Вы должны понимать, что передаете в подпрограмму ссылку на ваш объект, что делает содержащиеся в нем данные доступными для любых модификаций. Вы можете запретить модификацию объявлением параметра как const, но тогда компилятор не позволит в теле подпрограммы изменять значение данных. Так что в Вашем случае нужно предварительно снять с массива копию и передать ее. Например, так:

program Крамер;

procedure Detr(a: array[,] of real; var mdt: real);
begin
  a.Println;
  mdt := a[0, 0] * a[1, 1] * a[2, 2] + a[0, 1] * a[2, 0] * a[1, 2] + a[0, 2] * a[1, 0] * a[2, 1];
  mdt := mdt - a[2, 0] * a[1, 1] * a[0, 2] - a[0, 0] * a[2, 1] * a[1, 2] - a[0, 1] * a[1, 0] * a[2, 2];
  (a[0, 0], a[1, 1]) := (2.2, 3.3);
end;

begin
  var mtr := MatrRandomReal(3, 3, -6.37, 6.37);
  var dtr: real;
  Detr(Copy(mtr), dtr);
  Println(dtr);
  mtr.Println;
end.

Да, спасибо Александр, получилось. Я различные методы поискал, подбирал, например присваивание на другом массиве, затем передать в процедуру. Но никак не получалось.А вот Copy помогло.

1 лайк

Возможно ли проверить, является ли число, сохранённое в переменной типа real, целым, не переводя его в строку?

Всегда ли следует сохранять результат вычисления, если его подразумевается использовать немедленно подряд 2 раза?

Frac(x) = 0

Пример приведите, пожалуйста.

##
var a := 1;
var b := 2;
var s: string;
// Так:
var c := a + b;
if (c > 0) then
  s := c.ToString;
// или так:
if (a + b > 0) then
  s := (a + b).ToString;

Нашёл ответ на другой вопрос: видимо, если Console.TreatControlCAsInput := true, системой обрабатываются только эти нажатия: Windows и некоторые горячие клавиши с Windows, Control + Pause / Break, Print Screen, “светодиодные”.

И в чем проблема? Пишите, как Вам больше нравится. Или Вы ходите пару наносекунд сэкономить? Тогда Вам в Фортран, он умеет оптимизировать код.

Бывают вычисления посложнее или циклы. В общем, всегда сохранять?

Это к разработчикам. Я не знаю внутреннюю кухню JIT.

Возможно ли проверить, является ли число, сохранённое в переменной типа real, целым, не переводя его в строку?

В строку это как раз и не проверка, а костыль. А так - как и все остальные проверки с real, надо проверять с какой то вразумительной для вашей ситуации точностью:

## var x := ReadReal;
Writeln(Abs(x-x.Round) < 0.001);

Хотя теоретически, в этом вопросе можно получить и идеальный результат, рассмотрев биты числа напрямую. Но в любой реальной ситуации кроме прямого ввода с клавиатуры - вам будет выдавать что числа которые выводит как целые - на самом деле не совсем целые.

Всегда ли следует сохранять результат вычисления, если его подразумевается использовать немедленно подряд 2 раза?

Смотря какое вычисление. Есть случаи вроде

.Select(x->(x*x) and (x*x*x))

Тут можно сохранить x*x, но даже если оптимизатор это не сделает - не большая потеря. И всё равно обычно лучше чем что то типа:

.Select(x->
begin
  var x_sq = x*x;
  Result := x_sq and (x_sq*x);
end);

Потому что такая тонкая оптимизация имеет смысл только в самых напряжённых частях программы. А в них операции последовательностей, как .Select, будет бОльшей проблемой для производительности, чем 1 лишнее умножение - то есть весь участок кода будет выглядеть по-другому.

При паузе после завершения консольной программы игнорируется выведенная верхняя часть суррогатных пар:

## Write(char(System.Convert.ToInt32('D800', 16)));

в отличие от

## Write(char(System.Convert.ToInt32('D800', 16)), ' ');

и результаты выполнения этих программ отличаются:

## Write(1);
Console.SetCursorPosition(10,0);
Write(2);
Console.ReadKey(true);
## Write(char(System.Convert.ToInt32('D800', 16)));
Console.SetCursorPosition(10, 0);
Write(2);
Console.ReadKey(true);

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

## Write(char(System.Convert.ToInt32('D800', 16)));
//Console.Clear;
Write(char(System.Convert.ToInt32('DC00', 16)));
Console.ReadKey(true);

Значит, верхняя часть суррогатных пар хранится вне буфера консоли до вывода следующего символа и выводится сразу перед ним. Но где именно она хранится?

$D800, и без всяких строк.

Что касается всех суррогатных пар символов - попробуйте с Console.Write вместо просто write. Если продолжится - это так консоль работает, а не паскаль.

Какие символы занимают не одну позицию в консоли, кроме верхней части суррогатных пар, 7 и 8226, 8 и 9688, 9 и 9675, 10 и 9689, 13 и 9834?

Видимо, никакие, так как пока консоль не поддерживает такие символы, как предварительно составленные, составные, суррогатные пары.

Консоль будет поддерживать суррогатные пары? А составные символы, как …?

Примеры составных символов

$300, $301, $302, $303, $304, $305, $306, $307, $308, $309, $30A, $30B, $30C, $30D, $30E, $30F, $310, $311, $312, $313, $314, $315, $316, $317, $318, $319, $31A, $31B, $31C, $31D, $31E, $31F, $320, $321, $322, $323, $324, $325, $326, $327, $328, $329, $32A, $32B, $32C, $32D, $32E, $32F, $330, $331, $332, $333, $334, $335, $336, $337, $338, $339, $33A, $33B, $33C, $33D, $33E, $33F, $340, $341, $342, $343, $344, $345, $346, $347, $348, $349, $34A, $34B, $34C, $34D, $34E, $34F, $350, $351, $352, $353, $354, $355, $356, $357, $358, $359, $35A, $35B, $35C, $35D, $35E, $35F, $360, $361, $362, $363, $364, $365, $366, $367, $368, $369, $36A, $36B, $36C, $36D, $36E, $36F, $483, $484, $485, $486, $487, $488, $489, $591, $592, $593, $594, $595, $596, $597, $598, $599, $59A, $59B, $59C, $59D, $59E, $59F, $5A0, $5A1, $5A2, $5A3, $5A4, $5A5, $5A6, $5A7, $5A8, $5A9, $5AA, $5AB, $5AC, $5AD, $5AE, $5AF, $5B0, $5B1, $5B2, $5B3, $5B4, $5B5, $5B6, $5B7, $5B8, $5B9, $5BA, $5BB, $5BC, $5BD, $5BF, $5C1, $5C2, $5C4, $5C5, $5C7, $610, $611, $612, $613, $614, $615, $616, $617, $618, $619, $61A, $64B, $64C, $64D, $64E, $64F, $650, $651, $652, $653, $654, $655, $656, $657, $658, $659, $65A, $65B, $65C, $65D, $65E, $65F, $670, $6D6, $6D7, $6D8, $6D9, $6DA, $6DB, $6DC, $6DF, $6E0, $6E1, $6E2, $6E3, $6E4, $6E7, $6E8, $6EA, $6EB, $6EC, $6ED, $711, $730, $731, $732, $733, $734, $735, $736, $737, $738, $739, $73A, $73B, $73C, $73D, $73E, $73F, $740, $741, $742, $743, $744, $745, $746, $747, $748, $749, $74A, $7A6, $7A7, $7A8, $7A9, $7AA, $7AB, $7AC, $7AD, $7AE, $7AF, $7B0, $7EB, $7EC, $7ED, $7EE, $7EF, $7F0, $7F1, $7F2, $7F3, $816, $817, $818, $819, $81B, $81C, $81D, $81E, $81F, $820, $821, $822, $823, $825, $826, $827, $829, $82A, $82B, $82C, $82D, $859, $85A, $85B, $8E3, $8E4, $8E5, $8E6, $8E7, $8E8, $8E9, $8EA, $8EB, $8EC, $8ED, $8EE, $8EF, $8F0, $8F1, $8F2, $8F3, $8F4, $8F5, $8F6, $8F7, $8F8, $8F9, $8FA, $8FB, $8FC, $8FD, $8FE, $8FF, $900, $901, $902, $903, $93A, $93B, $93C, $93E, $93F, $940, $941, $942, $943, $944, $945, $946, $947, $948, $949, $94A, $94B, $94C, $94D, $94E, $94F, $951, $952, $953, $954, $955, $956, $957, $962, $963, $981, $982, $983, $9BC, $9BE, $9BF, $9C0, $9C1, $9C2, $9C3, $9C4, $9C7, $9C8, $9CB, $9CC, $9CD, $9D7, $9E2, $9E3, $A01, $A02, $A03, $A3C, $A3E, $A3F, $A40, $A41, $A42, $A47, $A48, $A4B, $A4C, $A4D, $A51, $A70, $A71, $A75, $A81, $A82, $A83, $ABC, $ABE, $ABF, $AC0, $AC1, $AC2, $AC3, $AC4, $AC5, $AC7, $AC8, $AC9, $ACB, $ACC, $ACD, $AE2, $AE3, $B01, $B02, $B03, $B3C, $B3E, $B3F, $B40, $B41, $B42, $B43, $B44, $B47, $B48, $B4B, $B4C, $B4D, $B56, $B57, $B62, $B63, $B82, $BBE, $BBF, $BC0, $BC1, $BC2, $BC6, $BC7, $BC8, $BCA, $BCB, $BCC, $BCD, $BD7, $C00, $C01, $C02, $C03, $C3E, $C3F, $C40, $C41, $C42, $C43, $C44, $C46, $C47, $C48, $C4A, $C4B, $C4C, $C4D, $C55, $C56, $C62, $C63, $C81, $C82, $C83, $CBC, $CBE, $CBF, $CC0, $CC1, $CC2, $CC3, $CC4, $CC6, $CC7, $CC8, $CCA, $CCB, $CCC, $CCD, $CD5, $CD6, $CE2, $CE3, $D01, $D02, $D03, $D3E, $D3F, $D40, $D41, $D42, $D43, $D44, $D46, $D47, $D48, $D4A, $D4B, $D4C, $D4D, $D57, $D62, $D63, $D82, $D83, $DCA, $DCF, $DD0, $DD1, $DD2, $DD3, $DD4, $DD6, $DD8, $DD9, $DDA, $DDB, $DDC, $DDD, $DDE, $DDF, $DF2, $DF3, $E31, $E34, $E35, $E36, $E37, $E38, $E39, $E3A, $E47, $E48, $E49, $E4A, $E4B, $E4C, $E4D, $E4E, $EB1, $EB4, $EB5, $EB6, $EB7, $EB8, $EB9, $EBB, $EBC, $EC8, $EC9, $ECA, $ECB, $ECC, $ECD, $F18, $F19, $F35, $F37, $F39, $F3E, $F3F, $F71, $F72, $F73, $F74, $F75, $F76, $F77, $F78, $F79, $F7A, $F7B, $F7C, $F7D, $F7E, $F7F, $F80, $F81, $F82, $F83, $F84, $F86, $F87, $F8D, $F8E, $F8F, $F90, $F91, $F92, $F93, $F94, $F95, $F96, $F97, $F99, $F9A, $F9B, $F9C, $F9D, $F9E, $F9F, $FA0, $FA1, $FA2, $FA3, $FA4, $FA5, $FA6, $FA7, $FA8, $FA9, $FAA, $FAB, $FAC, $FAD, $FAE, $FAF, $FB0, $FB1, $FB2, $FB3, $FB4, $FB5, $FB6, $FB7, $FB8, $FB9, $FBA, $FBB, $FBC, $FC6, $102B, $102C, $102D, $102E, $102F, $1030, $1031, $1032, $1033, $1034, $1035, $1036, $1037, $1038, $1039, $103A, $103B, $103C, $103D, $103E, $1056, $1057, $1058, $1059, $105E, $105F, $1060, $1062, $1063, $1064, $1067, $1068, $1069, $106A, $106B, $106C, $106D, $1071, $1072, $1073, $1074, $1082, $1083, $1084, $1085, $1086, $1087, $1088, $1089, $108A, $108B, $108C, $108D, $108F, $109A, $109B, $109C, $109D, $135D, $135E, $135F, $1712, $1713, $1714, $1732, $1733, $1734, $1752, $1753, $1772, $1773, $17B4, $17B5, $17B6, $17B7, $17B8, $17B9, $17BA, $17BB, $17BC, $17BD, $17BE, $17BF, $17C0, $17C1, $17C2, $17C3, $17C4, $17C5, $17C6, $17C7, $17C8, $17C9, $17CA, $17CB, $17CC, $17CD, $17CE, $17CF, $17D0, $17D1, $17D2, $17D3, $17DD, $180B, $180C, $180D, $18A9, $1920, $1921, $1922, $1923, $1924, $1925, $1926, $1927, $1928, $1929, $192A, $192B, $1930, $1931, $1932, $1933, $1934, $1935, $1936, $1937, $1938, $1939, $193A, $193B, $1A17, $1A18, $1A19, $1A1A, $1A1B, $1A55, $1A56, $1A57, $1A58, $1A59, $1A5A, $1A5B, $1A5C, $1A5D, $1A5E, $1A60, $1A61, $1A62, $1A63, $1A64, $1A65, $1A66, $1A67, $1A68, $1A69, $1A6A, $1A6B, $1A6C, $1A6D, $1A6E, $1A6F, $1A70, $1A71, $1A72, $1A73, $1A74, $1A75, $1A76, $1A77, $1A78, $1A79, $1A7A, $1A7B, $1A7C, $1A7F, $1AB0, $1AB1, $1AB2, $1AB3, $1AB4, $1AB5, $1AB6, $1AB7, $1AB8, $1AB9, $1ABA, $1ABB, $1ABC, $1ABD, $1ABE, $1B00, $1B01, $1B02, $1B03, $1B04, $1B34, $1B35, $1B36, $1B37, $1B38, $1B39, $1B3A, $1B3B, $1B3C, $1B3D, $1B3E, $1B3F, $1B40, $1B41, $1B42, $1B43, $1B44, $1B6B, $1B6C, $1B6D, $1B6E, $1B6F, $1B70, $1B71, $1B72, $1B73, $1B80, $1B81, $1B82, $1BA1, $1BA2, $1BA3, $1BA4, $1BA5, $1BA6, $1BA7, $1BA8, $1BA9, $1BAA, $1BAB, $1BAC, $1BAD, $1BE6, $1BE7, $1BE8, $1BE9, $1BEA, $1BEB, $1BEC, $1BED, $1BEE, $1BEF, $1BF0, $1BF1, $1BF2, $1BF3, $1C24, $1C25, $1C26, $1C27, $1C28, $1C29, $1C2A, $1C2B, $1C2C, $1C2D, $1C2E, $1C2F, $1C30, $1C31, $1C32, $1C33, $1C34, $1C35, $1C36, $1C37, $1CD0, $1CD1, $1CD2, $1CD4, $1CD5, $1CD6, $1CD7, $1CD8, $1CD9, $1CDA, $1CDB, $1CDC, $1CDD, $1CDE, $1CDF, $1CE0, $1CE1, $1CE2, $1CE3, $1CE4, $1CE5, $1CE6, $1CE7, $1CE8, $1CED, $1CF2, $1CF3, $1CF4, $1CF8, $1CF9, $1DC0, $1DC1, $1DC2, $1DC3, $1DC4, $1DC5, $1DC6, $1DC7, $1DC8, $1DC9, $1DCA, $1DCB, $1DCC, $1DCD, $1DCE, $1DCF, $1DD0, $1DD1, $1DD2, $1DD3, $1DD4, $1DD5, $1DD6, $1DD7, $1DD8, $1DD9, $1DDA, $1DDB, $1DDC, $1DDD, $1DDE, $1DDF, $1DE0, $1DE1, $1DE2, $1DE3, $1DE4, $1DE5, $1DE6, $1DE7, $1DE8, $1DE9, $1DEA, $1DEB, $1DEC, $1DED, $1DEE, $1DEF, $1DF0, $1DF1, $1DF2, $1DF3, $1DF4, $1DF5, $1DFC, $1DFD, $1DFE, $1DFF, $20D0, $20D1, $20D2, $20D3, $20D4, $20D5, $20D6, $20D7, $20D8, $20D9, $20DA, $20DB, $20DC, $20DD, $20DE, $20DF, $20E0, $20E1, $20E2, $20E3, $20E4, $20E5, $20E6, $20E7, $20E8, $20E9, $20EA, $20EB, $20EC, $20ED, $20EE, $20EF, $20F0, $2CEF, $2CF0, $2CF1, $2D7F, $2DE0, $2DE1, $2DE2, $2DE3, $2DE4, $2DE5, $2DE6, $2DE7, $2DE8, $2DE9, $2DEA, $2DEB, $2DEC, $2DED, $2DEE, $2DEF, $2DF0, $2DF1, $2DF2, $2DF3, $2DF4, $2DF5, $2DF6, $2DF7, $2DF8, $2DF9, $2DFA, $2DFB, $2DFC, $2DFD, $2DFE, $2DFF, $302A, $302B, $302C, $302D, $302E, $302F, $3099, $309A, $A66F, $A670, $A671, $A672, $A674, $A675, $A676, $A677, $A678, $A679, $A67A, $A67B, $A67C, $A67D, $A69E, $A69F, $A6F0, $A6F1, $A802, $A806, $A80B, $A823, $A824, $A825, $A826, $A827, $A880, $A881, $A8B4, $A8B5, $A8B6, $A8B7, $A8B8, $A8B9, $A8BA, $A8BB, $A8BC, $A8BD, $A8BE, $A8BF, $A8C0, $A8C1, $A8C2, $A8C3, $A8C4, $A8E0, $A8E1, $A8E2, $A8E3, $A8E4, $A8E5, $A8E6, $A8E7, $A8E8, $A8E9, $A8EA, $A8EB, $A8EC, $A8ED, $A8EE, $A8EF, $A8F0, $A8F1, $A926, $A927, $A928, $A929, $A92A, $A92B, $A92C, $A92D, $A947, $A948, $A949, $A94A, $A94B, $A94C, $A94D, $A94E, $A94F, $A950, $A951, $A952, $A953, $A980, $A981, $A982, $A983, $A9B3, $A9B4, $A9B5, $A9B6, $A9B7, $A9B8, $A9B9, $A9BA, $A9BB, $A9BC, $A9BD, $A9BE, $A9BF, $A9C0, $A9E5, $AA29, $AA2A, $AA2B, $AA2C, $AA2D, $AA2E, $AA2F, $AA30, $AA31, $AA32, $AA33, $AA34, $AA35, $AA36, $AA43, $AA4C, $AA4D, $AA7B, $AA7C, $AA7D, $AAB0, $AAB2, $AAB3, $AAB4, $AAB7, $AAB8, $AABE, $AABF, $AAC1, $AAEB, $AAEC, $AAED, $AAEE, $AAEF, $AAF5, $AAF6, $ABE3, $ABE4, $ABE5, $ABE6, $ABE7, $ABE8, $ABE9, $ABEA, $ABEC, $ABED, $FB1E, $FE00, $FE01, $FE02, $FE03, $FE04, $FE05, $FE06, $FE07, $FE08, $FE09, $FE0A, $FE0B, $FE0C, $FE0D, $FE0E, $FE0F, $FE20, $FE21, $FE22, $FE23, $FE24, $FE25, $FE26, $FE27, $FE28, $FE29, $FE2A, $FE2B, $FE2C, $FE2D, $FE2E, $FE2F, $101FD, $102E0, $10376, $10377, $10378, $10379, $1037A, $10A01, $10A02, $10A03, $10A05, $10A06, $10A0C, $10A0D, $10A0E, $10A0F, $10A38, $10A39, $10A3A, $10A3F, $10AE5, $10AE6, $11000, $11001, $11002, $11038, $11039, $1103A, $1103B, $1103C, $1103D, $1103E, $1103F, $11040, $11041, $11042, $11043, $11044, $11045, $11046, $1107F, $11080, $11081, $11082, $110B0, $110B1, $110B2, $110B3, $110B4, $110B5, $110B6, $110B7, $110B8, $110B9, $110BA, $11100, $11101, $11102, $11127, $11128, $11129, $1112A, $1112B, $1112C, $1112D, $1112E, $1112F, $11130, $11131, $11132, $11133, $11134, $11173, $11180, $11181, $11182, $111B3, $111B4, $111B5, $111B6, $111B7, $111B8, $111B9, $111BA, $111BB, $111BC, $111BD, $111BE, $111BF, $111C0, $111CA, $111CB, $111CC, $1122C, $1122D, $1122E, $1122F, $11230, $11231, $11232, $11233, $11234, $11235, $11236, $11237, $112DF, $112E0, $112E1, $112E2, $112E3, $112E4, $112E5, $112E6, $112E7, $112E8, $112E9, $112EA, $11300, $11301, $11302, $11303, $1133C, $1133E, $1133F, $11340, $11341, $11342, $11343, $11344, $11347, $11348, $1134B, $1134C, $1134D, $11357, $11362, $11363, $11366, $11367, $11368, $11369, $1136A, $1136B, $1136C, $11370, $11371, $11372, $11373, $11374, $114B0, $114B1, $114B2, $114B3, $114B4, $114B5, $114B6, $114B7, $114B8, $114B9, $114BA, $114BB, $114BC, $114BD, $114BE, $114BF, $114C0, $114C1, $114C2, $114C3, $115AF, $115B0, $115B1, $115B2, $115B3, $115B4, $115B5, $115B8, $115B9, $115BA, $115BB, $115BC, $115BD, $115BE, $115BF, $115C0, $115DC, $115DD, $11630, $11631, $11632, $11633, $11634, $11635, $11636, $11637, $11638, $11639, $1163A, $1163B, $1163C, $1163D, $1163E, $1163F, $11640, $116AB, $116AC, $116AD, $116AE, $116AF, $116B0, $116B1, $116B2, $116B3, $116B4, $116B5, $116B6, $116B7, $1171D, $1171E, $1171F, $11720, $11721, $11722, $11723, $11724, $11725, $11726, $11727, $11728, $11729, $1172A, $1172B, $16AF0, $16AF1, $16AF2, $16AF3, $16AF4, $16B30, $16B31, $16B32, $16B33, $16B34, $16B35, $16B36, $16F51, $16F52, $16F53, $16F54, $16F55, $16F56, $16F57, $16F58, $16F59, $16F5A, $16F5B, $16F5C, $16F5D, $16F5E, $16F5F, $16F60, $16F61, $16F62, $16F63, $16F64, $16F65, $16F66, $16F67, $16F68, $16F69, $16F6A, $16F6B, $16F6C, $16F6D, $16F6E, $16F6F, $16F70, $16F71, $16F72, $16F73, $16F74, $16F75, $16F76, $16F77, $16F78, $16F79, $16F7A, $16F7B, $16F7C, $16F7D, $16F7E, $16F8F, $16F90, $16F91, $16F92, $1BC9D, $1BC9E, $1D165, $1D166, $1D167, $1D168, $1D169, $1D16D, $1D16E, $1D16F, $1D170, $1D171, $1D172, $1D17B, $1D17C, $1D17D, $1D17E, $1D17F, $1D180, $1D181, $1D182, $1D185, $1D186, $1D187, $1D188, $1D189, $1D18A, $1D18B, $1D1AA, $1D1AB, $1D1AC, $1D1AD, $1D242, $1D243, $1D244, $1DA00, $1DA01, $1DA02, $1DA03, $1DA04, $1DA05, $1DA06, $1DA07, $1DA08, $1DA09, $1DA0A, $1DA0B, $1DA0C, $1DA0D, $1DA0E, $1DA0F, $1DA10, $1DA11, $1DA12, $1DA13, $1DA14, $1DA15, $1DA16, $1DA17, $1DA18, $1DA19, $1DA1A, $1DA1B, $1DA1C, $1DA1D, $1DA1E, $1DA1F, $1DA20, $1DA21, $1DA22, $1DA23, $1DA24, $1DA25, $1DA26, $1DA27, $1DA28, $1DA29, $1DA2A, $1DA2B, $1DA2C, $1DA2D, $1DA2E, $1DA2F, $1DA30, $1DA31, $1DA32, $1DA33, $1DA34, $1DA35, $1DA36, $1DA3B, $1DA3C, $1DA3D, $1DA3E, $1DA3F, $1DA40, $1DA41, $1DA42, $1DA43, $1DA44, $1DA45, $1DA46, $1DA47, $1DA48, $1DA49, $1DA4A, $1DA4B, $1DA4C, $1DA4D, $1DA4E, $1DA4F, $1DA50, $1DA51, $1DA52, $1DA53, $1DA54, $1DA55, $1DA56, $1DA57, $1DA58, $1DA59, $1DA5A, $1DA5B, $1DA5C, $1DA5D, $1DA5E, $1DA5F, $1DA60, $1DA61, $1DA62, $1DA63, $1DA64, $1DA65, $1DA66, $1DA67, $1DA68, $1DA69, $1DA6A, $1DA6B, $1DA6C, $1DA75, $1DA84, $1DA9B, $1DA9C, $1DA9D, $1DA9E, $1DA9F, $1DAA1, $1DAA2, $1DAA3, $1DAA4, $1DAA5, $1DAA6, $1DAA7, $1DAA8, $1DAA9, $1DAAA, $1DAAB, $1DAAC, $1DAAD, $1DAAE, $1DAAF, $1E8D0, $1E8D1, $1E8D2, $1E8D3, $1E8D4, $1E8D5, $1E8D6, $E0100, $E0101, $E0102, $E0103, $E0104, $E0105, $E0106, $E0107, $E0108, $E0109, $E010A, $E010B, $E010C, $E010D, $E010E, $E010F, $E0110, $E0111, $E0112, $E0113, $E0114, $E0115, $E0116, $E0117, $E0118, $E0119, $E011A, $E011B, $E011C, $E011D, $E011E, $E011F, $E0120, $E0121, $E0122, $E0123, $E0124, $E0125, $E0126, $E0127, $E0128, $E0129, $E012A, $E012B, $E012C, $E012D, $E012E, $E012F, $E0130, $E0131, $E0132, $E0133, $E0134, $E0135, $E0136, $E0137, $E0138, $E0139, $E013A, $E013B, $E013C, $E013D, $E013E, $E013F, $E0140, $E0141, $E0142, $E0143, $E0144, $E0145, $E0146, $E0147, $E0148, $E0149, $E014A, $E014B, $E014C, $E014D, $E014E, $E014F, $E0150, $E0151, $E0152, $E0153, $E0154, $E0155, $E0156, $E0157, $E0158, $E0159, $E015A, $E015B, $E015C, $E015D, $E015E, $E015F, $E0160, $E0161, $E0162, $E0163, $E0164, $E0165, $E0166, $E0167, $E0168, $E0169, $E016A, $E016B, $E016C, $E016D, $E016E, $E016F, $E0170, $E0171, $E0172, $E0173, $E0174, $E0175, $E0176, $E0177, $E0178, $E0179, $E017A, $E017B, $E017C, $E017D, $E017E, $E017F, $E0180, $E0181, $E0182, $E0183, $E0184, $E0185, $E0186, $E0187, $E0188, $E0189, $E018A, $E018B, $E018C, $E018D, $E018E, $E018F, $E0190, $E0191, $E0192, $E0193, $E0194, $E0195, $E0196, $E0197, $E0198, $E0199, $E019A, $E019B, $E019C, $E019D, $E019E, $E019F, $E01A0, $E01A1, $E01A2, $E01A3, $E01A4, $E01A5, $E01A6, $E01A7, $E01A8, $E01A9, $E01AA, $E01AB, $E01AC, $E01AD, $E01AE, $E01AF, $E01B0, $E01B1, $E01B2, $E01B3, $E01B4, $E01B5, $E01B6, $E01B7, $E01B8, $E01B9, $E01BA, $E01BB, $E01BC, $E01BD, $E01BE, $E01BF, $E01C0, $E01C1, $E01C2, $E01C3, $E01C4, $E01C5, $E01C6, $E01C7, $E01C8, $E01C9, $E01CA, $E01CB, $E01CC, $E01CD, $E01CE, $E01CF, $E01D0, $E01D1, $E01D2, $E01D3, $E01D4, $E01D5, $E01D6, $E01D7, $E01D8, $E01D9, $E01DA, $E01DB, $E01DC, $E01DD, $E01DE, $E01DF, $E01E0, $E01E1, $E01E2, $E01E3, $E01E4, $E01E5, $E01E6, $E01E7, $E01E8, $E01E9, $E01EA, $E01EB, $E01EC, $E01ED, $E01EE, $E01EF

Здравствуйте. У меня не получается автоклик кнопки после запуска программы. А вот на C++ Builder как обычно, без проблем: BitBtn1 → Click(); . Разные методы пробовал, не получается. Сам автоклик записывается в форме.

Используйте метод PerformClick