WHERE (SEXO <> 'F') and (SEXO <> 'M')
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of alessandra porto
Sent: 23 April 2010 02:24
To: firebird...@yahoogrupos.com.br; delphi-br@yahoogrupos.com.br;
lista-del...@yahoogrupos.com.br
Subject
Eu tambem fiz um erro de digitacao. Eu queria dizer fieldbyname!
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Wilson, Stephen
Sent: 21 December 2009 08:27
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] Ajuda abrir
Ola senhor
Voce perdeu um 'e' in fieldbynamwe
dados.AdPacientes.Locate('Codigo','AdLocPaciente.fildbyname("codigo").asstring',[lopartialkey]);
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of dssmoura
Sent: 19 December 2009
Ola Rubem
Eu gostaria de usar versao superior!! Uso Delphi 5.
Acho que talvez eu nao explicou muito bem as minhas necessidades, e peco
desculpa por isso. Como CRM mostrou, que eu precisava para percorrer os
registros e descobrir o maior texto em cada campo e ajustar a largura para este
taman
Valeu, senhor(a) CRM. Perfeito, se mover as variaveis Totwidth e Varwidth
dentro do for loop! Assim:
procedure TForm1.AjustaColunas(DBGrid: TDBGrid);
var
i, j: integer; TotWidth : integer; VarWidth : integer;
begin
Q1.DisableControls;
for i := 0 to -1 + DBGrid.Columns.Count do
begin
o a tentar . . . . . . .
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Wilson, Stephen
Sent: 01 December 2009 09:20
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] Largura de colunas de DBGrid
Ate agora tenho
Caros Rubem, Matheus e Leandro
Obrigado pela ajuda. Lamento que eu nao explicou muito bem o meu problema e que
o meu Portugues esta incorreto:: talvez em vez de "utilizavel formula" eu
deveria ter escrito "Funcao util para todas as instancias"?
Enfim, para explicar: Eu tenho uma consulta cuja d
Senhores,
Alguem tem uma formula para calcular a largura ideal das colunas em um DBGrid
em tempo de execucao? A consulta que alimenta o DBGrid produz campos diferentes
de cada execucao.
No momento, isso funciona:
for i:= 0 to DBGrid1.Fieldcount-1 do
DBGrid1.Columns[i].Width:= Ceil(DM.Q_
Boa tarde Alessandra
Talvez possa usar a propriedade MultiSelect num DBGrid. De uma olhada a esse
link que sugeriu Berdam hoje cedo respondendo a uma pergunta de Allan Rosa
(Excluir varios itens atraves do DBGrid):
http://delphi.about.com/od/usedbvcl/l/aa032503a.htm
Att.
Steve
-Origin
Caro Jose
Nao posso explicar muito bem em Portugues, mas criei um exemplo que pode
ajuda-lo:
procedure TForm1.Button1Click(Sender: TObject);
var s, st1,st2: string; oint: integer; f: textfile;
begin
AssignFile(f, 'CaminhoENomeDoTextoArquivo');
Reset(F);
while not Eof(f) do
ReadLn(f,s);
s:=
Muito obrigado, Bruno. Vou dar uma olhada neles hoje.
Att
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On
Behalf Of Bruno Lichot
Sent: 03 November 2009 18:21
To: delphi-br@yahoogrupos.com.br
Subject:RE: [delphi-br]
Boa tarde a todos
Por favor, uma pergunta antes de ir para casa:
Alguem na lista tem experiencia em usar o Delphi Prism? Gostaria de saber quais
sao as vantagens e desvantagens em comparacao com outros metodos de
desenvolvimento de dot net (nao so a linguagem Pascal?). Sou grato por
quaisquer
Boa tarde Joanes
Acho que nao e possivel saber quando sai da coluna 1, mas pode saber quando
voce entra em outra celula usando o evento OnSelectCell
Por exemplo:
procedure TForm1.SG1SelectCell(Sender: TObject; ACol, ARow: Integer;var
CanSelect: Boolean);
var
i: integer;
begin
for i:= 2
Ola Juan
pode baixar aqui o TMenubar que tem uma propriedade cor:
http://www.borland.com/devsupport/delphi/download_files/menubar.zip
Att.
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of fer mol
Sent: 23 September 2009 15:32
Bom dia
tente assim:
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Visible := false;
ExcelApp.DisplayAlerts := false;
ExcelApp.WorkBooks.Add;
for i := 1 to 3 do
begin
//ExcelApp.WorkBooks[1].WorkSheets.Add;Nao precisa desta linha, ja
que existem automat
Boa tarde, Sergio
procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
if key = VK_DOWN then
OMeuDBGrid.SetFocus;
end;
Att
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Gestão - Prem
Jose
A solucao de Luciano e melhor que a minha. Eu nao verifiquei que os Checkboxes
estavam dentro do GroupBox, Luciano verificou.
Cuprimentos
Steve
-Original Message-
From: Wilson, Stephen
Sent: 18 September 2009 15:22
To: 'delphi-br@yahoogrupos.com.br'
Subject: RE:
Ola Jose
procedure TForm1.Button1Click(Sender: TObject);
var c,i: integer;
begin
c:= 0;
for i:= 0 to ComponentCount-1 do
if (Components[i] is TCheckbox) and TCheckBox(Components[i]).Checked then
inc(c);
showmessage(inttostr(c));
end;
Att
Steve
-Original Message-
From: delphi-br@yah
Me desculpe se nao entendi o seu problema, mas eu tenho campos em Queries
(TADOQuery) de Size 600 e mais.
Voce olha os dados da tabela no Enterprise Manager? Se os dados em seu
memorando contem Linefeeds(#13#10), nem todos os dados estao visiveis na tabela
de SQL, a primeira vista. Voce poderi
Ola Stainle, bom dia
Voce digita os dados em outros campos ao mesmo tempo? Lembre-se que o tamanho
maximo de linha no SQL Server 2000 e 8060 bytes.
Att.
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of stainle2003
Sent: 14 Se
Ola Eduardo
O Google tem alguns resultados interessantes (para 554 Refused). Uma sugestao e
que talvez haja um problema com a configuracao de um dos servidores de correio.
Voce recebe a mesma mensagem com qualquer destinatario? Lamento que eu nao
posso ajudar mais.
Atenciosamente
Steve
-
Boa tarde Guilherme (e tarde pelo menos aqui)
SELECT count(*) FROM Tabela ou SELECT count(campo de chave primaria) FROM
Tabela
Isso nao e do que voce precisa?
Cuprimentos
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Gui
..
Abaixo e o que eu estava procurando. Mais uma vez ele esta em ingles, mas eu
acho que possa ser muito util:
http://www.djpate.freeserve.co.uk/AutoExcl.htm#FormatRange
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of r
Ola Rodrigo
Quais sao as condicoes, e que voce quer que aconteca quando a condicao for
satisfeita?
Abaixo ha um exemplo em que as celulas se tornam verde se o valor numa delas
fique entre 2 e 5
procedure TForm1.Button1Click(Sender: TObject);
var op,f1,f2:oleVariant;
begin
op:= xlBetween;
f1:=
Boa tarde Bruno
Acho que o SQL Server nao tenha a propriedade de rowid (tal com existe em
Oracle), embora nao esteja certo sobre SQL Server 2008.
Pode usar um campo 'IDENTITY' ?
Att.
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Beh
Bom dia a todos
Os colegas que leiam Ingles talvez gostariam de dar uma olhada nisso (e
ligacoes):
http://www.builderau.com.au/news/soa/Developers-Are-you-spreading-malware-when-you-code-/0,339028227,339298050,00.htm
Cumprimentos
Steve
-Original Message-
From: delphi-br@yahoogrupos.com
Desculpe. Nao lembrei-me dizer "where TABLE_TYPE = 'BASE TABLE' ", se voce nao
precisa ver os 'Views' tambem
select * from INFORMATION_SCHEMA.Tables where TABLE_TYPE = 'BASE TABLE'
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Beha
Ola Bruno
select table_name from INFORMATION_SCHEMA.Tables
Att.
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Bruno Stort
Sent: 18 August 2009 15:22
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Localizar as tabela
Bom dia, Ricardo
Voce quer fazer isso antes ou apos da consulta foi executada?
Se apos:
for i := 0 to DatasetRetornadoPelaConsulta.FieldCount - 1 do
SL.Add (DatasetRetornadoPelaConsulta.Fields[i].FieldName)
Se antes:
como voce decide quais campos a incluir na declaracao SELECT?
Esper
Pode ser assim?
OnTitleClick
SqlStr = 'SELECT ALGUMA COISA FROM TABELA ';
sqlStr:= sqlStr + 'ORDER BY ' + Column.FieldName
Espero ter ajudado
Att.
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of gugavolcom
Sent: 15 Augu
Caros Ricardo e Silvio
Obrigado pelas suas amaveis palavras, mas, embora tenha sido a algumas aulas
Portuguesas, posso garantir que eu nao seria capaz de compor os meus emails sem
a ajuda do Google Translate; alem disso sempre que tento falar em Portugues tem
a lingua presa - os Ingleses sao f
Ola, bom dia Silvio e outros que estao estudando inglês
Se algum de voces pensa a qualquer momento que eu poderia ajudar de alguma
forma com o seu ingles, se senta livre para enviar-me um email diretamente e
vou tentar ajudar o melhor que posso. Talvez eu nao seja capaz de ajudar muito
com De
ListBox1.Repaint;
end;
Sucesso !!
Moacir
Wilson, Stephen escreveu:
> Bom dia a todos
>
> Caso alguem estiver interessado, consegui resolver o meu problema . Isto
> funciona, mas nao e muito elegante:
>
>
> procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: In
o eh?
Nao sei muito sobre o Windows SDK - eh uma de minhas grandes faltas
muitas felicidades
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Wilson, Stephen
Sent: 10 July 2009 11:27
To: delphi-br@yahoogrupos.com.br
Subject: [
Alguem pode me ajudar com este problema, por favor? Quero destacar os itens em
uma TListbox quando o mouse passa sob ele, como na lista suspensa de um
TCombobox. Como posso conseguir isso eu mesmo, ou alguem sabe de um componente
de terceiros que poderia usar?
Uso Delphi 5
Obrigado por qualque
Ola Sergio
select codproduto,Nomeproduto, quantidade from produtoent
Union All
select codproduto,Nomeproduto, quantidade from custos
Order By (incluir o numero de coluna 'data')
Espero que ajude isso
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrup
Comparando os seus totais com os da Delphi-en voce pode ver quanto o Delphi eh
suportado em Brasil (em comparacao com Inglaterra) !
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of embarcadelphi
Sent: 03 July 2009 17:43
To: delphi-br
Use Date em vez de Now:
procedure TForm1.Button1Click(Sender: TObject);
var myTime, myDate: TDateTime;
begin
myDate:= Date + 30;
myTime:= EncodeTime(0, 0, 0, 0);
showmessage(DateTimeToStr(myDate) + ' ' + TimeToStr(myTime));
end;
Ou poderia utilizar FormatDateTime?
Att
Steve
-Original Messa
Eh claro! Meus agradecimentos a voce, Rubem, e ao Alexandre Nicolas
Atenciosamente
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Rubem Rocha
Sent: 02 July 2009 16:25
To: delphi-br@yahoogrupos.com.br
Subject: RES: [delphi-br]
Bom dia a todos
Alguem pode me ajudar, por favor?
Preciso saber a resolucao da tela em que o meu programa esta sendo executado,
para que eu possa definir o tamanho e posicao dos controles no form. Como posso
descobrir a resolucao da tela? Uso Delphi 5.
Agradecemos antecipadamente por qualque
Bom dia a todos
lguem pode me ajudar, por favor?
Eu preciso conhecer a resolucao da tela durante o tempo de execucao. Quero
definir o tamanho e posicao dos controles em um form de acordo com a resolucao
da tela.
***
This
Bom dia, Fernando
Poderia fazer isso em uma operacao, assim:
Insert Into TabelaDestino(Campo1,ampo2,Campo3) Select Campo1,Campo2,Campo3
>From TabelaFonte ??
Sera muito rapido (menos que1 sec para 4000 registros em meus dados) - talvez
demasiado rapido para mostrar progressao com um progress
Ate pensei isso, mas em qual evento colocar estes testes?
Aguardo...
--- Em delphi-br@yahoogrupos.com.br, "Wilson, Stephen"
escreveu
>
> Talvez voce poderia utilizar as funções de strtodate e strtoint dentro de try
> .. except blocos. Se existe uma excepção, o valor não
Bom dia a todos (e obrigado, Ricardo - voce esta muito amavel)
Alguem pode dar-me ajuda?
Quando mais de uma e visivel, as formas no meu projeto podem ser minimizadas
individualmente utilizando CreateParams, assim:
procedure TJbForm.CreateParams(var Params: TCreateParams);
begin
inherited Crea
Talvez voce poderia utilizar as funções de strtodate e strtoint dentro de try
.. except blocos. Se existe uma excepção, o valor não é uma data / número
com desculpas pelo meu Português, espero ter ajudado.
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@ya
Ola Vanessa
Nao estou familiarizado com Delphi 2007, mas este código poderia dar lhe uma
dica:
procedure TMainForm.DBG1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if gdSelected in State then// quando a linha esta s
Eu uso SQL Server, e voce tem razao com 'SELECT TOP 100 .'
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Paulo Coutinho
Sent: 30 December 2008 03:07
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] Ultimos lançamento
Eu concordo que usando TQuery e provavelmente melhor (SELECT * FROM aTabela
ORDER BY aColuna), mas talvez vc precisa TTable.AddIndex em tempo de execucao?
Steve
-Original Message-
From: delphi-br@yahoogrupos.com.br
[mailto:delphi...@yahoogrupos.com.br]on Behalf Of Marx Gentil
Sent: 18 De
Ola
Talvez voce deve usar diferentes parametros, assim:
select * from EMITIDOS where (day(DTEMISSAO_CHEMITIDOS)= :dd and month
(DTEMISSAO_CHEMITIDOS)= :mm and year(DTEMISSAO_CHEMITIDOS)= :aa)) or
(day(DTCOMP_CHEMITIDOS)=:dd2 and month(DTCOMP_CHEMITIDOS)=:mm2 and year
(DTCOMP_CHEMITIDOS)=:aa2) or
49 matches
Mail list logo
