Delphi - administrador base de datos

 
Vista:

administrador base de datos

Publicado por julio ramos (2 intervenciones) el 09/08/2005 21:21:04
quiero hacer que me cambien los caption de algunos botones dependiendo el caption que tenga

if f2.Caption = 'f2' then

f2.Caption := 'Cobrar';
f3.Caption := 'Anular';
f4.Caption := 'Imprimir';
f5.Caption := 'Desembolso';
f6.Caption := '';
f10.Caption := 'Logout';

else
f2.Caption := 'Cobrar1';
f3.Caption := 'Anular1';
f4.Caption := 'Imprimir1';
f5.Caption := 'Desembolso1';
f6.Caption := '1';
f10.Caption := 'Logout1';

end;

al final me da un error que me dice

[Error] Cobros.pas(62): ';' not allowed before 'ELSE'

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Cobros.pas'

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:administrador base de datos

Publicado por Alejandro Sevilla (18 intervenciones) el 09/08/2005 22:24:35

Recuerda que en el lenguaje Pascal no debes agregar ' ; ' a una instruccion anterior a un else, quita el ; (punto y coma) que esta en la linea

f10.Caption := 'Logout'; //debes quitar este punto y coma
else
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:administrador base de datos

Publicado por Dr Juzam (821 intervenciones) el 09/08/2005 22:42:19
A lo dicho por Alejandro debes añadir que cuando una estructura de control va a contenener más de una instrucción debe estar delimitada por BEGIN..END.
Esto es un error un poco básico y además el compilador te lo estaba diciendo bastante claro ;-)

if f2.Caption = 'f2' then BEGIN

f2.Caption := 'Cobrar';
f3.Caption := 'Anular';
f4.Caption := 'Imprimir';
f5.Caption := 'Desembolso';
f6.Caption := '';
f10.Caption := 'Logout';

END

else BEGIN
f2.Caption := 'Cobrar1';
f3.Caption := 'Anular1';
f4.Caption := 'Imprimir1';
f5.Caption := 'Desembolso1';
f6.Caption := '1';
f10.Caption := 'Logout1';

END;

end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar