Jhonas

no proprio link está a resposta , mas se preferir faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...te=enviar+email obs: em um dos tópicos voce vai encontrar a resposta abraço

gostaria de colocar aquele componente que só se pode marcar um use o RadioGroup1 e na propriedade < Items > digite as opções que voce quer abraço

experimente fazer esse teste nas duas maquinas e veja o resultado procedure TForm1.Button1Click(Sender: TObject); var i : real; begin i := 24 * 0.189; //= 4,54 showmessage(formatfloat(',0.00',i)); end; abraço

veja http://delphi.about.com/od/usedbvcl/a/tclientdataset.htm ou http://www.google.com.br/search?hl=pt-BR&a...l1481l2-2.3l5l0 abraço

#! quantidade mínima de caracteres $min = 1; #! quantidade máxima de caracteres $max = 7; abraço

ASCII (American Standard Code for Information Interchange) é uma das formas de representação de caracteres texto no computador. Este padrão foi bastante utilizado em equipamentos de comunição e por isto seus primeiros 32 valores estão associados a controles. O ASCII é normalmente apresentado em forma de tabela. Inicialmente composta de 128 valores foi estendida a 256. Seus caracteres estão dispostos de forma a facilitar a ordenação alfabética - americana. Cada caracter está associado a um número - seu código ASCII. Este número pode ser representado em diversas bases: binária, hexadecimal e a mais utilizada comum, a decimal. http://mywebspace.no.sapo.pt/info/tlp11/tabela_ascii.pdf http://pt.wikipedia.org/wiki/ASCII http://187.7.106.14/marcelo/org_comp/tabelaASCII.pdf http://urs.bira.nom.br/informatica/html.htm http://ifthenelsecontinue.wordpress.com/20...odings-de-java/ http://pt.wikipedia.org/w/index.php?title=...elect=mediawiki e muito mais voce encontra na net abraço

vá em Painel de Controle > Contas de Usuários altere as permissões da conta que deseja abraço

exemplo select sum(depositos) - sum(retiradas) as total from banco OBS: voce só subtrai de um mesmo campo se tiver valores positivos e nagativos nesse mesmo campo valores 10,00 -5,00 15,00 -7,50 ==== 12,50 abraço

veja http://www.babooforum.com.br/forum/index.p...ia-de-arquivos/ abraço

veja http://scriptbrasil.com.br/forum/index.php...e=rodar+em+rede abraço

pode-se fazer assim procedure Tfrma_receber.SpeedButton5Click(Sender: TObject); var D1,D2 : TDateTime; begin D1 := DateTimePicker1.Date; D2 := DateTimePicker2.Date; With Query_Receber do begin Close; SQL.Text := 'SELECT * FROM a_receber WHERE data_vencimento >= :D1 AND data_vencimento <= :D2 '; Parameters.ParamByName('D1').Value := D1; Parameters.ParamByName('D2').Value := D2; ExecSQL; Open; end; end; Obs: tem outros exemplos no forum abraço

exemplo procedure TForm1.Button1Click(Sender: TObject); var i : integer; s : String; begin for i:=1 to DBLookupListBox1.ListSource.DataSet.RecordCount do begin s := DBLookupListBox1.ListSource.DataSet[DBLookupListBox1.ListField]; Showmessage( s ); DBLookupListBox1.ListSource.DataSet.Next; end; end; abraço

voce olhou o código no botão ??? Option Compare Database Option Explicit Function LimpaAcentos(S As String) As String '* Objetivo - Retirar os acentos, sem modificar as strings. '* Parametros - S - String a ter acentos retirados '* Adaptada do Algoritmo para Retirar Acentos para Delphi de Marcio Castilho '* Publicada em 08/12/00 para o site da Revista Delphi Journal '* Adaptacao: Rogerio Olimpio Lourenco de Oliveira - 2000 '* (5120.rogerio@bradesco.com.br) Dim Acentos1 As String, Acentos2 As String, TMP As String, tmp2 As String Dim i As Integer, Aux As Integer Acentos1 = "ÀÌÒÙÈÁÍÓÚÉÃÏÕÜËÄÖÂÎÔÛÊàìòùèáíóúéãïõüëáöâîôûêÇç" Acentos2 = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc" tmp2 = "" For i = 1 To Len(S) Aux = InStr(1, Acentos1, Mid(S, i, 1), 0) If (Aux <= 0) Then TMP = Mid(S, i, 1) Else TMP = Mid(Acentos2, Aux, 1) End If tmp2 = tmp2 + TMP Next i LimpaAcentos = tmp2 End Function Private Sub cmdRemove_Click() Dim d As Database, r As Recordset Set d = CurrentDb Set r = d.OpenRecordset("Acentos") r.MoveFirst Do Until r.EOF 'Faça até que chegue ao último registro 'Recebi a mensagem 'Update ou CancelUpdate sem AddNew ou Edit, mesmo com o edit abaixo 'Acontece que update e movenext estavam em ordem inversa. r.Edit r!Nome = LimpaAcentos(r!Nome) r!Endereco = LimpaAcentos(r!Endereco) r.Update r.MoveNext Loop Set r = Nothing Set d = Nothing Me.Refresh End Sub a informação que voce precisa está ai abraço

se voce formatar o pen drive não vai recuperar mais nada se voce encostou no pendrive e ele sai metade inclinado e não reto em relação ao conector USB, voce pode ter causado um curto ou se estava ocorrendo alguma gravação, provavelmente já ocorreu a perda de dados em todo caso tente http://www.google.com.br/search?q=recupera...p;aqi=&aql= abraço

a maneira mais facil seria assim procedure TForm1.Button1Click(Sender: TObject); begin WinExec('cmd /c netsh interface ip set dns "Conexão local" static 10.0.0.1', 0); end; abraço

tente: http://www.chami.com/tips/delphi/020497D.html abraço

exemplo http://linuxconfig.org/bash-scripts-to-sca...monitor-network abraço

amigo, parece que voce tem dificuldades com o ingles ... certo ? então procure usar o tradutor do Google para poder entender do que se trata no link tem varios exemplos e um deles é: Para obter Configurações do adaptador WiFi TcpIp (IPv4) usar a classe WiFi_AdapterTcpIpSettings procedure GetWiFi_AdapterTcpIpSettingsInfo; 02 const 03 WbemUser =''; 04 WbemPassword =''; 05 WbemComputer ='localhost'; 06 wbemFlagForwardOnly = $00000020; 07 var 08 FSWbemLocator : OLEVariant; 09 FWMIService : OLEVariant; 10 FWbemObjectSet: OLEVariant; 11 FWbemObject : OLEVariant; 12 oEnum : IEnumvariant; 13 iValue : LongWord; 14 begin; 15 FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator'); 16 FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword); 17 FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM iFi_AdapterTcpIpSettings','WQL',wbemFlagForwardOnly); 18 oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant; 19 while oEnum.Next(1, FWbemObject, iValue) = 0 do 20 begin 21 Writeln(Format('Caption %s',[FWbemObject.Caption]));// String 22 Writeln(Format('DefaultGateway %s',[FWbemObject.DefaultGateway]));// String 23 Writeln(Format('Description %s',[FWbemObject.Description]));// String 24 Writeln(Format('DHCP_IP %s',[FWbemObject.DHCP_IP]));// Boolean 25 Writeln(Format('DHCP_WINS %s',[FWbemObject.DHCP_WINS]));// Boolean 26 Writeln(Format('DhcpServer %s',[FWbemObject.DhcpServer]));// String 27 Writeln(Format('DhcpSubnetMask %s',[FWbemObject.DhcpSubnetMask]));// String 28 Writeln(Format('DNS %s',[FWbemObject.DNS]));// Boolean 29 Writeln(Format('DNSPrim %s',[FWbemObject.DNSPrim]));// String 30 Writeln(Format('DNSSec %s',[FWbemObject.DNSSec]));// String 31 Writeln(Format('Domain %s',[FWbemObject.Domain]));// String 32 Writeln(Format('IPAddress %s',[FWbemObject.IPAddress]));// String 33 Writeln(Format('ScopeID %s',[FWbemObject.ScopeID]));// String 34 Writeln(Format('SettingID %s',[FWbemObject.SettingID]));// String 35 Writeln(Format('WINSPrim %s',[FWbemObject.WINSPrim]));// String 36 Writeln(Format('WINSSec %s',[FWbemObject.WINSSec]));// String 37 FWbemObject:=Unassigned; 38 end; 39 end; OBS: Mudar o DNS requer mudança no registry do windows abraço

veja se a instrução SQL esta recebendo realmente os valores D1 := DateTimePicker1.Date; // 26/01/2011 D2 := DateTimePicker2.Date; // 01/03/2012 SQL.Text := 'SELECT * FROM a_receber WHERE data_vencimento BETWEEN D1 AND D2 '; Atente: para as configurações regionais do seu windows com relação a data 26/10/11 é direferente de 26/10/2011 abraço

" is not a valid identifier. " (branco) não é um identificador válido procure no código alguma variavel que esteja com valor nulo ou em branco e deixe como comentário a linha abraço

Writeln(Format('DNSPrim %s',[FWbemObject.DNSPrim]));// String Writeln(Format('DNSSec %s',[FWbemObject.DNSSec]));// String refere-se ao DNS primario e ao DNS secundario OBS: voce precisa entender o código abraço

esse erro acontece quando o caminho do banco de dados ( interbase ou firebird ) está incorreto ou foi alterado pode ser tambem arquivos corrompidos do delphi ( .ddl, .pas .. etc ) se voce não consegue abrir nenhum dos seus projetos no delphi, a solução é desinstalar, limpar os registros do windows ( use o CCleaner ) e reintalar novamente. abraço

veja http://scriptbrasil.com.br/forum/index.php...p;hl=SUBSTITUIR abraço

uma opção seria: http://www.teamviewer.com/pt/index.aspx abraço

exemplos http://www.google.com.br/search?q=rede+ele...p;aqi=&aql= abraço