Crear fichero

[ixMike]

Empezado por angelp4492

vale perdon

Tranquilo, no pasa nada

Empezado por angelp4492

procedure TForm1.ComboBox14Change(Sender: TObject);
begin
case combobox14.ItemIndex of
-1:begin psos:=0 end;//
0:begin psos:=8 end;//
1:begin psos:=8 end;
2:begin psos:=0 end;
end;
end;

Procura utilizar las etiquetas DELPHI para encerrar el código, queda más elegante . Un consejo: si en las opciones de case sólo va una línea de código, no es necesario poner begin accion end;

Quedaría:

Código Delphi [-]
procedure TForm1.ComboBox14Change(Sender: TObject);
begin
case combobox14.ItemIndex of
   -1: psos:=0;
   0: psos:=8;  
   1: psos:=8;
   2: psos:=0;
  end;
end;

Empezado por angelp4492

y como bien me has dicho antes lo grabo en un fichero con

WriteLn(Archivo, combobox1.ItemIndex );

pues bien ahora cuando abro el fichero como tb me has dicho antes pongo.

ReadLn(Archivo, Linea); combobox1.ItemIndex := StrToInt(Linea);

Aquí está el problema. Al igual que al leer el dato haces la conversión StrToInt, al grabarlo tienes que hacer la conversión IntToStr:

Código Delphi [-]
WriteLn(Archivo, IntToStr(combobox1.ItemIndex) );

Creo que ya está


Salu2