KeyPreview = Trueprocedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
if [ssCtrl] = Shift then
case Key of
vkZ: //Ctrl+Z pressed
;
end;
end;type
TMyClass1 = class
type
TProperties = class
type
TMeasure = class
Size: TSize;
end;
public
Measure: TMeasure;
end;
public
Properties: TProperties;
constructor Create;
end;
TMyClass2 = class
Properties: record
Measure: record
Size: TSize;
end;
end;
end;
procedure TForm14.FormCreate(Sender: TObject);
begin
var MyItem := TMyClass1.Create;
MyItem.Properties.Measure.Size := TSize.Create(0, 0);
var MyItem2: TMyClass2;
MyItem2.Properties.Measure.Size := TSize.Create(0, 0);
end;
{ TMyClass1 }
constructor TMyClass1.Create;
begin
Properties := TMyClass1.TProperties.Create;
Properties.Measure := TMyClass1.TProperties.TMeasure.Create;
end;от 0 до 20 - 1 печатать() и так сотни раз в коде. от 0 до РАЗМЕР_МАССИВА - 1 печатать()от 0 до ДлиннаМассива(массив) - 1
import datetime
timestamp = '1617379300373+0200'.split('+')
time = float(timestamp[0]) / 1000
time_change = datetime.timedelta(hours=int(timestamp[1][0:2]), minutes=int(timestamp[1][2:]))
dt = datetime.datetime.fromtimestamp(time) + time_change
print(dt)