Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
...сообщения подтверждаются на всех клиентах сразу. В v1 сообщения нужно отдельно подтверждать на каждом клиенте;...Соответственно проект переведен на версию 2. Как разработчик мне 2 версия нравиться больше. Но вот операторам стало не удобно.
case Trunc(PositionTC.Value * 10) of
0..160 : wNumberPlace.Value := 1;
161..1000 : wNumberPlace.Value := 2;
1001..5000 : wNumberPlace.Value := 3;
5001..7000 : wNumberPlace.Value := 4;
7001..10000 : wNumberPlace.Value := 5;
end;
interface
var
MinArrayNamesObjects: array[1..2] of string = (
'человек',
'автомобиль'
);
ArrayNamesObjects: array[1..4] of string = (
'человек',
'велосипед',
'автомобиль',
'кошка'
);
begin
Camera1Text.Text := ArrayNamesObjects[IDObject.AsInt];
end.
var
i: Integer;
pathFileLocal:string;
aList: TM_ScanDirResult;
begin
pathFileLocal := GetProjectPath + 'User files\';
aList := ScanDirectory(pathFileLocal, sdtFiles);
for i := 0 to aList.Count - 1 do
begin
Table1.Columns[0].Cells[i+1].Text := IntToStr(i);
Table1.Columns[1].Cells[i+1].Text := aList[i].Name;
end;
end.