Cita:
Empezado por angelp4492
vale perdon
|
Tranquilo, no pasa nada
Cita:
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;
Cita:
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