Alguém poderia me ajudar a converter esta função?
VB
Public Function binret(s1 As String, i1 As Integer) As Double
Dim l1 As Double
Dim i2 As Integer
Dim i3 As Integer
l1 = 0
For i2 = 1 To i1
i3 = Asc(Mid$(s1, i2, 1))
l1 = l1 + (i3 * (256 ^ (i1 - i2)))
Next
binret
Responda em PVT.
Esta pergunta é para aqueles que assinam a revista a algum tempo. O
assunto da revista nº 103 é o mesmo da revista nº 70?
Alguém poderia me indicar om livro/apostila para desenvolvimento de
sistemas IntraWeb em Delphi 7? Já baixei o exemplo do Bruno, mas quando
vou abrí-lo dá erro.
Obrigado.
Na lista Firebase foi postada a seguinte divulgação:
Olá a todos da lista!
Andei desaparecido por uns tempos, mas estou aqui novamente.
Estou disponibilizando gratuitamente para todo mundo, a já conhecida
de toda comunidade a ferramenta de agendamento de backup IBFireBackup
esta é a versão
Por favor, só respondam quem conhece estas duas ferramentas. Trabalho
com delphi há 11 anos (fiz o curso de Delphi2 e desde então venho
trabalhando com esta ferramenta) e a 3 anos a empresa que trabalho se
juntou a outra que tem alguns sistemas em VB. Hoje o gerente veio me
perguntar quais as
Tenho a seguinte tabela:
campo1(chave)
campo2
No formshow monto a query assim:
with DM.qryManut do
begin
sql.clear;
sql.add('SELECT CAMPO1, CAMPO2 FROM TABELA');
sql.add(' WHERE CAMPO1 = :pcampo1');
end;
No botão de inclusão tenho a seguinte rotina:
with DM.cdsManut do
uses math;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
tx : double;
begin
tx := strtofloat(edit1.text);
tx := roundto(tx + 0.1,-2);
edit2.text := floattostr(tx);
end;
Agradeço a todos pelas colaborações.
Tenho um relatório que faz o seguinte cálculo:
taxa1 e taxa2 : double;
taxa1 := 161,5 * (3 /100); (resultado = 4,845)
taxa2 := strtofloat(formatfloat('#0.00',taxa1));
Na primeira vez que executo o programa o resultado da taxa2 = 4,80 .
Se o usuário rodar o relatório novamente, SEM SAIR DO
colocar PageControl1.OwnerDraw := True;
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
{//pinta a fonte
case TabIndex of
0: Control.Canvas.Font.Color:=clgreen;
1: Control.Canvas.Font.Color:=clred;
2:
colocar PageControl1.OwnerDraw := True;
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
//pinta a fonte
case TabIndex of
0: Control.Canvas.Font.Color:=clwhite;
1: Control.Canvas.Font.Color:=clyellow;
2:
Tenho um sistema D7 + FB 1.5.2 + DBX. Numa tela de cadastro (codigo e
descrição) faço várias inclusões/alterações e quando rodo o gstat -
h -t tabela -z banco.fdb tenho o seguite resultado:
oldest active=4000 , next transaction=4010 , ou seja, tenho 10
transações abertas. Se saio do sistema e
//serial físico, aquele que vem de fábrica e não muda depois da
formatação
function GetIdeDiskSerialNumber : String;
type
TSrbIoControl = packed record
HeaderLength : ULONG;
Signature: Array[0..7] of Char;
Timeout : ULONG;
ControlCode : ULONG;
Tive que reinstalar o D7 e não está aparecendo o hint dos componentes.
Já pesquisei em tools/environment e tools/editor. Alguém pode me
ajudar? Obrigado.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
Adapte as suas necessidades.
http://delphi.about.com/od/usedbvcl/l/aa082003a.htm
Espero ter ajudado.
--- Em delphi-br@yahoogrupos.com.br, galvao_em [EMAIL PROTECTED] escreveu
Olá, novamente, tenho uma consulta em um DBgrid que está ligado em um
DataSet que por sua vez está ligado a um
Alguém sabe como faço para colocar numa célula '01/2006'. Quando
coloco, o excel converte para 'jan/06'. Obrigado.
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com
Estou fazendo o seguinte:
uses excel2000, ComObj;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
excel: variant;
begin
excel:=CreateOleObject('Excel.Application');
excel.Workbooks.add(1);
...
excel.cells[20,4].formula := '=SOMA(D6:D14)';
Mas quando abro a planilha no
Usando D7 + FB 1.5.2 . Sei que quando se faz algum acesso ao banco é
aberta uma transação. Usando query+datasetprovider+clientdataset. Se
uso IBX, faço o seguinte:
ClientDataSet2.close;
ClientDataSet2.Open;
if IBQuery1.Transaction.InTransaction then
begin
showmessage('aberta'); --
Att.
- Original Message -
From: fabio_giro
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, August 16, 2006 10:02 AM
Subject: [delphi-br] Transação IBX x DBX
Usando D7 + FB 1.5.2 . Sei que quando se faz algum acesso ao banco é
aberta uma transação. Usando
Fiz o seguinte teste usando D7/IBX/FB 1.52: criei um form e coloquei
IBDatabase1, IBTransaction1(Read-commited), IBQuery1(sql=SELECT * FROM
POSTO , transaction=
),DataSetProvider1(DataSet=IBQuery1),ClientDataSet1(ProviderName=DataSetProvider1)
e 1 button
procedure TForm1.Button1Click(Sender:
É comum nos relatórios ter uma coluna(qrtext) de quant e valor na
banda detalhe e um somatório(qrexpress) das colunas na banda sumary.
No delphi 3 e 5 funciona normalmente mas no 7 não estou conseguindo.
Já procurei nas mensagens da lista, nas dicas dos sites e no google.
Alguém tem alguma dica?
A alguns dias atrás tive um problema na instalação do Firebird
Embarcado em que, quando instalava no Windows 98 dava a seguinte
mensagem: Exception EIBClientError in module Project2.exe at
000AEFD4. Interbase library gds32.dll not found in the path. Please
Install Interbase to use this
22 matches
Mail list logo