Исправление прошлого коммита

nofeletru · Jul 8, 2017 · d13d181 · d13d181
1 parent a60d4c1
commit d13d181
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/software/main.pas b/software/main.pas
@@ -1586,7 +1586,7 @@ procedure WriteFlashI2C(var RomStream: TMemoryStream; StartAddress, WriteSize: c
 
 procedure EraseFlashI2C(StartAddress, WriteSize: cardinal; PageSize: word; DevAddr: byte);
 var
-  DataChunk: byte;
+  DataChunk: array[0..2047] of byte;
   Address, BytesWrite: cardinal;
 begin
   if (StartAddress >= WriteSize) or (WriteSize = 0) then
@@ -2168,7 +2168,7 @@ procedure TMainForm.ButtonWriteClick(Sender: TObject);
   PageSize: word;
   WriteType: byte;
   I2C_DevAddr: byte;
-  I2C_ChunkSize: Word;
+  I2C_ChunkSize: Word = 65535;
 begin
 try
   ButtonCancel.Tag := 0;
@@ -2345,7 +2345,7 @@ procedure TMainForm.ButtonWriteClick(Sender: TObject);
 procedure TMainForm.ButtonVerifyClick(Sender: TObject);
 var
   I2C_DevAddr: byte;
-  I2C_ChunkSize: Word;
+  I2C_ChunkSize: Word = 65535;
 begin
 try
   ButtonCancel.Tag := 0;
@@ -2739,7 +2739,7 @@ procedure TMainForm.FormDestroy(Sender: TObject);
 
 procedure TMainForm.ButtonReadClick(Sender: TObject);
 var
-  I2C_DevAddr: byte;
+  I2C_DevAddr: byte = 65535;
   I2C_ChunkSize: word;
 begin
 try