hola.
si claro amigo a eso me refiero
es que en turbo pascal seria asi:
if (correo<>yahoo.es)or(correo<>hotmail.com)or(correo<>gmail.com)then
begin
writeln('este correo no es valido');
end
else
begin
writeln('correo valido');
end;
end.
pero en delphi nose cambios habrian. bye.
|