А что, не куча? Сейчас бери что хочешь: хочешь электон, хочешь Го, хочешь питон или C#, хочешь Раст, хочешь пиши на Яве, на плюсах, на чем угодно. В 2007  - питон, плюсы, куча дот.нет диалектов, PHP + JS опять же - все не буду перечислять. Да, у дельфей - пожалуй лучший дизайнер форм до сих пор, но куча времени упущена. Пока они внедряли ненужный .net - время было безнадежно упущено. А второй раз они свернули не в ту сторону, когда стал появляться тренд на комьюнити версии, а CodeGear\Embarcadero держалось за цены и легаси.

Я еще помню Delphi Prism, скока туда труда и денег было вложено😄

я это нытьё вижу уже второй десяток лет ) всё вот тоже самое говорили и в 2002 и в 2010 и сейчас. так что продолжаем спокойно работать. ничего не изменилось с людьми, а делфи стала лучше на голову за это время

я это нытьё вижу уже второй десяток лет ) всё вот тоже самое говорили и в 2002 и в 2010 и сейчас. так что продолжаем спокойно работать. ничего не изменилось с людьми, а делфи стала лучше на голову за это время

Добрый день!
Прошу подсказать как правильно выполнить код (возможно иметься «классическое» решение), когда для одинаковых событий однотипных визуальных компонентов иметься одинаковое содержание, с целью избежать написания однотипного кода (просто пример):

procedure TForm1.CoreSGCheckboxToggled(sender: TObject; aCol, aRow: Integer;
  aState: TCheckboxState);
begin
  if (CoreSG.Cells[1, aRow] = '0') then
    CoreSG.Cells[2, aRow] := '';
end;

procedure TForm1.TankSGCheckboxToggled(sender: TObject; aCol, aRow: Integer;
  aState: TCheckboxState);
begin
  if (TankSG.Cells[1, aRow] = '0') then
    TankSG.Cells[2, aRow] := '';
end;

кастишь sender к TStringGrid и используешь это значение как универсальное вместо CoreSG и TankSG

Добрый день!
Прошу подсказать как правильно выполнить код (возможно иметься «классическое» решение), когда для одинаковых событий однотипных визуальных компонентов иметься одинаковое содержание, с целью избежать написания однотипного кода (просто пример):

procedure TForm1.CoreSGCheckboxToggled(sender: TObject; aCol, aRow: Integer;
  aState: TCheckboxState);
begin
  if (CoreSG.Cells[1, aRow] = '0') then
    CoreSG.Cells[2, aRow] := '';
end;

procedure TForm1.TankSGCheckboxToggled(sender: TObject; aCol, aRow: Integer;
  aState: TCheckboxState);
begin
  if (TankSG.Cells[1, aRow] = '0') then
    TankSG.Cells[2, aRow] := '';
end;

Спасибо Виктор, прежде чем написать в канал я смотрел примеры, в них указывался этот вариант. Но если сможете, поясните пожалуйста,

procedure TForm1.CoreSGCheckboxToggled(sender: TObject; aCol, aRow: Integer;
  aState: TCheckboxState);
var
  LStringGrid: TStringGrid;
begin
  LStringGrid := Sender as TStringGrid; 
  if (LStringGrid.Cells[1, aRow] = '0') then
    LStringGrid.Cells[2, aRow] := '';
end;

и назначить это событие всем гридам

Продолжу срач ))) На счет FMX/FGX: вы пробовали выполнять отладку на Андроиде (на подключенном телефоне или на виртуалке)? это ж ппц... тормоза нереальные, единственное ,что частино спасало от тормозов в FMX, так это то, что FMX-проект частично можно было отлаживать прямо на Винде. Но это частично. И это я еще на iOS не пытался.... отладка uniGUI проекта - это совсем другое дело... в браузерах сейчас средства отладки довольно мощные + есть Remote mobile debug DevTools для Лисички.

да, переметнулся с FMX на uniGUI :)