Cita:
Empezado por nlsgarcia
elmago00,
Pregunto: ¿Probastes el código del Msg #34 y la corrección del Msg#35?.
Nelson.
|
Porsupuesto
Nelson y dejame decirte que funciona perfecto. pero bajo un control
TSringGrid.
y estoy usando el código de efisa del msg#17 este código me permite almacenarlo en variable y editarlo desde un archivo y sin usar el Control visible.
lo que hago en estos momentos es pasar tu código para que al igual al de
ecfisa editarlo en un archivo guardado. y luego pasarlo a binario, tal y como lo tienes tu que funciona, pero que no eso ese método por que se demora, 15 minutos en cargar un archivo de 9mb.
Código Delphi
[-]procedure TForm1.SaveDumpBinary(aFileName:TFileName; const BPF: Word);
var
MS: TMemoryStream;
c,r: Integer;
Buffer: Byte;
Msg : String;
begin
with StringGrid1 do
begin
MS:= TMemoryStream.Create;
try
for r:= 1 to RowCount-1 do
begin
for c:= 0 to BPF-1 do
begin
if (Cells[c+1, r] <> '') then
begin
Buffer := StrToInt('$'+Cells[c+1, r]);
MS.WriteBuffer(Buffer, 1);
end;
end;
end;
MS.SaveToFile(aFileName);
finally
MS.Free;
Msg := 'Generación de Archivo Binario Completada Satisfactoriamente';
MessageDlg(Msg,TMsgDlgType.mtInformation,[TMsgDlgBtn.mbOk],0);
end;
end;
end;
este es tu código que trato de usar sin el control.
dirás por que este se complica tanto. por la idea es modificar el archivo sin visualizarlo. así la corrección en el
IC se hace mas rápido, y el procesador (que no es muy poderoso) lo ejecuta rápido.