1
Ваши вопросы / Re: Бегущая строка
« : 19 Ноября 2024, 14:25:16 »Код: (delphi)
Begin
S.Value := Copy(S.Value, 2, Length(S.Value)) + Copy(S.Value, 1, 1);
Text1.Text := S.Value;
RunDelay(200, 1);
End;
Тоже ничего) Хочу красивее)
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Begin
S.Value := Copy(S.Value, 2, Length(S.Value)) + Copy(S.Value, 1, 1);
Text1.Text := S.Value;
RunDelay(200, 1);
End;