__WIGLAN__
-
Total de itens
17 -
Registro em
-
Última visita
Posts postados por __WIGLAN__
-
-
cara, então o teu erro não esta no delphi. Tenta colocar `\`no final no diretorio : C:\Arquivos de programas\Sistema Mar-Girius\
tenta tambem copiar outra pasta de outro diretorio pra ver se funciona....
-
qual o erro que ele acusa????
da uma olhada nesse link...
http://extremeprogramming.wordpress.com/20...bpastas-delphi/
the +
-
quando executamos o comando copiar no windows, ele dispara uma mensagem. Voce pode identificar essa menssagem e comparar se o conteudo da memoria que é gerada pelo CTRL + C é igual a do memo.
Se for igual voce apaga da memoria.
qualquer duvida so postar...
thé +
------------------------------------------------------
Reverse_Text 2.2. Download Inversor de Link:
http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
------------------------------------------------------
-
amigo, voce pode utilizar o registro do windows pra isso.
-
-
Destrua todos os objetos que voce cria via codigo e para fechar o programa de o comando:
application.Terminate;
thé +
------------------------------------------------------
Reverse_Text 2.2. Download Inversor de Link:
http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
------------------------------------------------------
-
Opa amigo, o seguinte codigo funciona:
de dois cliques no botao e adicione este codigo :
MessageDlg('Olá, pessoal', mtInformation, [mbOK], 0);
ou
Application.MessageBox('Olá, pessoal','Bem Vido',mb_Ok + mb_IconExclamation);
Thé +
-----------------------------------------------------
Reverse_Text 2.2. Download Inversor de Link:
http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
-----------------------------------------------------
-
então cara, acho que desta vez resolvi teu problema. fiz algumas adaptações e correções no programa que vao te ajudar.
segue o link para download... OBS : verifique se o arquivo que voce baixa esta na versão 2.2 :)
http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
Qual quer duvida ou sugestao não deixe de postar....
Novas versões podem surgir...
Portanto, fiquem atentos... e não dexe de fazer o download..... : :D
Obrigado!!!!
-
Cara, não ta muito facil resolve teu problema. Mas estou na luta....
Divulga o programa pros teus amigos ai....
http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
-
não tenho certeza mas provalvelmente seja :
SELECT * from TERMO_RelatorioFinal_sub
where Data_VisitaLocal is null
order by Data_VisitaLocal ;
voce pode usar tambem:
order by Data_VisitaLocal desc //ordem decrescente
order by Data_VisitaLocal asc //ordem crescente
-
tá, me manda um exemplo desse pra mim ve como que funciona isso....
-
Agora entendi o que tu precisa, mas não entendi o porque. Tipo se você já tem o link 'http://migre.me/2JqMS' ai ele vai carrega esse link em uma pagina. Nessa página ele vai gerar a Url de download que vai ser do Megaupload, FileServe, etc... então, Não entendi por que voce quer a Url gerada depois de carregar o link do migre.me???
-
Não entendi muito bem a sua sugestão, mas fiz algumas adaptações no programa.
Baixe ele de novo e teste. Se não for o que tu precisa me avisa.
http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
Baixe pela PRIMEIRA OPÇÂO.
Thé +
-
O link abaixo tem o pacote de componente Rxlib do Delphi 6 até Delphi 2010 :
http://www.multiupload.com/439SU9B0HW
Istalação Passo a Passo :
1 - Copie e extraia a pasta Rxlib na pata lib do delphi (geralmente é em : C:\Arquivos de programas\Embarcadero\RAD Studio\7.0\lib ).
2 - abra o delphi e va em File/Open project
3 - va navegando pela pasta que voce extraio ate achar a pasta delphi 2009 (...7.0\lib\RxLib\packages). Repare que na pasta
packges tera subpastas com diferentes versões do delphi. Escolha a compativel com sua versão e Abra o Arquivo "Rxlib.groupproj"
4 - nas mesagens de warning que aparecer de OK en todas.
5 - De um Jeito bem Tosco : os pacotes que não tiver uma 'engrenagenzinha' voce da um 'Build', as que tiverem 'engrenagenzinha' voce da um 'Build' e em seguida um 'Install'. Faça isso sem pular Nenhum pacote.
6 - depois que terminar salve tudo e crie uma nova aplicação e veja se os componentes estao instalados.
Espero ter ajudado.........
-
Segue o link para download do programa então :
http://extremeprogramming.wordpress.com/20...xt-2-0-solucao/
esse é o blog onde ele ta hospedado...
por favor comentem se gostarem do aplicativo... :unsure:
duvidas e sugestões ou reclamações para melhorias são sempre bem vindas... :rolleyes:
thé + pessoal....
-
OLA AMIGO...
Cansado com esses protetores de link, eu fiz um 'Reverse Text' pra facilitar o trabalho na hora de fazer algun download.
Logo abaixo segue o codigo que abre uma nova guia no navegador com o link de Download:
-------
//vai inverter a string passada como parametro.
function TfrmReverse.Inverte(texto: String): String;
var i: Integer;
begin
for i := Length(texto) downto 1 do begin
Result := Result +copy(texto,i,1);
end;
-------
procedure TfrmReverse.Button2Click(Sender: TObject);
var
Endereço_Url: WideString;
Url_Final : PWideChar;
megaupload,link : string;
I : Integer;
begin
//verifica se o link é do megaupload;
if AnsiContainsText(edit1.text,'d?/moc.daolpuagem.www//:ptth') then begin
megaupload := Inverte(edit1.text);
if Pos('=',megaupload) >= 0 then
Delete(megaupload,1,pos('=',megaupload));
for I := 0 to Length(megaupload) - 1 do Begin
if Copy(megaupload,i,1) = '=' then begin
megaupload := Copy(megaupload,1,(i -1));
break;
end;
End;
link := 'http://www.megaupload.com/?d=' + megaupload;
Url_Final := Addr(link[1]); //converte str para PWideChar
if Application.MessageBox('Deseja Abrir Uma Nova Janela Para Realizar o Download ?','Atenção',
MB_ICONQUESTION + MB_YESNO)= ID_YES then begin
HlinkNavigateString(nil,Url_Final);
end;
end
----------- OBS : o programa trata de outros servidores tambem, não so do megaupload.
se quizer, eu te mando o programa completo pra tu analizar e utilizar.
ESPERO QUE TENHA AJUDADO...
(Resolvido)Pegar valor de uma determinada célula e linha
em Delphi, Kylix
Postado
Amigo,
eu uso o clientdataset em meus formularios. para pegar o valor da Grade, eu uso:
if FdbDevolucoes.SelectedField.FieldName = 'QUANTIDADE' then
showmessage((FdbDevolucoes.SelectedField.Text));