ficheros con array dinamico

[[Lepe]]

En el código asignas las variables, pero no veo donde se usan, así que no puedo saber para qué sirven y si puede eliminarse algunas.

De momento el combo10 y combo11 usan el mismo código y puede compartirse. En el inspector de objetos, para el combo11, elige la misma rutina que para el combo 10 y el código:

Código Delphi [-]
procedure TForm1.ComboBox10Change(Sender: TObject);
begin
// como sabemos que este evento está compartido
// para dos Combobox, el Sender siempre será
// un Tcombobox, por ello no pregunto, directamente
// hago el moldeo de tipos.

// PD: es bueno dejar una línea comentada diciendo
// que el evento se comparte para el combo10 y el 11
// eso te ayudará cuando necesites ampliar esta rutina

  case TCombobox(Sender).ItemIndex of
   -1:muro1:=0 ;
    0:muro1:=50 ;
    1:muro1:=25 ;
  end;
end;

Saludos

[angelp4492]

No me cabia todo el codigo y por eso no se ven donde se asignan las variables, pero las utilizo basicamente para hacer multuplicaciones y sumas, lo q pretendo hacer es meter todas los datos en un tstring o en un array dinamico, y asi solo tener una variable, y luego poder guardar y grabar
gracias

[jachguate]

He preparado un ejemplo básico de cómo podrías guardar un arreglo dinámico usando streams. No he tenido oportunidad de probarlo, pero espero que te funcione bien.

Código Delphi [-]
type
  IntegerArray = array of Integer;

procedure GuardaArray(const a: IntegerArray);
var
  st: TFileStream;
  Long: Integer;
begin
  st := TFileStream.Create('c:\datos.dat', fmCreate);
  try
    Long := Length(a);
    st.Write(Long, SizeOf(Long));
    st.Write(a, SizeOf(Integer) * Long);
  finally
    st.Free;
  end;
end;

procedure LeeArray(var a: IntegerArray);
var
  st: TFileStream;
  Long: Integer;
begin
  st := TFileStream.Create('c:\datos.dat', fmOpenRead);
  try
    st.Read(Long, SizeOf(Long));
    SetLength(a, Long);
    st.Read(a, SizeOf(Integer) * Long);
  finally
    st.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TIntegerArray;
begin
  //llenar el arreglo
  GuardaArray(a);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  a: TIntegerArray;
begin
  LeeArray(a);
  //usar el arreglo
end;

Hasta luego.