amigos, intente esto, pero la verdad no va siempre da read error. y lo cambie a 1, pero nada;
Código Delphi
[-]
var
LStream: TMemoryStream;
miVar: longWord;
miStr: string;
todasMisStrings: TStringList;
I: integer;
begin
if not OpenDialog1.Execute then Exit;
LStream:=TMemoryStream.Create;
todasMisStrings:=TStringList.Create;
try
LStream.LoadFromFile(OpenDialog1.FileName);
LStream.Seek(0,soBeginning);
miStr:=''; I:=0;
while (I < LStream.Size - 1) do
LStream.ReadBuffer(miVar, sizeOf(longWord));
miStr:=miStr+IntToHex(miVar,8); miStr:=miStr+' '; if (I mod 32)=0 then begin todasMisStrings.Add(miStr);
miStr:=''; end;
inc(I,1);
finally
LStream.Free;
todasMisStrings.Free;
end;
intente este metodo, pues lo que quiero es leer el archivo en hexadecimal y luego modificar un cadena de ese archivo.