Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизДобрый день хотелось бы попросить о помощи Найти похожие ветки
← →
MBo (2002-04-04 16:16) [9]примерно так
var Form1:TForm1;
Aboolean:Boolean;
Cnt:integer;
procedure TForm1.Timer1Timer(Sender:TObject);
begin
Aboolean:=not Aboolean;
Inc(CNt);
if Aboolean then Y:=1 else Y:=-1;
Series1.AddXY(Cnt,Y);
While Series1.Count>100 do
Series1.Delete(0);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c