Ir para conteúdo
Fórum CódigoFonte.net

felyphe

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. felyphe

    Duvidas delphi ajudem

    Alguém me ajuda pois tenho um executável em .bat que funciona da seguinte forma ... se eu digitar o código Ex: 0230 ele abre o arquivo Felipe.txt se eu digitar 0231 ele abre o arquivo joao.txt sendo assim cada item que quero abrir tem um código diferente. Queria saber como fazer o mesmo em Delphi, pois não achei nada a respeito nas minhas pesquisas .. tipo eu crio uma caixa de texto Edit1 é um botão , e digito o código na caixa de texto e ele vai buscar o arquivo especificado!! ai esta uma parte do codigo set /p opcao= Digite o Codigo Da Etiqueta: echo ------------------------------ if %opcao% equ 020000 goto opcao0 if %opcao% equ 020712 goto opcao1 if %opcao% equ 020714 goto opcao2 if %opcao% equ 020717 goto opcao3 if %opcao% equ 020718 goto opcao4 if %opcao% equ 020720 goto opcao5 if %opcao% equ 020722 goto opcao6 if %opcao% equ 020723 goto opcao7 if %opcao% equ 020724 goto opcao8 if %opcao% equ 020728 goto opcao9 if %opcao% equ 020729 goto opcao10 if %opcao% equ 020735 goto opcao11 if %opcao% equ 020736 goto opcao12 if %opcao% equ 020738 goto opcao12 if %opcao% equ 020750 goto opcao15 if %opcao% equ 020923 goto opcao16 if %opcao% equ 020925 goto opcao17 if %opcao% equ 020942 goto opcao18 if %opcao% equ 020711 goto opcao19 if %opcao% equ 020713 goto opcao20 if %opcao% equ 020715 goto opcao21 if %opcao% equ 020716 goto opcao22 if %opcao% equ 020717 goto opcao23 if %opcao% equ 020719 goto opcao24 if %opcao% equ 020726 goto opcao25 if %opcao% equ 020727 goto opcao26 if %opcao% equ 020733 goto opcao27 if %opcao% equ 020734 goto opcao28 if %opcao% equ 020751 goto opcao29 if %opcao% equ 020922 goto opcao30 if %opcao% equ 020751 goto opcao31 if %opcao% equ 020922 goto opcao32 if %opcao% equ 020924 goto opcao33 if %opcao% equ 48 goto opcao34 if %opcao% equ 020764 goto opcao35 if %opcao% equ 20710 goto opcao36 if %opcao% equ 20714 goto opcao37 if %opcao% equ 20720 goto opcao38 if %opcao% equ 20723 goto opcao39 if %opcao% equ 20732 goto opcao40 if %opcao% equ 20735 goto opcao41 if %opcao% equ 20739 goto opcao42 if %opcao% equ 20750 goto opcao43 if %opcao% equ 20942 goto opcao44 if %opcao% equ 020725 goto opcao45 if %opcao% equ 020752 goto opcao100 if %opcao% equ 020753 goto opcao101 if %opcao% equ 020754 goto opcao102 if %opcao% equ 020755 goto opcao103 if %opcao% equ 020756 goto opcao104 if %opcao% equ 020757 goto opcao105 if %opcao% equ 020759 goto opcao106 if %opcao% equ 020760 goto opcao107 if %opcao% equ 020761 goto opcao108 if %opcao% equ 020931 goto opcao109 if %opcao% equ 020933 goto opcao110 if %opcao% equ Ajuda goto opcao999 if %opcao% equ 20711 goto opcao200 if %opcao% equ 20715 goto opcao201 if %opcao% equ 20727 goto opcao202 if %opcao% equ 20733 goto opcao203 if %opcao% equ 20751 goto opcao204 if %opcao% equ 20929 goto opcao205 if %opcao% equ 020737 goto opcao206 if %opcao% equ 10 goto opcao207 if %opcao% equ 00 goto opcao208 if %opcao% equ ajuda goto opcao999 if %opcao% equ contato goto opcao888 if %opcao% equ Contato goto opcao888 if %opcao% equ CONTATO goto opcao888 if %opcao% equ COMANDOS goto opcao555 if %opcao% equ Comandos goto opcao555 if %opcao% equ comandos goto opcao555 if %opcao% equ 020503 goto opcao1200 if %opcao% equ 020606 goto opcao1201 if %opcao% equ 020638 goto opcao1202 if %opcao% equ 020765 goto opcao1203 if %opcao% equ 020766 goto opcao1204 if %opcao% equ 020767 goto opcao1205 if %opcao% equ 020901 goto opcao1206 if %opcao% equ 020903 goto opcao1207 if %opcao% equ 020913 goto opcao1208 if %opcao% equ 020917 goto opcao1209 if %opcao% equ 020918 goto opcao1210 if %opcao% equ 020926 goto opcao1211 if %opcao% equ 020744 goto opcao1212 if %opcao% equ 020746 goto opcao1213 if %opcao% equ 020748 goto opcao5566 if %opcao% equ 020749 goto opcao5577 if %opcao% equ 20 goto opcao5588 if %opcao% equ goto opcao1213 if %opcao% equ goto opcao1213 :opcao0 Title ERROR 404 cls color FC echo ========================================================================== echo Produto Nao encontrado, Confira o Codigo."ERROR 404" echo Revise o Codigo e Tente Novamente. Blessed By God !!!! echo =========================================================================== pause goto menu :opcao1 cls @echo Carre Suino congelado 20712. start C:\congelados\20712.btw pause goto menu :opcao2 cls echo Picanha Premium Congelada 20714 start C:\congelados\20714.btw pause goto menu :opcao3 cls start C:\congelados\20717.btw pause goto menu :opcao4 cls start C:\congelados\20718.btw pause goto menu :opcao5 cls start C:\congelados\20720.btw pause goto menu
×
×
  • Criar Novo...