Como aumentar o valor do loop FOR em uma instrução FOR-loop?
Eu quero saber como aumentar o valor em uma instrução FOR-loop.
Este é o meu código.
function Check(var MemoryData:Array of byte;MemorySignature:Array of byte;Position:integer):boolean;
var i:byte;
begin
for i := 0 to Length(MemorySignature) - 1 do
begin
while(MemorySignature[i] = $FF) do inc(i); //<< ERROR <<
if(memorydata[i + position] <> MemorySignature[i]) then Result:=false;
end;
Result := True;
end;
O erro é: E2081 Atribuição à variável FOR-Loop 'i'.
Eu estou tentando traduzir um código antigo de c # para Delphi, mas não posso aumentar 'i'. Aumentar o 'i' não é o único caminho a seguir, mas quero saber onde está o problema.