[delphi-br] Gerar relatório em uma nova janela (Rave) ??
Olá pessoal, bom dia, estou utilizando o Rave 5 junto com o Delphi 7 para gerar relatórios. A minha dúvida está quando clico no botão para gerar o relatório, o sistema gera, mas ele gera na mesma janela da aplicação. Eu gostaria q ele gerasse em uma nova janela. É possível ? Alguém se abilita ? Obrigado pela atenção de todos. Flávio. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Conexao+Download de arquivos XML via Delphi através do IP (com usuario e senha)
Uma opção (não muito bonita) é usar o NetUse, mapear e depois retirar o mapeamento .. 2008/7/18 dangra2008 [EMAIL PROTECTED]: Preciso fazer um aplicativo que: 1. Conecte a um compartilhamento de uma máquina Ex: \\111.111.111.1 \Rede\Teste (sendo que 111.111.111.1 requer usuario e senha) 2. Fazer o download dos arquivos disponíveis desse local de origem para a máquina do usuário 3. Quando encerrar o download renomear os arquivos no local de origem Mas tudo isso de forma oculta, sem que o usuário veja de onde ele está fazendo o download. O aplicativo funciona desde que eu informe somente o ip \\111.111.111.1 no qual aparece a tela ao usuário de login e senha. Se informar o caminho completo, às vezes funciona, mas geralmente trava ou dá falha de conexão. Existe um componente no Delphi 7 (já que meu RAD Studio ainda tá na caixinha rsrsr) para esse tipo de serviço? Graça -- Abs Daniel A. Bastos [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Projeto LAZARUS (Delphi Livre!). O que me dizem ?
Estou caminhando em Delphi e gostaria da opinião de vocês a respeito do Lazarus! (uma alternativa freeware ao Delphi (Windows/Linux!) Sites relacionados: http://www.lazarus.freepascal.org/ http://pt.wikipedia.org/wiki/Lazarus http://baixaki.ig.com.br/download/Lazarus.htm Para quem desconhece, Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o compilador Free Pascal. O software objetiva ser compatível com o Delphi e, ao mesmo tempo, suportar diversas arquiteturas e sistemas operacionais (Windows e Linux), tudo isso sem custo algum, ou seja, poderia ser utilizado na empresa sem gasto com licença, sem preocupação com legalidade. Mas será que é viável mesmo ?? Pediria a opinião daqueles que utilizam, utilizaram, ou que tentaram utilizar a ferramenta! RICARDO L. GALDINO Analista de Sistemas / Programador [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Projeto LAZARUS (Delphi Livre!). O que me dizem ?
Cara, isso foi discutido aqui a pouquíssimas semanas, dê uma conferida no histórico. Um abraço. Vinicius dos Santos Blog: http://tuplas.blogspot.com http://www.msisolucoes.com.br - Original Message - From: ·٠•● Ricardo L. Galdino To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] Sent: Monday, July 21, 2008 1:43 AM Subject: [delphi-br] Projeto LAZARUS (Delphi Livre!). O que me dizem ? Estou caminhando em Delphi e gostaria da opinião de vocês a respeito do Lazarus! (uma alternativa freeware ao Delphi (Windows/Linux!) Sites relacionados: http://www.lazarus.freepascal.org/ http://pt.wikipedia.org/wiki/Lazarus http://baixaki.ig.com.br/download/Lazarus.htm Para quem desconhece, Lazarus é um ambiente de desenvolvimento integrado desenvolvido para o compilador Free Pascal. O software objetiva ser compatível com o Delphi e, ao mesmo tempo, suportar diversas arquiteturas e sistemas operacionais (Windows e Linux), tudo isso sem custo algum, ou seja, poderia ser utilizado na empresa sem gasto com licença, sem preocupação com legalidade. Mas será que é viável mesmo ?? Pediria a opinião daqueles que utilizam, utilizaram, ou que tentaram utilizar a ferramenta! RICARDO L. GALDINO Analista de Sistemas / Programador [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DLL (Form MdiChild) e Aplicativo - D5 e D7
galera, estou com um problema... preciso de ajuda... tenho um aplicativo (exe) com um form MDI que chama forms MDICHILD de dentro de dll's. Tudo em D5. Ate ai tudo bem... O problema é que estou migrando para D7, e precisaria de alguma forma carregar uma dll em D7 no aplicativo em D5 ou vice-versa (uma dll em D5 no aplicativo em D7). Fiz alguns testes tentando carregar uma dll D7 no meu app atual (em D5) mas nao consegui, da alguns erros de violação de acesso de memoria. Será q alguem pode me dar uma luz? Se isso é possivel ou nao. E se SIM, como? Muito obrigado!
[delphi-br] Delphi 2007, FireBird 2.1, DBExpress 4 e Recursos e Segredos do ClientDataSet no FireBird Developers Day 2008
Galera, já coloquei o exemplo e os slides no meu link de downloads para quem quiser baixar. http://cc.codegear.com/author/795118 No mais, estamos as ordens. Abraços, BL CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] :: Visualizar Imagens ::..
Pessoal, estou montando um sistema que terei que visualizar uma série de imagens, inicialmente em miniaturas e depois quando a pessoa clicar duas vezes exibirá em tamanho maior... Alguem sabe como fazer para visualizar como no Windows Explorer? em Miniaturas? Juliano Silva [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] função
Olá tenho uma função, como faço pra chamar essa função?
Re: [delphi-br] função
CapturaValorRetornoFuncao := NomeDaFuncao(ParametroSeExistir); rzzanatta escreveu: Olá tenho uma função, como faço pra chamar essa função? ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] Off-Topic - Nova versão dos fantásticos plugins do Andreas..
Olá pessoal esta disponível uma nova versão do Delphi SpeedUp e do DDevExtensions, vale a pena conferir: http://andy.jgknet.de/dspeedup/ http://andy.jgknet.de/dspeedup/index.php?page=DDevExtensions http://andy.jgknet.de/dspeedup/index.php?page=screenshots http://andy.jgknet.de/blog/archives/104-IDEFixPack-1.6,-DDevExtensions-1.6,-DelphiSpeedUp-2.78,-dcc32speed-1.1.html -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] BSS (Borland Socket Server) Build Delphi 2007
Galera, Peguei o BSS atualizado do Manuel Parma (http://cc.codegear.com/Author/2773), e fiz as atualizações no projeto para o Delphi 2007 com todos os recursos que temos nele, fiz um build e disponibilizei. Tem fontes para D7, D6, D2006/2007. Quem for somente utilizar o executável ou for fazer sua própria compilação, use os fontes e executável do projeto do D2007. Está no meu link de download: http://cc.codegear.com/author/795118 Abraços, BL CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off-Topic - Nova versão dos fantásticos plugins do Andreas..
Ele trabalhar pra Codegear? Se não, porque ainda nao o chamaram? talvez muitos bugs poderiam ser corrigidos por ele.. heehe []s 2008/7/21 Eduardo Silva dos Santos [EMAIL PROTECTED]: Olá pessoal esta disponível uma nova versão do Delphi SpeedUp e do DDevExtensions, vale a pena conferir: http://andy.jgknet.de/dspeedup/ http://andy.jgknet.de/dspeedup/index.php?page=DDevExtensions http://andy.jgknet.de/dspeedup/index.php?page=screenshots http://andy.jgknet.de/blog/archives/104-IDEFixPack-1.6,-DDevExtensions-1.6,-DelphiSpeedUp-2.78,-dcc32speed-1.1.html -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- _ .-. T.·.F.·.A.·. /v\ Fellipe Henrique // \\ http://www.linkedin.com/in/fellipehenrique /( )\ Sou a FAVOR da lei 0607/2007. ^^-^^ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Off-Topic - Nova versão dos fantásticos plugins do Andreas..
heheh, realmente o Andreas faria muita diferença, ele consegue fazer algumas correções sem ter os fontes do Delphi e antes mesmo da CodeGear, um exemplo disso foi aquele bug onde o menu de contexto de alguns componentes não apareceria. vale a pena testar os projetos dele. 2008/7/21 Fellipe Henrique [EMAIL PROTECTED]: Ele trabalhar pra Codegear? Se não, porque ainda nao o chamaram? talvez muitos bugs poderiam ser corrigidos por ele.. heehe []s 2008/7/21 Eduardo Silva dos Santos [EMAIL PROTECTED]eduardo.drd%40gmail.com : Olá pessoal esta disponível uma nova versão do Delphi SpeedUp e do DDevExtensions, vale a pena conferir: http://andy.jgknet.de/dspeedup/ http://andy.jgknet.de/dspeedup/index.php?page=DDevExtensions http://andy.jgknet.de/dspeedup/index.php?page=screenshots http://andy.jgknet.de/blog/archives/104-IDEFixPack-1.6,-DDevExtensions-1.6,-DelphiSpeedUp-2.78,-dcc32speed-1.1.html -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] eduardo.drd%40gmail.com eduardo.drd% 40gmail.com Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas] -- _ .-. T.·.F.·.A.·. /v\ Fellipe Henrique // \\ http://www.linkedin.com/in/fellipehenrique /( )\ Sou a FAVOR da lei 0607/2007. ^^-^^ [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com.br/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Como verificar se um label foi clicado
Olá pessoal! Boa tarde! Estou precisando saber como se faz pra ver se um label foi clicado. Coloquei o seguinte código, no entanto está dando erro informando que nao reconhece o Sender. if Sender is TLabel then ConcluiEvento; Alguém tem alguma dica? Obrigada! -- Abraços, Geovana Ventura [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Como verificar se um label foi clicado
O cabeçalho da procedure é do tipo procedure TForm.ComponenteClick(Sender: TObject); ? Se não for, não vai reconhecer quem chamou a procedure mesmo. É preciso que se passe um argumento do tipo TObject para que você teste de qual classe esse argumento é ( TLabel no seu caso ) 2008/7/21 Geovana Ventura [EMAIL PROTECTED]: Olá pessoal! Boa tarde! Estou precisando saber como se faz pra ver se um label foi clicado. Coloquei o seguinte código, no entanto está dando erro informando que nao reconhece o Sender. if Sender is TLabel then ConcluiEvento; Alguém tem alguma dica? Obrigada! -- Abraços, Geovana Ventura [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Como verificar se um label foi clicado
Geovana... Talvez vc devesse usar assim: if Sender = NomeDoLabel then []'s --- Att.: Willian Jhonnes L. dos Santos Analista/Desenvolvedor Object/Free Pascal [EMAIL PROTECTED] --- Seja livre. Use Linux. Grupo de Usuários GNU/Linux de São José dos Pinhais Linux user number 449753 --- Powered by Slackware Linux 12.0 Kernel 2.6.21.5-custom --- - Mensagem original De: Geovana Ventura [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Segunda-feira, 21 de Julho de 2008 13:01:01 Assunto: [delphi-br] Como verificar se um label foi clicado Olá pessoal! Boa tarde! Estou precisando saber como se faz pra ver se um label foi clicado. Coloquei o seguinte código, no entanto está dando erro informando que nao reconhece o Sender. if Sender is TLabel then ConcluiEvento; Alguém tem alguma dica? Obrigada! -- Abraços, Geovana Ventura [As partes desta mensagem que não continham texto foram removidas] Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Confira meu perfil no Facebook
Criei um perfil no Facebook com minhas fotos, vídeos e eventos e quero adicionar-lhe como amigo para que você possa vê-los. Primeiro, você precisa cadastrar-se no Facebook! Uma vez cadastrado, você também pode criar seu próprio perfil. Atenciosamente, Marco Aqui está o link: http://www.facebook.com/p.php?i=1357764846k=ZVBZYW6S4X2M5BL1QDYTTVrv=2 ___ Este e-mail contém materiais promocionais. Se você não deseja receber futuros emails comerciais do Facebook, por favor clique no link abaixo. As agência do Facebook estão localizadas em 156 University Ave., Palo Alto, CA 94301 http://www.facebook.com/o.php?u=1080066852k=83ed89 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Adicionar no array
Como posso 'automaticamente' ir adicionando valores no array mas sem precisar especificar a posição? Tem jeito? Valeu. -- Att. Maycon Sanches Amaro
Re: [delphi-br] Confira meu perfil no Facebook
Francamente ... passível de bloqueio no grupo. Alessandro DUARTE de Moraes A.C. Santa Casa do Rio Grande. http://www.santacasarg.com.br (53) 3233-7118 - Original Message - From: Marco Eli da Silva To: delphi-br Sent: Monday, July 21, 2008 3:18 PM Subject: [delphi-br] Confira meu perfil no Facebook Criei um perfil no Facebook com minhas fotos, vídeos e eventos e quero adicionar-lhe como amigo para que você possa vê-los. Primeiro, você precisa cadastrar-se no Facebook! Uma vez cadastrado, você também pode criar seu próprio perfil. Atenciosamente, Marco Aqui está o link: http://www.facebook.com/p.php?i=1357764846k=ZVBZYW6S4X2M5BL1QDYTTVrv=2 ___ Este e-mail contém materiais promocionais. Se você não deseja receber futuros emails comerciais do Facebook, por favor clique no link abaixo. As agência do Facebook estão localizadas em 156 University Ave., Palo Alto, CA 94301 http://www.facebook.com/o.php?u=1080066852k=83ed89 [As partes desta mensagem que não continham texto foram removidas] -- E-mail Seguro Vetorial.net Mensagem classificada como N�O-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identifica��o: 54568,4884d2f2531625604213909 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: função
Boa tarde! Segue abaixo, uma exemplo simples que usei para demonstrar
como chamar a função somar.
A Unit consiste em 1 form contendo 3 edit e um button.
Ao clicar no button é chamada a funçao que soma o valor do edit1 +
edit2 e mostra o resultado no edit 3.
E claro que isto é só um exemplo, não possui rotinas de prevenção de
erros como por exemplo, se os dois edit's possuem valores válidos ou
ainda, uma rotina que independente do valor(desde que fosse numerico),
ele mostraria o valor em formado double, mas para o que vc pediu(como
chamar uma função) serve.
Fraterno abraço, e qualque dúvida, torne a perguntar.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
e1: TEdit;
e2: TEdit;
btn1: TButton;
e3: TEdit;
function somar(a: string; b:string):String;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
e3.Text := somar(e1.Text, e2.Text);
end;
function TForm1.somar(a: string; b:string):String;
var
mSoma: string;
begin
mSoma := IntToStr(StrToInt(a) + StrToInt(b));
Result := mSoma;
end;
end.
RE: [delphi-br] Adicionar no array
Não confunda adicionar com inserir. Para adicionar um item a um array dinâmico
em Delphi, basta fazer algo como o que se segue no exemplo abaixo:
{$APPTYPE CONSOLE}
program StrDynArraySample;
uses SysUtils;
// Se vc usa Delphi 5 ou 4, declare o seguinte tipo.
// Se vc usa Delphi 6 ou maior, basta fazer um uses pra unit Types!
type
TStringDynArray = array of String;
var
i: byte;
lVetor: TStringDynArray;
begin
// Inicializa o array
SetLength(lVetor, 0);
// Adiciona um item ao array
SetLength(lVetor, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rubem';
// Adiciona mais um item ao array
SetLength(lVetor, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rocha';
// Mostra os itens no console
for i := Low(lArray) to High(lArray) do
WriteLn(lArray[i]);
WriteLn('Tecle ENTER...');
WriteLn(Eoln);
end.
Agora, para inserir um item em um array dinâmico, não existem rotinas prontas
ou métodos automáticos no Object Pascal para dar suporte a essa necessidade.
Para isso, vc teria que construir uma rotina para tratar essa situação, como
segue no exemplo a seguir:
{$APPTYPE CONSOLE}
program StrDynArraySample;
uses SysUtils;
// Se vc usa Delphi 5 ou 4, declare o seguinte tipo.
// Se vc usa Delphi 6 ou maior, basta fazer um uses pra unit Types!
type
TStringDynArray = array of String;
var
i: byte;
lArray: TStringDynArray;
begin
// Inicializa o array
SetLength(lArray, 0);
// Adiciona um item ao array
SetLength(lArray, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rubem';
// Adiciona mais um item ao array
SetLength(lVetor, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rocha';
//*
// Insere um item na segunda posição do array
// para definir mais um nome
SetLength(lArray, Succ(Length(lArray)));
for i := 1 to High(lArray) - 1 do
lArray[i + 1] := lArray[i];
lArray[1] := 'Nascimento da';
//*
// Mostra os itens no console
for i := Low(lArray) to High(lArray) do
WriteLn(lArray[i]);
WriteLn('Tecle ENTER...');
WriteLn(Eoln);
end.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Mon, 21 Jul 2008 15:23:07 -0300
Subject: [delphi-br] Adicionar no array
Como posso 'automaticamente' ir adicionando valores no array mas sem
precisar especificar a posição? Tem jeito?
Valeu.
--
Att.
Maycon Sanches Amaro
_
Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas
e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Adicionar no array
Tem que ser array dinâmico, assim:
procedure TForm1.btn1Click(Sender: TObject);
var
Array1 : Array of string;
I : Integer;
begin
for I := 1 to 5 do
begin
SetLength(Array1, SizeOf(Array1));
Array1[I] := 'Array: ' + IntToStr(I);
end;
ShowMessage('Teste');
end;
--
Boa Leitura,
Adriano Santos
Development Manager SoftPark
Editor Técnico Revistas ClubeDelphi e WebMobile
www.delphitodelphi.blogspot.com
www.adrianosantos.pro.br
www.devmedia.com.br
Maycon Sanches Amaro respondeu:
Como posso 'automaticamente' ir adicionando valores no array mas sem
precisar especificar a posição? Tem jeito?
Valeu.
--
Att.
Maycon Sanches Amaro
No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.138 / Virus Database: 270.5.3/1564 - Release Date: 21/7/2008
06:42
Re: [delphi-br] Adicionar no array
Maycon Sanches Amaro wrote: Como posso 'automaticamente' ir adicionando valores no array mas sem precisar especificar a posição? Tem jeito? Não. Pra isso você usa um TList, TObjectList ou TStringList. Joao Morais
[delphi-br] Não deixar selecionar células nas Grids . Como ?
Olá pessoal, boa tarde, criei uma StringGrid com a propriedade Enabled setada como falsa, ou seja, o usuário não interage com a grid, porém, a primeira célula da StringGrid já vem selecionada. Eu gostaria q isso não ocorre-se, ou seja, nenhuma célula pode estar selecionada na StringGrid. Alguem imagina como ? Obrigado pela atenção de todos. Abraços. Flávio. Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail.com. http://br.new.mail.yahoo.com/addresses [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Não deixar selecionar células nas Grid s . Como ?
Vá na propriedade Options desse StringGrid e desabilite a opção goDrawFocusSelected. Veja se isso resolve seu problema. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Mon, 21 Jul 2008 12:01:16 -0700 Subject: [delphi-br] Não deixar selecionar células nas Grids . Como ? Olá pessoal, boa tarde, criei uma StringGrid com a propriedade Enabled setada como falsa, ou seja, o usuário não interage com a grid, porém, a primeira célula da StringGrid já vem selecionada. Eu gostaria q isso não ocorre-se, ou seja, nenhuma célula pode estar selecionada na StringGrid. Alguem imagina como ? Obrigado pela atenção de todos. Abraços. Flávio. _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
[delphi-br] Impressão não imprime
Boa tarde a todos. Tenho um problema e gostaria de saber se alguém já passou por isso. Tem um sistema que esta rodando desde 2005, agora o cliente trocou uma impressora para HP LaserJet P1005, e o sistema deixou de imprimir. O interessante é que reinstalei do um boot e mando imprimir o relatório imprime, depois deixa de imprimir, ou seja, imprime (mostra o icone de impressão) mas não joga para impressora. Impressora: HP LaserJet P1005 Relatório feito Rave. A impressora usa a porta USB, será que tem algo haver? Grato que puder me dar uma luz... André Ferreira Analista de Processo/BI
Re: [delphi-br] Adicionar no array
Valeu pessoal, vou tentar aqui...
Grato.
Att.
Maycon Sanches Amaro
Rubem Nascimento da Rocha escreveu:
Não confunda adicionar com inserir. Para adicionar um item a um array
dinâmico em Delphi, basta fazer algo como o que se segue no exemplo
abaixo:
{$APPTYPE CONSOLE}
program StrDynArraySample;
uses SysUtils;
// Se vc usa Delphi 5 ou 4, declare o seguinte tipo.
// Se vc usa Delphi 6 ou maior, basta fazer um uses pra unit Types!
type
TStringDynArray = array of String;
var
i: byte;
lVetor: TStringDynArray;
begin
// Inicializa o array
SetLength(lVetor, 0);
// Adiciona um item ao array
SetLength(lVetor, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rubem';
// Adiciona mais um item ao array
SetLength(lVetor, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rocha';
// Mostra os itens no console
for i := Low(lArray) to High(lArray) do
WriteLn(lArray[i]);
WriteLn('Tecle ENTER...');
WriteLn(Eoln);
end.
Agora, para inserir um item em um array dinâmico, não existem rotinas
prontas ou métodos automáticos no Object Pascal para dar suporte a
essa necessidade. Para isso, vc teria que construir uma rotina para
tratar essa situação, como segue no exemplo a seguir:
{$APPTYPE CONSOLE}
program StrDynArraySample;
uses SysUtils;
// Se vc usa Delphi 5 ou 4, declare o seguinte tipo.
// Se vc usa Delphi 6 ou maior, basta fazer um uses pra unit Types!
type
TStringDynArray = array of String;
var
i: byte;
lArray: TStringDynArray;
begin
// Inicializa o array
SetLength(lArray, 0);
// Adiciona um item ao array
SetLength(lArray, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rubem';
// Adiciona mais um item ao array
SetLength(lVetor, Succ(Length(lArray)));
lArray[High(lArray)] := 'Rocha';
//*
// Insere um item na segunda posição do array
// para definir mais um nome
SetLength(lArray, Succ(Length(lArray)));
for i := 1 to High(lArray) - 1 do
lArray[i + 1] := lArray[i];
lArray[1] := 'Nascimento da';
//*
// Mostra os itens no console
for i := Low(lArray) to High(lArray) do
WriteLn(lArray[i]);
WriteLn('Tecle ENTER...');
WriteLn(Eoln);
end.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
From: [EMAIL PROTECTED] mailto:mayconsan%40gmail.com
Date: Mon, 21 Jul 2008 15:23:07 -0300
Subject: [delphi-br] Adicionar no array
Como posso 'automaticamente' ir adicionando valores no array mas sem
precisar especificar a posição? Tem jeito?
Valeu.
--
Att.
Maycon Sanches Amaro
__
Confira vídeos com notícias do NY Times, gols direto do Lance,
videocassetadas e muito mais no MSN Video!
http://video.msn.com/?mkt=pt-br http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Impressão não imprime
Talvez rave esteje jogando na impressora direto de acordo com o nome dela
RPDev.DeviceIndex := RPDev.Printers.IndexOf('nome da impressora');
se o nome da nova impressora é diferente que o da antiga nao vai
funcionar. É uma opção. Mude o nome dessa nova impressora para o nome q
tava antes e faca o teste.
Att.
Maycon Sanches Amaro
a_ferreira1967 escreveu:
Boa tarde a todos.
Tenho um problema e gostaria de saber se alguém já passou por isso.
Tem um sistema que esta rodando desde 2005, agora o cliente trocou
uma impressora para HP LaserJet P1005, e o sistema deixou de
imprimir. O interessante é que reinstalei do um boot e mando
imprimir o relatório imprime, depois deixa de imprimir, ou seja,
imprime (mostra o icone de impressão) mas não joga para impressora.
Impressora: HP LaserJet P1005
Relatório feito Rave.
A impressora usa a porta USB, será que tem algo haver?
Grato que puder me dar uma luz...
André Ferreira
Analista de Processo/BI
