Re: [delphi-br] Form dou Create e ele dá um ShowModal tb... pq? como resolvo?
Galera, Obrigado pela atenção mas respondendo... Não é o primeiro form que instacio na aplicação e tb não há nada no Oncreate do mesmo... Ele estava funcionando bem só que fiz uns testes de FormChild mas depois desfiz e ficou assim... valeu, Thiago Em 25/05/07, Henrique Cristiano Rodrigues [EMAIL PROTECTED] escreveu: Verifica se há algo no enveto oncreate Henrique Cristiano Rodrigues tel.: 9122-4471 Messeger: [EMAIL PROTECTED] henrique_mail%40yahoo.com.br Orkut: http://www.orkut.com/Profile.aspx?uid=10107590976039686513 - Mensagem original De: Thiago Oliveira [EMAIL PROTECTED] tbaiano%40gmail.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Sexta-feira, 25 de Maio de 2007 17:16:01 Assunto: [delphi-br] Form dou Create e ele dá um ShowModal tb... pq? como resolvo? Galera, Trabalho com Delphi 7, e num sistema que tenho aqui está acontecendo isto, Estou com um Form que quando dou um, Application. CreateForm( TfrmSituacao, frmSituacao) ; ou um, frmSituacao := TfrmSituacao. Create(self) ; Tb executa o comendo ShowModal do mesmo, sem está escrito isto, não sei porque quero tirar isso, já revisei as propriedades e não encontrei nada... Estou achando muito estranho isto... Agradeço a ajuda... Thiago [As partes desta mensagem que não continham texto foram removidas] __ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Form dou Create e ele dá um ShowModal tb... pq? como resolvo?
Galera, Trabalho com Delphi 7, e num sistema que tenho aqui está acontecendo isto, Estou com um Form que quando dou um, Application.CreateForm(TfrmSituacao, frmSituacao); ou um, frmSituacao := TfrmSituacao.Create(self); Tb executa o comendo ShowModal do mesmo, sem está escrito isto, não sei porque quero tirar isso, já revisei as propriedades e não encontrei nada... Estou achando muito estranho isto... Agradeço a ajuda... Thiago [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Ajuda a Criar componentes
Pessoal, Estou começando a criar alguns componentes... Estou tentando criar dois componentes 1º herdando caracteristicas do TEdit 2º herdando DBLookupComboBox Queria fazer a rotina de qdo escrever o código do Cliente no Edit ele busca o Nome no DBlookupCom.. e vice versa qdo escreve o nome do cliente no DBlookupCom.. aparece o Código no Cliente... Detalhe é que queria esses dois na mesma classe. Criei uma propriedade no Componente 2º do Tipo do Componente 1, funcionou ok, mas ao contrário não porque no código do Componente 1 está acima do Componente 2 e não se encherga alguem pode me dá uma dica...!!! Está mais o menos o código Valeu, Thiago [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Componentes só aparece na paleta 1 deles
E ai Pessoal,
Tenho essa classe... (abaixo)
Mas na paleta só aparece 1 dos componentes
o TedtNomeCondominio ...
alguem sabe como faço para aparecer os dois...
Valeu,
Thiago
///***Classe
unit Condominio;
interface
uses
SysUtils, Classes, Controls, StdCtrls, DBCtrls, IBQuery, DB,
IBDatabase, Graphics, Forms;
//TedtNomeCondominio
type
TedtNomeCondominio = class(TDBLookupComboBox)
private
FOrder: String;
FBancoDados: TIBDatabase;
procedure SetOrder(const Value: String);
procedure SetBancoDados(const Value: TIBDatabase);
protected
dsCondo : TDataSource;
qCondo : TIBQuery;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Open;
published
property Order : String Read FOrder write SetOrder;
property BancoDados : TIBDatabase read FBancoDados write SetBancoDados;
end;
//EdtCodCondominio
type
TedtCodCondominio = class(TEdit)
private
FFantasia: TedtNomeCondominio;
procedure SetFantasia(const Value: TedtNomeCondominio);
protected
procedure KeyPress(var Key: Char); override;
procedure doExit; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Fantasia : TedtNomeCondominio read FFantasia write SetFantasia;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('ComponentesLCD', [TedtNomeCondominio]);
end;
{ TedtNomeCondominio }
constructor TedtNomeCondominio.Create(AOwner: TComponent);
begin
inherited create(Aowner);
ListField := 'FANTASIA';
KeyField := 'CODCOND';
//Comandos para Tabela
FOrder := 'FANTASIA'; //DEFAULT
end;
destructor TedtNomeCondominio.Destroy;
begin
inherited Destroy;
qCondo.Free;
dsCondo.Free;
end;
procedure TedtNomeCondominio.Open;
var
i : Integer;
begin
qCondo := TIBQuery.Create(nil);
qCondo.Database := BancoDados;
dsCondo := TDataSource.Create(nil);
dsCondo.DataSet := qCondo;
//Seta o Campo que vai buscar os Dados
ListSource := dsCondo;
with qCondo do
begin
Close;
SQL.Clear;
SQL.Add(' Select CODCOND, FANTASIA From CONDO ');
SQL.Add(' Order by '+Order);
Open;
if RecordCount 0 then
for i := 0 to 5 do
begin
Next;
end;
First;
end;
end;
procedure TedtNomeCondominio.SetBancoDados(const Value: TIBDatabase);
begin
FBancoDados := Value;
end;
procedure TedtNomeCondominio.SetOrder(const Value: String);
begin
FOrder := Value;
end;
{ TedtCodCondominio }
constructor TedtCodCondominio.Create(AOwner: TComponent);
begin
inherited; create(Aowner);
Text := '000';
MaxLength := 3;
FFantasia := TedtNomeCondominio(Self);
end;
destructor TedtCodCondominio.Destroy;
begin
inherited;
end;
procedure TedtCodCondominio.doExit;
begin
inherited;
if Trim(Text) = '' then
Text := '000';
end;
procedure TedtCodCondominio.KeyPress(var Key: Char);
begin
if NOT (Key in ['0'..'9',#8,#46]) then
Key := #0
end;
procedure TedtCodCondominio.SetFantasia(const Value: TedtNomeCondominio);
begin
FFantasia := Value;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2005 .net não compila
E ai galera. Estou copnhecendo o Delphi 2005 . net... mas até agora está um pouco complicado, não estou conseguindo compilar minhas aplicações asp .net pois quando compilo ele pede para entrar em project-Option-.Net...- e configirar o Server, que não foi encontrado... Há alguma coisa que eu precise instalar mais alem do Delphi 2005 para tal... agardeço. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Liberar Aplicação da Memoria para Atualizar a mesma.
Amigos, Estou com um grande problema, ao tentar ataualizar um executavel... Estou fazendo assim, toda vez que executo programa (Program.exe) vejo se o vesmo está com a versão desatualizada, sendo assim, o programa se fecha e executa um executavel chamado atualiza.exe', o que acontece é que antes de o Program.exe se liberar da memoria o Atualiza.exe tenta copiar a versão mais atualizada para o seu lugar, ocorrendo um erro, pois o mesmo ainda está sendo usado e não pode ser modicado, deletado etc... Tentei colocar um contador dentro de Atualiza.exe para demorar um pouquinho para iniciar os comandos e atualização mais mesmo assim, não funciona, pois o sistema com isso fica muito lento... A minha pergunta é, como posso ter certeza que um determinda programa está liberado da memoria, e qual a melhor maneira de libera-lo da memoria, não digo Form mas sim a aplicação... Ou se alguem tiver alguma dica agradeço. Thiago Oliveira [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Programação Orientado A Objeto, Exemplinho, queria um avaliação de vc's
E ai galera, Eu (como já disse em outros Post's) sou programador Delphi a um tempinho mas não havia ainda trabalhado com Orientação a Objeto no Delphi..., resumindo comecei a estudar encontrei alguns exemplos e comecei a tentar entender as vantagens de se programar dessa forma...3 Camadas etc... Tenho muitas duvidas e aos poucos estou tentando resolver, mas o o bjetivo desse Post é que com base no que estudei, fiz um cadatro bem simples de clientes, algo só para inserir e excluir e localizar nada mais do que isso... O que faço em cinco minutos na programação estrutura demorei 2 dias, se é que está correto o que fiz...hehehe Eu queria pedir para quem quiser dá uma olhada nos fontes e ver se é por ai o caminho, é só me mandar um email que envio na hora, tem 66kb, está com um banco de dados firebird tb. O meu objetivo é ver se estou estudando certo e fazendo da maneira que realmete se programa em Delphi com essa Metodologia. Não consegui nenhum servidor, para colocar ele, então só avisar por aqui que envio o email, ou me mande um email [EMAIL PROTECTED] Envio os Fontes ai é spo compilar e dar a opinião. Agradeço a todos, Tbaiano [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Programação OO duvida..
Galera, Estou com uma dificuldade, em um ponto em meus estudos. No Create dessa Classe está dando um erro... O Erro é quando o objeto Fcodigo recebe algum valor, dá que o arquivo está vazio. Então cheguei a conclusão de que a criação desses objetos está errada Está assim essa parte... Se ouderem me ajudar agradeço... constructor TCliente.Create; begin (...) //Em cada um faço isso : Criar Objeto e Configura o mesmo Fcodigo := TIntegerField.Create(Fcodigo); Fcodigo.DisplayLabel := 'Código'; Fcodigo.FieldName := 'CODIGO'; Aqui está a Classe type TCliente = class(TTabela_OOP) private Fcodigo: TIntegerField; Fnome: TStringField; Fcidade: TStringField; Fendereco: TStringField; Festado: TStringField; Fbairro: TStringField; Fcep: TStringField; public constructor Create; destructor Destroy; override; property codigo : TIntegerField read Fcodigo write Fcodigo; property nome : TStringField read Fnome write Fnome; property endereco : TStringField read Fendereco write Fendereco; property bairro : TStringField read Fbairro write Fbairro; property cidade : TStringField read Fcidade write Fcidade; property estado : TStringField read Festado write Festado; property cep : TStringField read Fcep write Fcep; procedure Localizar_Clientes; procedure Recebe_Valores; procedure Envia_Valores; procedure Inicializa_Valores; end; [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Re: Programação OO duvida..
O erro exatamante é que não tem o campo não tem arquivo... Valeu.. Em 30/01/06, Thiago Oliveira [EMAIL PROTECTED] escreveu: Galera, Estou com uma dificuldade, em um ponto em meus estudos. No Create dessa Classe está dando um erro... O Erro é quando o objeto Fcodigo recebe algum valor, dá que o arquivo está vazio. Então cheguei a conclusão de que a criação desses objetos está errada Está assim essa parte... Se ouderem me ajudar agradeço... constructor TCliente.Create; begin (...) //Em cada um faço isso : Criar Objeto e Configura o mesmo Fcodigo := TIntegerField.Create(Fcodigo); Fcodigo.DisplayLabel := 'Código'; Fcodigo.FieldName := 'CODIGO'; Aqui está a Classe type TCliente = class(TTabela_OOP) private Fcodigo: TIntegerField; Fnome: TStringField; Fcidade: TStringField; Fendereco: TStringField; Festado: TStringField; Fbairro: TStringField; Fcep: TStringField; public constructor Create; destructor Destroy; override; property codigo : TIntegerField read Fcodigo write Fcodigo; property nome : TStringField read Fnome write Fnome; property endereco : TStringField read Fendereco write Fendereco; property bairro : TStringField read Fbairro write Fbairro; property cidade : TStringField read Fcidade write Fcidade; property estado : TStringField read Festado write Festado; property cep : TStringField read Fcep write Fcep; procedure Localizar_Clientes; procedure Recebe_Valores; procedure Envia_Valores; procedure Inicializa_Valores; end; [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programação OO duvida..
Filipe, Entendi mas o meu erro ocorre por que a propiedade está assim: property codigo : TIntegerField read Fcodigo write Fcodigo; e no create está assim: Fcodigo := TIntegerField.Create(Fcodigo); Fcodigo.DisplayLabel := 'Código'; Fcodigo.FieldName := 'CODIGO'; A minha duvida é como devo colocar no Create essa propriedade, já que declarei daquela forma... (não sei se é correto fazer isso)... O erro como já falei é campo 'código' não tem arquivo... Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programação OO duvida..
Felipe, valeu... Esses conceitos ainda não estão bem entendidos, na minha cabeça... Obrigado pela dica... Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programação OO duvida..
Mas ainda não deu certo,
Acho que não expliquei direito, o erro não ocorre quando a objeto é
creado... Mas sim quando chamo essa função:
procedure TCadastro_Banco.Get_Values;
begin
FCodigo.AsInteger := DataSet.FieldByName('CODIGO').AsInteger;
FNome.AsString := DataSet.FieldByName('NOME').AsString;
FEndereco.AsString := DataSet.FieldByName('ENDERECO').AsString;
FBairro.AsString := DataSet.FieldByName('BAIRRO').AsString;
FCidade.AsString := DataSet.FieldByName('CIDADE').AsString;
FCep.AsString := DataSet.FieldByName('CEP').AsString;
end;
Obrigado a todos pelas ajudas...
Thiago
[As partes desta mensagem que não continham texto foram removidas]
--
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 o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Programação Orientada a Objeto...
E ai galera,
Eu to estudando para aprender programação Orienrda a Objeto com o Delphi, e
estou tentando aplicar os conceitos com programação com banco de dados,
estou com a classe cliente abaixo:
pelo que tentei fazer foi, criar um classe TCliente originada do TIBQuery,
só que não consigo ultililzar as suas propriedades...
Por exemplo, se meu Tcliente é do Tipo TIBquery então isso aqui seria normal
(pelo que entendo):
Tcliente.Database := DataModulo.BancoDados; //Dá um erro
Não cosigo enxergar a programação dessa forma com Banco de Dados, se alguem
puder me da umas dicas agradeço.
O meu código está ai:
unit Ucliente_Classe;
interface
uses
Udm, DB, IBCustomDataSet, IBQuery, IBDatabase;
type
TCliente = class(TIbquery)
private
public
constructor Criar_Obj;
destructor Destruir_Obj;
procedure Selecionar_Clientes;
procedure Conectar_Banco_Dados;
end;
implementation
{ TCliente }
procedure TCliente.Conectar_Banco_Dados;
begin
Database := dm.BD;
end;
constructor TCliente.Criar_Obj;
begin
Conectar_Banco_Dados;
end;
destructor TCliente.Destruir_Obj;
begin
//
end;
procedure TCliente.Selecionar_Clientes;
begin
SQL.Clear;
SQL.Add('SELECT * FROM CLIENTES');
SQL.Add('ORDER BY CODIGO');
ExecSQL;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
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 o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Programação Orientada a Objeto...
Valeu galera,
Eu já me achei, realmente vi que estava totalmente errado.
Valeu a todos...
Fiz assim:
unit UTabelas;
interface
uses IBCustomDataSet, IBDataBase, Classes;
type
TTabela_OOP = class(TObject)
private
FDataSet: TIBDataSet;
//SelectText : TStrings;
public
constructor Create;
destructor Destroy; override;
function Active: Boolean;
//function Apply: Boolean; virtual; --Não Ultilizarei está comentado o
código
function Cancel: Boolean; virtual;
function Close: Boolean; virtual;
function Delete: Boolean; virtual;
function Edit: Boolean; virtual;
function Insert: Boolean; virtual;
function Next: Boolean; virtual;
function Open: Boolean; virtual;
function Post: Boolean; virtual;
function Prior: Boolean; virtual;
function First: Boolean; virtual;
function Last: Boolean; virtual;
function Bof: Boolean; virtual;
function Eof: Boolean; virtual;
property DataSet: TIBDataSet read FDataSet write FDataSet;
end;
implementation
{TTabela}
constructor TTabela_OOP.Create;
begin
//
end;
destructor TTabela_OOP.Destroy;
begin
//
end;
//Não ultilizarei
{function TTabela_OOP.Apply: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) and (DataSet.ChangeCount 0)
then DataSet.ApplyUpdates(0);
except
Result := False;
end;
end;}
function TTabela_OOP.Cancel: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.Cancel;
except
Result := False;
end;
end;
function TTabela_OOP.Close: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.Close;
// DataSet recebe o objeto que acessa a tabela no banco de dados.
DataSet := nil;
except
Result := False;
end;
end;
function TTabela_OOP.Delete: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := False;
try
if (DataSet nil) and (DataSet.Active) then
begin
if (DataSet.RecordCount 0) then
begin
DataSet.Delete;
Result := True;
end;
end;
except
Result := False;
end;
end;
function TTabela_OOP.Edit: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.Edit;
except
Result := False;
end;
end;
function TTabela_OOP.Insert: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.Insert;
except
Result := False;
end;
end;
function TTabela_OOP.Next: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.Next;
except
Result := False;
end;
end;
function TTabela_OOP.Open: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and not (DataSet.Active) then DataSet.Open;
except
Result := False;
end;
end;
function TTabela_OOP.Post: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
//
if (DataSet nil) and (DataSet.Active) then DataSet.Post;
end;
function TTabela_OOP.Prior: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.Prior;
except
Result := False;
end;
end;
function TTabela_OOP.Last: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.Last;
except
Result := False;
end;
end;
function TTabela_OOP.First: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then DataSet.First;
except
Result := False;
end;
end;
function TTabela_OOP.Bof: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then Result := DataSet.Bof;
except
Result := False;
end;
end;
function TTabela_OOP.Eof: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then Result := DataSet.Eof;
except
Result := False;
end;
end;
function TTabela_OOP.Active: Boolean;
begin
// Retorno verdadeiro caso não haja erro para baixa.
Result := True;
try
if (DataSet nil) and (DataSet.Active) then Result := DataSet.Active;
except
Result := False;
end;
end;
end.
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
[delphi-br] Delphi ultilizando Orientado a Objeto
E ai galera, Sou programador Delphi, tenho uma certa experiência, e estou querendo aprender a programar orientado a objeto com o Delphi. Conheço os conceitos de POO , mas tenho dificuldade em implantar, ou melhor ver em qual situação posso ultilizá-los com eficiencia, como por exemplo num cadastro de clientes simples, eu faço um cadastro todo com programação orientado a procedimentos, funções, eventos e não vejo forma mais simples, fácil, rápido de se fazer dessa forma. Estou procurando na Internet um exemplo desses (Cadastros de Clientes por exemplo) ultilizando os conceito de orientação por objeto mas não encontro, cheguei a encontrar em VB mas em Delphi não. Isso é o que peço se alguém tiver algum, ou me puder dizer aonde, em quais pontos é melhor ultilizar a POO num exemplo como esse...por que sinceramente ainda não consegui isso. Agradeço. Tbaiano ([EMAIL PROTECTED]) [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] QrLabel Vertical
Se vc colar esse texto no Form o label vai pular as linhas. object Label3: TLabel Left = 304 Top = 96 Width = 6 Height = 65 Caption = 'L'#13'a'#13'b'#13'e'#13'l' end Não sei se lhe ajuda, tem esse site que tem um componente muito bom que ultilizei uma vez para imprimir Label Vertical não me lembro se pode colocar no Form deve dar tb... http://www.inf.ufsc.br/~prass/ É isso, valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Sistema Em Rede
Cleiton, A ideia principal o Cícero te passou, e não é um bicho de sete cabeças, fazer uma aplicação em Rede, na verdade dependendo do banco que você utiliza fica até mais fácil. Diga o que usa ou o que quer usar? Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Objeto.Free; Erro
Depois de dar esse comando em um objeto, Qual o comando que tenho que executar para visualizar ele de novo sem precisar fechar e abrir o programa de novo. O que acontece é que tenho um relatório personalizado e que quando chamava ele não fecha o form depois de visualizar o mesmo, resolvi fasendo assim: No onClose do frmRelatorio coloquei o comando relPersonalizado.QrPreview1.free; Só que agora não consigo visuzalizar esse relatório de novo no mesmo processo apenas se fechar o programa e abrir ele de novo. Alguem poderia me ajudar estou mei atrapalhado nisso. Valeu, Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] QuickReport Impressão Bordas
E ai galera, Relatório QuickReport, eu tenho um relatório aqui mas estou tendo problemas para fazer bordas em um determinado texto, as bordas eu faço com QRShape1 e ou QRImage1 mas o que se vê na tela com Preview não é o que se imprime, e fica uma bagunça, alguem sabe de algum componente que me ajude nisso, exatamente o que faço é tenho um QRmemo e insiro 20 string para ele e ao redor coloco um borda é bem simples mas na tela me aparece uma coisa e quando imprimo o espaço está maio ou menor... Se alguem puder ajudar. Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Application.Terminate; Não funciona
E ai galera, Sempre ultilizaei Application.Terminate em meus projetos mas não está funcionando, no Onclose do Form frmLogin ele verifica : if Controle = False then Application.Terminate; Alguem sabe o que pode ser... valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DbGrid Columns
Guigos, //Mostra Coluna DBGrid1.Columns[0].Visible := True; //Não deixa alterar coluna DBGrid1.Columns[0].ReadOnly := True Está ai o que quer... valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: RES: [delphi-br] Open Office - Delphi
Galera valeu pelas mobilização, O que preciso é isso, Tenho que abrir um Arquivo Chamado 'Modelo de Contrato' e substituir palavras especificas nele, no Word fazia isso tranquilo, mas no Open Write estou apanhando, É isso, Valeu pela força. Thiago Depois tem o Open Calc mas ai é depois, hehehe... [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Open Office - Delphi
E ai Galera... Li algo sobre isso em Post's anteriores mas não me ajudou muito, por isso envio uma nova msg... Tenho uma aplicação em Delphi 7 que abre um Modelo de Contrato em Word, e altera os campos que estão %NOME%, %END%, etc... mas meu cliente quer agora migrar tudo para o open office, mas estou encontrando dificuldade, para fazer isso, peguei uma rotina para abrir em branco somente o Open Office... Se alguem puder me ajudar, agradeço. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Open Office - Delphi
Debora,
Aqui está a procedure e a função que ultilzo para trabalhar com o Word,
var //Global
VelhoWord, NovoWord : Variant;
function TfrmContrato.CriaObjeto(const ClasseNome: String): IDispatch;
var Classifique_Id: TGUID;
Desconhecido: IUnknown;
begin
Classifique_ID:=ProgIdToClassId(ClasseNome);
if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then
OleCheck(desconhecido.QueryInterface(Idispatch, Result))
else
Result:=CreateOleObject(ClasseNome);
end;
procedure TfrmContrato.Gerar_Contrato;
var
Doc: Variant;
begin
//MSWord:= CreateOleObject('Word.Basic');
//MSWord := FileOpen('Modelo_Contrato.doc',1);
VelhoWord := CreateOleObject('Word.Basic');
NovoWord :=CriaObjeto('Word.Application');
// Tornar o word visivel
NovoWord.Visible := True;
// Abrir arquivo para edição
Doc:= NovoWord.Documents.OPEN(ExtractFilePath(Application.ExeName)
+'Modelo_Contrato.doc');
// Substituir itens do arquivo por texto escolhido
Doc.Content.Find.Execute(FindText := '%CONDOMINIO%',
ReplaceWith := ENcond.Text);
Doc.Content.Find.Execute(FindText := '%SINDICO%',
ReplaceWith := ENsind.Text);
Doc.Content.Find.Execute(FindText := '%ENDSIND%',
ReplaceWith := Eendsind.Text);
Doc.Content.Find.Execute(FindText := '%NSIND%',
ReplaceWith := EnuSind.Text);
Doc.Content.Find.Execute(FindText := '%APTSIND%',
ReplaceWith := Eaptsind.Text);
Doc.Content.Find.Execute(FindText := '%BLSIND%',
ReplaceWith := EblSind.Text);
Doc.Content.Find.Execute(FindText := '%CID%',
ReplaceWith := ECidade.Text);
Doc.Content.Find.Execute(FindText := '%UF%',
ReplaceWith := EUF.Text);
Doc.Content.Find.Execute(FindText := '%CONTRATADA%',
ReplaceWith := EContratada.Text);
Doc.Content.Find.Execute(FindText := '%PERIODO%',
ReplaceWith := EPrazo.Text);
Doc.Content.Find.Execute(FindText := '%DTINICIO%',
ReplaceWith := DateToStr(DTInicio.Date));
Doc.Content.Find.Execute(FindText := '%VALOR%',
ReplaceWith := TxAdm.Text);
Doc.Content.Find.Execute(FindText := '%EXTENSO%',
ReplaceWith := EvlExte.Text);
Doc.Content.Find.Execute(FindText := '%DATA%',
ReplaceWith := FormatDateTime('Porto Alegre, dd de de .',
DTInicio.Date));
Doc.Content.Find.Execute(FindText := '%CONDOMINIO%',
ReplaceWith := ENcond.Text);
Doc.Content.Find.Execute(FindText := '%SINDICO%',
ReplaceWith := ENsind.Text);
//Salvar Documento
Doc.SaveAs(ExtractFilePath(Application.ExeName) + DBText1.Caption+'.doc');
end;
[As partes desta mensagem que não continham texto foram removidas]
--
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 o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Open Office - Delphi
Elazar, Abre sim .doc, mas não é a mesma forma de se trabalhar no Delphi. valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Instalar componentes
Amigos, Estou tentando instala um componente e da o seguinte erro: Expected an identifier but the end of the file found Alguem sabe com resolvo isso?!?! Obrigado. Tbaiano [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Format
Em vez de fazer assim: floattostr(BASE) Faça assim: CurrtoStrF(BASE,ffNumber,2) É isso. Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ROLE permissões
E ai galera, Quais permissões um Usuário deve ter para poder criar permissões com ROLE, altera etc.. Só estou conseguindo criar roles com o SYSDBA, com outros não... Valeu... Thiapo [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ROLE permissões
E ai galera, Quais permissões um Usuário deve ter para poder criar uma ROLE e determinar as permissoões dela, tenho um usuario sem nenhuma permissão, e conecto o banco ultilizando uma role. Só estou conseguindo criar, alterar dar grant, revoke roles com o SYSDBA, com outros usuarios não... Valeu... Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Fazer aplicação inicializar com o Windows
E ai galera, Como faço para o meu programa inicializar com o Windows, Sendo pelo InoSetup quando instala ou pelo Delphi, de qualquer forma, não sei igual... É para um programaminha de Lenbretes... valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Cálculo Com Data
É assim: Var Dt : TDate; begin Dt := Date + 30; end; Date é o dia de hj capturado, então Dt vai receber a data de hj mais 30 dias, implicitamente o Delphi calcula mes para vc... É isso que quer, é simples... Valeu; Se não for de mais detalhes que eu entendi assim. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Modelo de Contrato
E ai galera, Estou com um cliente que quer um contrato entre eu (pessoa fisica) e ele (pessoa juridica) de um software que vou desenvolver para ele, então nunca fiz nada freelancer e gostaria se alguem tivesse um modelo de contrato sinples para me servir de exemplo?!?!... Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Botão''''' Não ''''' Focu
Amigos,
Executando esse codigo ai em baixo, o botão 'Sim' sempre recebe o Focu, como
faço para fazer com que o Botão 'Não' receba o Focu...
if Application.MessageBox('Continuar?','Empresa', MB_ICONQUESTION +
MB_YESNO) = ID_YES then
Valeu.
Thiago
[As partes desta mensagem que não continham texto foram removidas]
--
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 o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Máscara para CPF
Luciano, Essa função retira de uma string qualque dado que não seja um nº ... acho que serve para vc. function Retira_Mascara (dado : String) : String var i : integer; begin result := ''; i := 1; while i = length(dado) do begin if NOT dado[i] in ['0'..'9'] then result := result + dado[i]; inc(cont); end; end; Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Máscara para CPF
A função tava invertida, só agora que testei... Agora está certa... function Retira_Mascara (dado : String) : String; var i : integer; begin result := ''; i := 1; while i = length(dado) do begin if (dado[i] in ['0'..'9']) then result := result + dado[i]; inc(i); end; end; [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Botão''''' Não ''''' Focu
Fernando, É isso mesmo, valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Data do Banco Firebird
Valeu Galera, Eu testei e deu certo... Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Data do Banco Firebird
E ai galera, Queria saber como faço para pegar a data do banco FireBird, pelo Delphi... O que teria que fazer. Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Data do Banco Firebird
André, Estou com um sistema em Delphi, com Caixa etc... O caixa tem uma serie de regras com data para prever vencimento e etc, gostaria de saber se com esse comando eu pego a data inde o banco esta armazenado, ou seja, o Servidor. Vou fazer o teste... Muito Obrigado. Tbaiano [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Migrar Sistema de Empresa de Delphi para Linux
E ai pessoal, Qual os problemas que vou enfrentar ao migrar um sistema de Delphi para Linux, um software que fiz para uma imobiliária, está pensando em muidar seu sistema operacional para Linux, tenho que modificar muita coisa no programa... Nunca nem olhei o Kylix, simplesmente desconheço os problemas que virão se virem?!?! Valeu. Tbaiano [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: RES: [delphi-br] Migrar Sistema de Empresa de Delphi para Linux
Isso sim vou ter que tira os componentes do InfoPower que ultilizo são muitos bons... Quanto a versão do Kylix a última é 3, o que tem a me dizer do Kylix, vale a pena, não vale... Se mais alguem me ajudar agradeço!?!?! Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro Desconhecido!!!
E ai Galera!!! Se alguém souber como resolver este erro: Acontece quando vou imprimir um relatório do QuickReport, simplesmente sem explicação... Valeu pela Força!!! Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Erro desconhecido
E ai Galera!!! Se alguém souber como resolver este erro: Mensagen de Erro: Data provider or other service returned an E_FAIL status Acontece quando vou imprimir um relatório do QuickReport, simplesmente sem explicação... Valeu pela Força!!! Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] F1Book - Tipo o Excel - Delphi 7 paleta Active X
E ai galera, Alguem sabe ai como usar esse componente F1book (Active X), na verdade queria saber como faço para imprimir o que está nele... Valeu. Tbaiano [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Ordenar - Dado em Campo
O banco é FireBird 1.5, Vou dar uma olhada no 'case' em SQL... Valeu. Thiago [As partes desta mensagem que não continham texto foram removidas] -- 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 o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
