MEMBROS (17)
OUTROS GRUPOS
NOVOS USUÁRIOS
A tocha olimpica percorrera quantos paises?
a) 25 estados
b) 26 estados
c) 27 estados
d) 28 estados
e) 30 estados
ver outra »
U07E6_USER000000000
Delphirespondeu:30-Aug-10 21:31
Begin
if opendialog1.execute then
begin
mediaplayer1.filename:= opendialog1.filename;
mediaplayer1.open;
mediaplayer1.Perform (wm_lbuttondown,0,$00090009);
mediaplayer1.Perform (wm_lbuttonup,0,$00090009);
end;
end;
Anônimorespondeu:13-Nov-12 19:27
Esse código ficaria em abrir mídia?
Anônimo000000000
perguntou para Delphi03-May-11 15:49
Olá pessoal. Preciso de uma ajuda.
Preciso fazer uma consulta em SQL no meu programa, em Delphi 7, da seguinte maneira.
Digamos que eu tenho um cadastro de pessoas como se fosse o cadastro da policia. tipo (altura, idade, olhos...)
Na consulta pus oito campos (edit.text) para fazer a busca.
Mas, a busca eu quero assim:
Dou a altura, ele me lista todas as pessoas com a altura que forneci.
Dou a idade, ele me lista todas as pessoas com a altura que forneci + a idade que escrevi no campo. E assim vai.
Como se fosse uma filtragem.
Porém, não é necessariamente nesta ordem.
A próxima consulta, por exemplo, eu posso começar fornecendo primeiro a cor dos olhos, depois o peso, depois a idade e assim por diante.
Não estou conseguindo fazer. Se alguém puder me ajudar, desde já, fico muito grato. Obrigado.?
Preciso fazer uma consulta em SQL no meu programa, em Delphi 7, da seguinte maneira.
Digamos que eu tenho um cadastro de pessoas como se fosse o cadastro da policia. tipo (altura, idade, olhos...)
Na consulta pus oito campos (edit.text) para fazer a busca.
Mas, a busca eu quero assim:
Dou a altura, ele me lista todas as pessoas com a altura que forneci.
Dou a idade, ele me lista todas as pessoas com a altura que forneci + a idade que escrevi no campo. E assim vai.
Como se fosse uma filtragem.
Porém, não é necessariamente nesta ordem.
A próxima consulta, por exemplo, eu posso começar fornecendo primeiro a cor dos olhos, depois o peso, depois a idade e assim por diante.
Não estou conseguindo fazer. Se alguém puder me ajudar, desde já, fico muito grato. Obrigado.?
U07E6_USER000000000
perguntou para Delphi24-Aug-10 18:43
To precisando de ajuda para fazer uma função para inverter um string, alguem pode ajudar?
Delphirespondeu:01-Sep-10 15:04
(* Função Inverte
Inverter um String
Parametros Tipo Objetivo
wStr1 String Especificar a Data a ser invertida
i Integer Contador do laço for
Retorno String A String invertida *)
function Inverte (wStr1: String): String;
var i: Integer;
begin
Result := '';
for i := Length( wStr1 ) downto 1 do Result := Result +
copy(wStr1,i,1 );
end;
U07E6_USER000000000
perguntou para Delphi25-Aug-10 23:25
alguem pode passar a função para apresentação de uma data no formato 'dia da semana'?
Delphirespondeu:01-Sep-10 02:07
function MostraData(dtData: TDateTime): string;
var
intDiaSemana: integer;
strDiaSemana: string;
begin
intDiaSemana := DayOfWeek(dtData);
case intDiaSemana of
1: strDiaSemana := 'Domingo - ';
2: strDiaSemana := 'Segunda-feira - ';
3: strDiaSemana := 'Terça-feira - ';
4: strDiaSemana := 'Quarta-feira - ';
5: strDiaSemana := 'Quinta-feira - ';
6: strDiaSemana := 'Sexta-feira - ';
7: strDiaSemana := 'Sábado - ';
end;
Result := strDiaSemana+DateToStr(dtData);
end;
U07E6_USER000000000
perguntou para Delphi26-Aug-10 22:24
ei alguem pode passar um códico para copiar arquivos e pastas em uso?
Delphirespondeu:30-Aug-10 12:30
vá para o prompt e
WinExec(PChar('xcopy c:pastaOrigem d:pastaDestino /y/e/c'),SW_hide);
/y = Substitui arquivos e pastas sem lhe questionar.
/e = Copia arquivos e pastas vazias ou nao.
/c = continua copiando mesmo que ocorram erros.
<<<1>>>
Carregando...