Problemas con Case
Publicado por Bezuko (7 intervenciones) el 10/05/2017 04:17:19
Buenas Noches
Estoy tratando de usar la estructura Case, pero me da error y no se que es lo que estoy haciendo mal. Tengo un pequeño ejemplo de lo que quiero hacer, si es que me pueden ayudar. Desde ya muchas gracias
A continuación les dejo el codigo
Estoy tratando de usar la estructura Case, pero me da error y no se que es lo que estoy haciendo mal. Tengo un pequeño ejemplo de lo que quiero hacer, si es que me pueden ayudar. Desde ya muchas gracias
A continuación les dejo el codigo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var d:integer;begin
d:=strtoint(dia.text);
case d of
1: Beginshowmessage('El dia es LUNES');
end;
2: Beginshowmessage('El dia es MARTES');
end;
else
Begin
showmessage('ERROR');
end;
end;
end.Valora esta pregunta
0
