GPrimo

De nada! Qualquer coisa se eu poder ajudar, só falar! GPrimo

Bom, estou meio sem tempo agora, mas deu pra eu dar uma estudada no seu código! Eu fui modificando algumas coisas e como faz tempo que eu mexi com pascal, talvez eu tenha errado alguma coisa.. e eu não tenho como testar.. Esse é o código que deve funcionar: Program Pzim ;VARvet:array[1..10] of integer;c1,c2,en,x:integer;Begin for c1:=1 to 10 do begin //comandos writeln( 'slot', c1 ) ; readln( en ) ; x:=0; while c2<=10 do begin //comandos if ( en=vet[c2] ) then x:=1; if (( c2=10 ) And ( x=1 )) then begin writeln( 'este codigo ja existe, favor mudar' ) ; readln( en ); c2:= 1; end else c2:=c2+1 end; vet[c1]:=a; end;end. Eu mudei os nomes de algumas variáveis pois eu me perdi hehe Faz o teste e vê se realmente é isso que você deseja! Se você não entendeu só falar que eu explico o que eu fiz ai Quando eu estiver com mais tempo(hoje mesmo) e claro, se você quiser.. eu coloco comentários para você entender melhor o código! Espero ter ajudado! GPrimo

Não sei se é exatamente isso que você quer Mas você pode criar uma variável, que quando o usuário entrar com o código, você salva o valor nessa variável(ela será para verificar) Depois você coloca em um (for to do) onde ele verificará todos os vetores se existe alguma variável vetor com o mesmo que o usuário entrou! Espero ter ajudado! GPrimo

Sim, eu entendo.. Acho melhor tentar pegar o resultado do outro programa! O programa que eu utilizo é o Quickmark, só que eu não tenho nenhuma ideia de como fazer para pegar o valor dele. Neste link diz como baixa-lo: http://www.miranda.com.br/blog/como-ler-qr-code-no-seu-pc/128/ Se possível, dê uma olhada para mim por favor ? Pois preciso muito do resultado da leitura do QR Code! Obrigado!

Fala galera, tudo bem ? Estou cursando Ensino Médio junto ao Técnico e estou começando a aprender a programa em Delphi.. Estive pesquisando e pensei em criar um projeto para mim, onde eu iria utilizar do QR Code. O que eu vim pedir ajuda de vocês é que se existe uma forma de eu criar um programa em Delphi que ele leia o QR CODE via webcam ? eu andei pesquisando e achei um aplicativo chamado "Quickmark" que ele simplesmente lê um código QR. Então se não tiver como eu criar um programa onde eu possa ler o QR CODE no Delphi, tem como eu pegar o resultado que esse programa(Quickmark) pega do QR CODE e passar para uma variável no meu projeto ? Se não entenderem por favor me digam que eu tento explicar mais detalhadamente! Desde já, Obrigado! GPrimo