jaumDoDelphi
-
Total de itens
119 -
Registro em
-
Última visita
Posts postados por jaumDoDelphi
-
-
Perfeito Jhonas, funcionou!
Somente 1 virgula por campo no meu TEdit e TDBEdit!
muito Obrigado!
Agora já aproveitando o Assunto.
Estava querendo fazer um teste antes de Salvar um registro!
o campo já foi limitado para n escrever o ";" porque estou utilizando
arquivos "CSV" para exportar o cadastro.
Dai com o codigo que você me passou fiz um pequena alteração e ficou assim!
if (pos(';',Edit1.Text)>0) then Begin ShowMessage('Edit1 ERROR'); Edit1.SetFocus; End;Porque quando utilizo o (ctrl+c) para copiar o endereço abaixo
p.ex = Rua Jose da Cunha Martines n 550; fundos
e Depois vou colar com (ctrl+v) ele cola o texto que contem o ";".
Mas com esta grande ajuda agora no Botao Gravar ele faz um checagem rapida e simples!
que ajuda completamente o programa a ter menos falhas! :D
-
muito Obrigado robinhocne, pelo codigo!
mas esta dando erro neste na linha!
do "if length(edit1.text) = ',' then"
abaixo o codigo completo
procedure TForm1.Edit1Change(Sender: TObject); var Acumulavirgulas : integer; begin Acumulavirgulas := 0; if Acumulavirgulas < 1 then begin if Length(Edit1.text) = ',' then { Erro em [DCC Error] Unit1.pas(33): E2008 Incompatible types} begin Acumulavirgulas := 1; end end else begin ShowMessage('Campo só pode conter 1 (uma) virgula !'); end; end;obrigado e aguardando! ;)
-
Ola Amigos! venho aqui mais uma vez pedir ajuda!
Estive fora um tempo e agora voltei!
Gostaria de saber se há uma forma de Limitar um TDBEdit ou um TEdit
para receber somente 1 Caracter
p/ex. 4444,45 ou rrrr,yyyy
Oque Estou querendo é que neste campo apenas seja utilizado a virgula 1 vez!
n podendo escrevela varias vezes.
4,4,4,4,444 ou e,r,t,e,r,!
Consigo limitala para aprecer somente a virgula mas o problema que ela pode ser
utilizada varias vezes!
se alguém souber como resolver este problema eu agradeço! :)
-
Aaqui Jaz, Grande!
Funcionou sim! obrigado!
Mas agora, já estou utilizando o ZipMaster que é bem mais simples.
mas a sua ajuda foi muito ultil para o forum!
é tive varios problemas com o novo sistema de Codificação de Caracteres do novo delphi 2010!
porque na epoca que fiz os cursos era o Delphi7!
vlw e abraços!
-
Esta duvida já foi discutida aqui a 1 mes atras!
Seu dia de sorte!
falou e ate mais!
-
Opa Rogerio é claro!
Para criar 1 arquivo simples de TEXTO você pode utilizar um componente
p. ex. TMemo!
Dai você cria um TButton
e Nele coloca a seguinte linha de comando
Memo1.Lines.SaveToFile('nomedoarquivo.txt'); //ou //tb pode utilizar um Componente TSaveDialog if SaveDialog.Execute Then Memo1.Lines.SaveToFile(SaveDialog.Filename)esta ai um exemplo bem simples de como salvar um arquivo TXT!
ate mais.
-
Ola Rogerio beleza!
Tambem tive a mesma duvida e utilizei o arquivo CSV para exportar Dados do DB para arquivo TXT.
Abaixo um Exemplo!
boa sorte!
-
KKKK mesmo, Douglas!
Essas Juventudes de Hj!
Daqui a 10 anos teremos Pessoas de 6 anos já sendo expert em PC!
realmente é surpreendente você sendo tão jovem, tendo este vasto conhecimento!
Me admira muito!
achei que você tinha uns 20 e poucos!
Mas idade n importa! O importante é você continuar sendo a mesmo pessoa
Gente Boa que sempre ajuda a galera do FORUM!
Cara, Pensar que meu filho hj tem 4 anos! Mas daqui alguns anos
Ele vai saber bem mais doque Eu :lol:
Abraços!
-
Grande! Micheus, extamente o que eu queria.
Este Codigo funcionou perfeitamente!
E ainda melhor, ele Gera um LOG no TMemo.
Dai fica mais facil de saber o que ele esta excluindo.
Apos Exluir os arquivos vou salvar em um arquivo LOG com a data local.
Realmente muito Obrigado!!!
RESOLVIDO
É Douglas Soares, estudar cansa mesmo. Lembro no tempo da Faculdade e Ainda
tinha que trabalhar Acordava as 5 da manha e só ia dormir a Meia Noite.
Foram 4 Anos muito Cansativos mas valeu muito apena!
Lembro que na epoca 2000 a 2004 estava no Auge as LANHOUSE, era minha valvula de escape aos Sabados.
Só Trabalho e Estudo n da certo temos que ter um momento para a Diversão!
Ainda hoje raramente jogo DODSource e Left4Dead.
-
Ola Amigos do Script Brasil.
Estou querendo fazer um programa para deletar 3 tipos de arquivos.
Em varios PCS.
Atualmente eu utilizo um Arquivo BAT no iniciar do windows.
com o seguinte comando:
del *.iws /s /q del *.kdb /s /q del *.wif /s /q pause
Esses Arquivos são criados pelo programa utilizado aqui na verdade são arquivos TMP.
Eu peguei um exemplo antigo parecido que o Douglas_soares postou Localiza e Copia.
Mas n estou conseguindo Adaptar o codigo para Localiza e Deleta.
Da ultima vez que tentei adaptar este codigo acabei deletando um monte de arquivos da minha HD :lol:
Se alguém poder me ajudar eu agradeço muito! :)
-
Sim!
mas se for só para mapear uma Unidade da REDE
porque você n cria um arquivo "BAT"
funciona em winXp,Vista e 7.
E se você for mapear uma unidade você só faz isso 1 vez na vida
a não ser que você Formate o PC ou n deixe salvo para o prox. LOGON!
-
é Thales, Vicio kkkk!
Mas diz ai, porque você quer rodar 4x mais lento?
Por acaso você quer rodar jogos de MSDOS?
se for de MSDOS tem um otimo emulador que se chama
DOSBOX ele funciona perfeitamente com programas e jogos do DOS 16bits
soluciona problemas com himen.sys etc...
Caso seja de windows você pode utilizar o MS Virtal PC baixaki
Ele emula varias maquinas no seu PC, pode Emular varias velocidades de CPU e você pode instalar de tudo
Linux, Win98, Win3.11 Xp etc... "cara n testei este programa apenas li no site do baixaki" eu utilizei o VMWare mas faz uns 8anos atras.
-
Ola Ronaldo, Primeiro gostaria de saber qual a versão do Delphi?
se for 2009/2010 você pode tentar desta forma.
WinExec(PAnsiChar(AnsiString(VARIALVEL)),0);
tb seria mais facil você separar o COMMAND LINE numa variavel.
var
VARIAVEL : string;
VARIAVEL := 'cmd /c net use X: '+ CdsTeste.FieldByName('PATH_FOTOS').AsString;
e boa sorte!
-
Opa Lee!
-modo simples se o form já estiver na memoria
FrmClientes.Show;
-ou se não estiver na memoria
FrmClientes := TFrmClientes.Create(Self);
-Caso queira exibir em modo Exclusivo
FrmClientes.ShowMODAL;
ate mais.
-
ola, Thales Pontes Martins!
O que você quer é meio complicado!
seria tipo um "SAVE STATS".
O exemplo abaixo do Jhonas, na verdade
Altera valores diretamente da Memoria em HEXDECIMAL.
tipo um GAMESHARK das epocas do SNES, PSone etc...
"mas que funcina muito bem"
exemplo é cheat-omatic da epoca do win98 que funciona ate hj
feita em delphi3
Eu já li algo assim parar salvar um FORM. mas era pa o .NET FRAMEWORK
ele salvava a FORM completamente igual num arquivo tipo do windows
Hibernar "hiberfil.sys" Dai era só restaurar. Que ele continuava no exato local salvo
mas n funcionava em games ONLINE.
tb se você procurar no google como "WINDOWS SAVE STATS"
vai encontar mta materia sobre isso, mas em ingles ou alemão
Espero ter ajudado ou ao menos explicado.
não é que não exista para DELPHI, mas é que eu nunca vi.
ate mais e boa sorte!
-
Tb estou com o mesmo problemas, mas para o RaveReport.
Tenho um cadastro de filmes só que as fotos não esta no BANCO de DADOS
mas sim na pasta do aplicativo JPG/foto001.jpg "POSTER"
Ate agora n achei nada "Resolvido" falando sobre este assunto.
se alguém souber agradeceria muito! :)
-
Ola Renato, esta meio vago mesmo a sua descrição do POST!
mas se for para fazer backups do bando MDB do ACCESS é facil
você pode utilizar o Zlib (já vem com delphi) ou ZipMaster (componente GNU de terceiros)
zlib POST do forum ScriptBrasil
zipmaster DelphiZip
Tanto o Zlib como o ZipMaster são otimos.
Mas no Zlib só pode ser aberto pela biblioteca Zlib
já o zipmaster pode ser aberta com WinZip, WinRAR etc...
E tb no ZipMaster é muito mais facil você Compactar PASTAS interias
já o Zlib, ainda não consegui compactar uma pasta inteira.
abraço e boa sorte!
-
voltar para agrader ou informar sobre sua experiencia não doi ou menos ainda não mata!
seja mais humilde!
-
Claro Ronaldo!
veja este exemplo se ele vai te ajudar
no meu caso o bando é MSAccess mas como estou utilizando Query na há mtas diferenças!
uses shellapi
======================= code
var
Form1: TForm1;
exeDir, fname : String; // var global
====================== // botao seleciona foto e copia para pasta onde vai ficar guardada as fotos
procedure TForm1.btnGETClick(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
if OpenPictureDialog1.Execute then
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(OpenPictureDialog1.FileName);
pTo := PChar(exeDir+'JPG\');
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
fname := ExtractFilename(OpenPictureDialog1.FileName);
Label1.Caption := fname;
RenameFile(exeDir+'JPG\'+fname,exeDir+'JPG\'+dbEdit1.Text+'.jpg');
Image1.Picture.LoadFromFile(exeDir+'JPG\'+dbEdit1.Text+'.jpg');
dbEdit4.Text := 'JPG\'+dbEdit1.Text+'.jpg'; // dbEdit4 é onde fica o caminho da foto exp. c:\fotos\jpg\foto.jpg
end;
======================= para mudar as fotos quando selecionado do DBGRID
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if dbEdit4.Text = '' then
begin
Image1.Picture := nil;
lblNAME.Visible := true;
lblNAME.Caption := 'Sem imagem';
end
Else
begin
lblNAME.Visible := false;
btnShow.OnClick(Sender);
end;
end;
=================== botao para mostrar a foto manualmente que tb utilizo no SENDER acima
procedure TForm1.btnSHOWClick(Sender: TObject);
begin
Image1.Picture.LoadFromFile(exeDir+dbEdit4.Text);
end;
=================== define o diretorio padrão do EXE
procedure TForm1.FormShow(Sender: TObject);
begin
exeDIR := ExtractFilePath(Application.ExeName);
end;
é só! com este exemplo axo que vai dar certo!
Mais detalhado é assim:
1 - você seleciona uma foto no desktop por exemplo
2 - quando selecionado ele vai Copiar para umas pasta no seu Programa
3 - vai mudar o nome da foto para um campo determinado "no meu caso é o ID COD que é unico"
4 - depoiz de fazer isso ele vai exibir a imagem JPG/BMP/GIF etc... no componente TImage não TDBImage
5 - Dai é só você fazer as devidas alterações! ;)
abraço!
-
Utilizei isto para Separar os Filmes por Genero!
tenta adapta ai porque fiz em DBAcces
var
campu : String;
begin
campu := '"'+DbGrid1.SelectedField.AsAnsiString+'"'; /// ou Edit1.Text
DM.ADOQmov.SQL.Clear;
DM.ADOQmov.SQL.Add('Select * from Movies where GENERO = '+campu);
DM.ADOQmov.Open;
abraço!
-
Obrigado Douglas.
Realmente esta bem dificil encontar a versão 7 para compra!
Agora sobre o Trial eu já mudei a data do PC para 2014 e o
Aplicativo ainda funciona. Mas n posso garantir nada. :rolleyes:
Vou continuar procurando no google e se eu achar alguma resposta,
eu volto aqui para postar.
vlw!
entre em contato com o FabricanteEntão fercosmig! vlew, mas já visitei o site da Embarcadero só encontrei a venda
as versões 2010/2009/2007 que todas estaum acima de U$ 899
Eu estava querendo comprar a versão Delphi 7 que esquivale a uma versao do ano de 2002!
-
Ola amigos!
Quero primeiro pedir desculpas por estar postando Aqui!
Eu não encontrei um lugar especifico para este POST.
Estou utilizando o Delphi 2010 Trial "Alternativo" com licença para 150dias.
Bem so restam 40dias para licença expirar.
1 - Minha duvida é: Os projetos Gerados na versão TRIAL tb vão parar de funcionar
daquia 40dias?
Estou querendo fazer um projeto para ajudar o pessoal do Almoxarifado.
um cadastro bem simples de entrada e saida.
Porque os programas que fiz ficaraum muito bons "Agenda e Cadastro de DVD" melhor doque os que comprei para a empresa :lol:
Dai Fui pesquisar o preço do "Delphi 2010 Pro" no site da EMBARCADERO, sai por U$ 899 + 20%ICSM + tax
Sai muito caro, para fazer um simples programa LEGAL " :lol: "
2 - Procurei em todos os lugares o DELPHI 7 mas n encontrei ninguém que o venda!
Existe algum lugar que venda o Delphi7? e se estiver a venda o preço é mais camarada que o 2010?
-
Realmente Douglas Soares, esse negocio de utilizar os arquivos do windows para
fazer essas "coisas" é um BUG Serio do windows que persiste do win2000 ate hj "win7". :lol:
Estive utilizando este keylogger aqui na empresa por um bom tempo, na epoca do WinXP.
não utilizo mais porque fizemos um upgrade nas maquinasn para Win VISTA e 7
Dai tem a OPÇÃO do controle paternal que funciona muito bem.
vai ai uma foto do keylog em ação como "svchost.exe" hhahaahaha!
mas o cara que fez ele colocou uma diferença bem grande na DESCRIÇÃO!
mas para quem é desavisado nunca iria perceber.
-
Ola SirPlinio uma solução boa e pratica é utilizar este programa
feito em delphi com os mesmo conceitos basicos dos exemplo postados aqui!
Esse aplicativo e um EXE que você pode renomear para "svchost.exe"
e colocar na RUN do registro do windows.
Ele não é visual, você so percebe que ele esta em execulção em processos
quem tem uma diferença na descrição.
funciona muito bem, e é bem leve
gera LOGS a cada 20min e cria um pasta "diária" com a data local
exp. 20100714 - yyyy/mm/dd
LOG. exp. log_12-00-20.txt - hh-mm-ss
o ideal é você colocar este aplicativo na pasta do windows ou arquivos de programa.
e n é spyware nem virus.
[resolvido] Numerar Coluna Dbgrid
em Delphi, Kylix
Postado
Ola Pessoal, já faz tempo que n venho ao forum!
Feliz ano novo hehehe!
quando parei meu projeto de cadastro de filmes no ano passado.
Estava enrrolado nesta parte de numerar os Itens Linha a linha!
Dai testei o exemplo do Micheus e funcionou perfeitamente - D2010/ADOQuery.
Mas como ele disse é Inviável e muito problemático.
Toda vez que eu for adicionar um Item novo ele vai ter que numerar tudo novamente. Abrir e fechar a tabela toda hora.
Realmente vou deixar o programa somente com o Numero de Cadastro fica meio bagunçado quando você exclui um item mais fica bem mais simples, leve e rápido!
já pensou com mais de 30mil cadastros "Seria uma eternidade" :wacko: