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

Duvidas delphi ajudem

Recommended Posts

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
 

 

 

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...

×
×
  • Criar Novo...