Subversion Repositories svnkaklik

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,PORTINC, ComCtrls;

type
  PoleTeplot = array [1..544] of byte;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Teplota: PoleTeplot;
  SouborTeplot: File of byte;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: byte;
  n: integer;
begin
 i:=0;
 for n:=1 to 544 do
 begin
   Teplota[n] := i;
   i:=(i+1) mod 256;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  o: byte
  p: byte
begin
{  Function OPENCOM "COM1,1200,N,8,1"
  for o:=1 to 50 do
  begin
  ProgressBar1:= p
  p:=(p+1)
  end; }
end;

end.