resumo.pas

Host software written in Delphi-pascal for programming, reading and erasing of Atmel s AT90S23X fami

unit resumo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TShow_Dif = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Show_Dif: TShow_Dif;

implementation

uses Main;

{$R *.DFM}

procedure TShow_Dif.FormActivate(Sender: TObject);
var
        Position : word;
        Nodif :Boolean;
begin
Position:=0;
Nodif:=true;
Memo1.Clear;
while position < Numread do
begin
        if (ImageBuffer[position] <> CompareBuffer[position]) then
        begin
        Application.ProcessMessages;
        Memo1.Lines.Add(' Endere鏾 : '+(inttohex(position,4))+#9+' Dado gravado: '+
        (inttohex(CompareBuffer[position],2))+#9+'-> Correto : '+
        (inttohex(ImageBuffer[position],2))+#13);
        Nodif:=false;
        end;
        inc(position);
end;
if Nodif then
      Memo1.Lines.Add('Nenhuma diferen鏰 encontrada !');
Memo1.WantTabs:=False;
Memo1.ReadOnly:=True;


end;

procedure TShow_Dif.Button1Click(Sender: TObject);
begin
        Show_dif.Close;
end;

end.