Crear fichero

[ixMike]

Empezado por angelp4492

... tengo q mostrar datos en un combobox...
...no hace los calculos o sea que es como si lo tuviese a cero...
...en el case of cuando el itemindex es -1 o sea que no esta selecionado.

Lo siento, pero no se ha entendido nada. ¿Qué no está seleccionado? ¿Qué cálculos ha de hacer? ¿Qué es para ti "tenerlo a cero"?

Es más, ¿qué ComboBox?

Si esto no tiene nada que ver con la duda anterior, abre un nuevo post. Y, por favor, explícate de forma un poco más clara y ordenada.


Saludos.

[angelp4492]

vale perdon

tengo esto en un combobox
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;

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);


y en el combobox se me selecciona el items que he guardado.
por ejemplo si seleccione en el combobox segundo que tiene itemindex(2).
cuando cargo el archivo se me selecciona segundo en el combobox hasta ahora bien.

pero luego tengo que multiplicar por ejemplo 5*valor del itemindex y me da cero. es como si no estuviera nada seleccionado y me coje el cero que es como el itemindex=-1 que es 0;

[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