manejo de archivos

uso de el tmemo
y el check box

declaramos variables de text
este programa esta en el boton guardar
fue creado un edit de titulo
y dos combo box

var f1 : text ; f2 : file ;
begin assignfile(f1,c:/datos.txt);
if fileexists(c:datos.txt) then reset(f1)
else append(f1)
writeln(f1,tit.items[tit.itemindex];
writeln(f1,dep.items[dept.itemisdex];
writeline(f1,

como cambiar el form principal

proyect despues option
despues form priipal y pones el que tu quieras que se corra primero

para mostrar mensajes

showmessage ('hola')

o

message alg

combo box

propiedad items

escribe elementos de la lista
lista de cadenas de caracteres

es parecido a un vector
lo podemos tratar como un vector

para buscar lo que fue seleccionado hay dos formas

1era: con el comando items[nombredelcombox.itemindex]

2:da items[0.....items-1]

puedo usar el case var (var es el nombre del combobox.itemindex) pero solo si uso el indice porque el case trabaja solo con numeros...

case var of
valor1 : instruccion

valor2: begin
instruccion2;
instruccion3;
end
end;

el case var es el unico que usa end al final pero no usa begin al comienzo
nota: las comillas son simples ' algo '

mi programa (no esta completo pero fuciona bien)

procedure TForm1.Button1Click(Sender: TObject);begin case fac.itemindex of 0 :if esc.items[esc.ItemIndex] = 'electrica' then showmessage( 'ingenieria electrica') else if esc.items[esc.itemindex]= 'mecanica' then begin showmessage('ingenieri mecanica') ; form2.show end else if esc.items[esc.itemindex] = 'civil' then showmessage ('ingenieria civil') else showmessage('error no coincide la facultad con la escuela'); 1 : if esc.items[esc.itemindex] = 'economia' then showmessage( 'correcto') else if esc.items[esc.itemindex] = 'contaduria' then showmessage('contaduria') else showmessage( 'error no coincide la facultad de contaduria con la escuela');
end;end;
procedure TForm1.facChange(Sender: TObject);begin
end;
procedure TForm1.escChange(Sender: TObject);begin
end;
end.



otra manera....
hacer varios combobox

vamos a jugar con la visibilidad de los form
primero colocamos todos los form en visibilidad false menos el que vamos a dejar por defecto

despues me meto en el combobox de facultad
y escribo:
procedure TForm3.facChange(Sender: TObject);begin if fac.Itemindex =0 then begin faces.visible:=false; ing.visible:=true; facyt.visible:=false; end else if fac.itemindex=1 then begin faces.visible:=false; ing.visible:=false; facyt.visible:=true; end



como obtener el indice del combobox y que es
el indice es el numero d la eleccion ejemplo
opciones electrica faces economia
electrica es 0 faces es 1 y economia es 2

comando usado fac.itemindex