Churc

unit Funcoes; interface //Aqui voce declara todas as funcoes que quer exportar pra outras units function Descriptografar(texto : String) : String; implementation function Descriptografar(texto : String) : String; begin result := 'teste'; end; end.

coloca tipo usuario e senha, já que ele requer autenticacao exemplo: mailmsg.username := 'nome do usuario da conta de email'; mailmsg.password := 'senha da conta de email'; mas nunca usei MailMessage, portanto foi só uma dica do que você tem que fazer

http://zeosforum.net.ms/

faça um loop na tabela, armazenando os dados da tabela em variaveis e jogando numa stringlist, no final você salva... use separadores para identificar os campos... e use o caracteres diferentes como separador, pra não causar conflito caso algum dado na tabela tenha aquele caracter

if (application.messagebox('Mensagem','Titulo a mensagem', mb_yesno + mb_iconquestion) = idYes) then usuario clicou em sim else usuario clicou em não

opa blzz perdeu os tópicos? bool eaegalera(char parametro[9]) { char data[9]; _strdate(data); // adicionou a variavel a data no formato mm/dd/yy if (parametro[1] == data[4] && parametro[2] == data[8] { return TRUE; } } acho que o que salva ai é só como pegar a data né auhahu Tem outro jeito mas apaguei e no win98 não funcionou, que é formatando a data, se eu achar eu posto aqui vlw kandrade pela ajuda abraços brother

eae galera blzz tipo, eu tava querendo fazer tipo uma função, que ao comparar strings retorna-se o resultado verdadeiro ou falso... tipo, eu não manjo nada de c++, to aprendendo agora, eu mexo com delphi... seria possivel assim, eu não conheço os operadores do c++, então vo passar mais ou menos como seria no delphi function eaegalera(parametro: string): boolean; var data, teste1, teste2: string; begin if (length(parametro) = 8) then begin data := FormatDateTime('ddmmyyyy',now); teste1 := data[3]; teste2 := data[8]; result := (parametro[1] = teste1) and (parametro[2] = teste2); end; end; ahuahu, se alguém puder me dar uma dica de como fazer em C++ tipo, como adiciona a uma string um valor de data formatada? (no exemplo acima seria data := FormatDateTime('ddmmyyyy',now); que ficaria igual...por exemplo a data de hoje 22102005) e a comparação de string é da mesma forma tipo string[1] = bla[1] ? obrigado abraços

ae tipo, você está fazendo certo, porém se não está dando certo é algo com o componente... procure saber deste componente, como carregar skins em tempo de execução já que active não está carregando... olhe se não tem outras propriedades, tipo load... que componente é este? VCLSkin? abraços

ae brother... tipo...você leu o arquivo.ini mas não adicionou o valor lido em nenhuma variavel... ou seja, apenas leu... vamos supor que em 'skin' 'data' teria o caminho do skin, e que o componente de skin chama-se "appskin" então exemplo procedure Tf_acessar_sistema.FormShow(Sender: TObject); var Data : TIniFile; begin Data := Data.Create('C:\Documents and Settings\alex\Desktop\sistema mercado\Sistema_sgs\arquivo.ini'); try appskin.skin.path := Data.ReadString('skin','Data',''); finally Data.Free; end; end; entendeu mais ou menos o que eu quis dizeR? você precisa armazenar o valor lido em uma variavel, ou já carregar direto... do jeito que esta ele apenas lê e já se limpa da memoria... explica o que tem em 'skin' 'data', se é o caminho da skin e tal e se tiver dúvidas posta ai... abraços

ae brother faz tipo assim declara 2 variáveis do tipo Real... exemplo var m1, m2: Real; ai você faz m1 := StrtoFloat(Dbedit1.text); m2 := StrtoFloat(Dbedit2.text); Dbedit3.text := FloattoStr(m1 * m2); só que assim, na conversão de strtofloat não é aceito caracteres que não sejam números, se houver letras por exemplo vai dar exception tipo 'Bla' is not a valid float abraços

ae brother então, poderia ser usado sim... eu tentei aqui deste jeito mas não consegui nenhuma maneira de pegar a index da nova pasta criada, já que a funçao mkdir é do windows e não do componente... repara q tem o evento onaddfolder... tentei achar também como adicionar pastas através do proprio componente... mas não achei... mas deve ter como porque senão não teria este evento... se eu conseguir algo eu posto aqui abraços

ah entendi... tipo, porque você não coloca algo como inputbox pro cara digitar o nome da pasta, ao invés de você especificá-la automaticamente já que você queria que fosse possível alterar o nome depois de adicionado... é só uma idéia eheh abraços

ae bastard... tipo, pelo nome não da pra saber se este componente é padrão do Delphi... mas de qualquer forma se for da classe tshelltreeview... então acho q vai dar certo... sobre o que você falou tenta algo assim MkDir(TreeViewDirectory.Path + '\Nova Pasta'); TreeViewDirectory.Refresh(TreeViewDirectory.Selected); TreeViewDirectory.items.item[TreeViewDirectory.selected.absoluteindex].edittext; qualquer coisa posta ai abraços

ae brother... se não me engano, você tem q instalar o JCL e o JVCL, que vem no mesmo pacote... primeiro o JCL, depois o JVCL ai os componentes aparecem... q o JCL é só essa parte de interação com o delphi, check syntax, debug data, adiciona favoritos no abrir do delphi, entre vários... e o JVCL é a parte dos componentes... Visual component library se não vier o JVCL você baixou apenas o JCL... escolha no site o que venha completo abraços

ae brother.. o que você pode fazer é pegar o source de algum programa q faça isso, como o Miranda, que se não me engano conecta ICQ, AIM, MSN, Jabber, IRC.... só que você vai ter que ter conhecimento em C, C++ pra interpretar os codigos... baixa o source dele aqui

tenta colocar os icones de atalhos em uma toolbar Win32 - Toolbar acredito que vai resolver seu problema abraços

sim é possível, agora tem 2 jeitos... drag q é arrastando com o mouse ou por coordenadas... o que você queria fazer? ps: não sei porque esse banner ai do iped as vezes da um freeze e trava quando eu clico em algo, ai sem querer dei 2 posts foi mal kkk

sim é possível, agora tem 2 jeitos... drag q é arrastando com o mouse ou por coordenadas... o que você queria fazer?

brother da uma olhada no demo q já vem com o delphi fica na pasta (Delphi)\Demos\FastNet\Ftp ta bem completo cara esses demos, você só vai ter q adaptar pro seu codigo... abraços

ae brother fiz um exemplo bem simples mas acho q é o que você queria... http://rapidshare.de/files/6123209/openpic.zip.html nesse exemplo ele abre um janela de dialogo perguntando o caminho da imagem se você quiser q abre direto, ai você teria q saber o caminho da imagem... então ficaria no evento do botao if (fileexists('caminho da imagem')) then image1.picture.loadfromfile('caminho da imagem'); abraços

hmm estranho, era pra ele ler todo o conteúdo... testei aqui assim var Form1: TForm1; arq: TMemoryStream; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin arq := TMemoryStream.Create; end; procedure TForm1.Button1Click(Sender: TObject); begin arq.Clear; FileListBox1.Items.SaveToStream(arq); end; procedure TForm1.Button2Click(Sender: TObject); begin arq.Position := 0; FileListBox2.Items.LoadFromStream(arq); end; testa mais ou menos assim, se funcionar ai da pra você saber q o erro está em seu código... pra você diferenciar um filelistbox do outro coloca filtro tipo *.exe em um só pra sair um conteúdo diferente... abraços

ah ta entendi uhaahu pensei q não tivesse um propósito... baseado no seu código, tenta assim procedure TForm1.Button1Click(Sender: TObject); begin arq := TMemoryStream.Create; pasta.Items.SaveToStream(arq); end; procedure TForm1.Button2Click(Sender: TObject); begin arq.position := 0; pasta2.Items.LoadFromStream(arq); end; position := 0 informa a variavel q a posicao de saida de dados é inicio do buffer abraços

opa veja se assim daria certo procedure TForm1.Button1Click(Sender: TObject); begin pasta2.Items.AddStrings(pasta.Items); end; se você quiser que apenas carregue os items da pasta em uma variavel pra ser carregada depois, ao invés de arq você especificar como TMemoryStream, coloque para TStringList tipo arq: TStringList; arq := TStringList.Create; arq.addstrings(pasta.items); ai pra carregar usaria pasta2.items.addstrings(arq); espero q isso ajude... abraços

olá! você pode usar Owner para isto, exemplo... vamos supor que você queira mudar a cor do form em um evento de seu componente TCustomForm(Owner).Color := clRed; Só que assim, se seu componente possa ser criando em tempo de execução e for usado "nil" como Owner dele, então não vai funcionar... abraços

ola andreia olha pelo que vi não há como mesmo. A dll 'svrapi.dll' que é a antecessora da 'netapi32.dll' não tem nenhuma função que pegue estes tipos de informações do servidor, a NetGetServerInfo apenas pega informações como versão do Sistema e tal não pega data/hora. fazer o que não é?, paciência... o que você pode fazer agora, é usar isso somente quando a plataforma winnt+ se isso servir e precisar de ajuda... abraços