[delphi-br] SimpleDataSet em tempo de execução

2006-08-27 Por tôpico carlosclara
Ola, pessoal. To fazendo um formulário de procura generico e to
tentando usar o simpledataset para fazer a procura.
Na seção Public do form declaro:
public
{ Public declarations }
constructor create (AOwner: TComponent; DataSet: TSimpleDataSet);
reintroduce;

e a função:

constructor TformProcurar.create(AOwner: TComponent; DataSet:
TSimpleDataSet);
begin
  inherited create (AOwner);// Chama o construtor da classe base
  dtSrc.DataSet:= Dataset; // Atribui o dataset de procura
end;

Na chamada para o form procura:

formProcurar:= TformProcurar.create(Self, dmADM.sds_proc_uni);

Só que sempre da erro de index of bounds quando abro a pesquisa.
Acho que o erro tá na hora de atribuir o dataset. Alguém pode me ajudar?






-- 
 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] Pode o BDE ser instalado gratuitamente? ( off-topic )

2006-08-27 Por tôpico Joaquim Macedo
Olá a todos.


Tenho um programa feito em Delphi e que usa o BDE.
O BDE pode ser instalado gratuitamente nas máquinas do meu cliente?


Desde já o meu muito obrigado.

Cumprimentos,
Joaquim.








-- 
 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] Colunas mudam de Tamanho Sozinhas

2006-08-27 Por tôpico Gerson Thomaz Santos
 
 
 
 

Galera da Lista, boa tarde..
 
Estou com o seguinte problema:

Temos um GRID em uma se nossas aplicações que esta ligado à um DataSource,
esse à um ADOQuery e o ADOQuery à um ADOConnection. Como essa aplicação tem
que verificar o status do que tenho em tela de 10 em 10 segundos, eu dou um
refresh. Porém não sei por que quando ocorre o refresh, as colunas da GRID
mudam de tamanho sozinhas. As vezes elas ficam com Width 0, as vezes com 2
as vezes com 30, as vezes com 40.   Acontece com várias colunas, não tem uma
ordem, ou horário ou qualquer outra lógica que tenhamos percebido.
 
Já tentei dar o Refresh vai Query.Refresh,  via Query.Close;  Query.Open;  
e sempre a mesma coisa.   Em outras aplicações não acontece isso.
 
Alguém já passou por isso?? Tem idéia do que pode estar acontecendo:

Delphi:  7
Banco: MS-SQL 2000
Conexão: ADO
 
 
Abração a todos...
 
 
 
Atenciosamente,
Gerson Thomaz Santos
Analista de Sistema
[EMAIL PROTECTED]


Esta mensagem pode conter informação confidencial e/ou privilegiada.  Se você 
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode 
usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação 
baseada nessas informações.  Se você recebeu esta mensagem por engano, por 
favor avise imediatamente o remetente, respondendo o e-mail e em seguida 
apague-a.  Agradecemos sua cooperação.

[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] TStrings

2006-08-27 Por tôpico Bruno
Boa tarde ,



Estou tentando passar uma variável string para a form2.memo1.lines e não tá
dando certo. O compilador diz que String é diferente de TString e que
TString é o do memo.

Alguém sabe como posso contornar o problema ?





Abraços,



Bruno.


[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] qual o nome de um bom gerador de rel atórios?

2006-08-27 Por tôpico Allan
Eu recomendo o Fortes, super fácil de usar, e faz exportação em pdf, html, 
envia por e-mail, etc. super show, imprime código de barras com componente 
próprio, pode salvar o relatório, imprime texto vertical, show mesmo, 
recomendo, ah e é free e segue o mesmo padrão de trabalho do quick, só q MUITO 
melhor neh.

Abraços.

DEUS É PAI.
[]'s
Allan
msn [EMAIL PROTECTED]
Skype allan_gabriel
  - Original Message - 
  From: Luiz Eduardo Oliveira Fonseca 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, August 27, 2006 12:45 AM
  Subject: Re: [delphi-br] qual o nome de um bom gerador de relatórios?


  cara .. o crystal arrebenta  .. mas antes de falar q o crystal é caro ..
  lembre-se q tudo tem seu preço rsrsrs

  ah .. o reporting services da microsoft tbm é mto bom ... mas o esquema dele
  éum pouco diferente

  se vc quiser um relatorio grudado no programa .. tipo o quickreport .. vc
  pode usar o fastreport ou o reportbuilder .. q tbm sao mto bons .. e
  possouem mto mais recursos q o quickreports ;;;

  mas em questão de versatilidade, produtividade etc .. eu recomendo o crystal
  

  On 8/27/06, Welson Avelar [EMAIL PROTECTED] wrote:
  
   --- Desenvolvimento (Anderson) escreveu:
  
estou abandonando o quickreport e gostaria que me indicassem um bom
   gerador
de relatórios, RDPrint, Cristal Report, etc...
qual vocês me aconselham?
   
Obrigado.
   [--x--]
  
   [Welson] VDOPrint. Ele é mais usado pra impressão em matricial.
   O lance é que com ele você deverá fazer TUDO na munheca. Mas terá controle
   total do relatório.
   E ainda tem um preview biito !!! ^__^
  
   []s.
  
   http://vdo.sourceforge.net/cms/index.php?categoryid=1
  
   =
   O que me preocupa não é o grito dos maus. É o silêncio dos bons.
   Martin Luther King.
   =
   Welson de Avelar Soares Filho
   Analista/Programador Delphi
   Gemini Sistemas
   www.geminisistemas.com.br
   Juiz de Fora - Minas Gerais
   =
  
  
  
  
  
  
  
  
   ___
   Você quer respostas para suas perguntas? Ou você sabe muito e quer
   compartilhar seu conhecimento? Experimente o Yahoo! Respostas !
   http://br.answers.yahoo.com/
  
   
  



  -- 



  Atenciosamente, Luiz Eduardo.

  
   Desenvolvimento de Sistemas PHP e Delphi

   Manutenção em Base de Dados MySQL , Interbase/Firebird e MS Access ...

  Fone: (12) 8143-7191
  email alternativo: [EMAIL PROTECTED]

  


  [As partes desta mensagem que não continham texto foram removidas]

   


[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: SimpleDataSet em tempo de execução

2006-08-27 Por tôpico Eduardo Bianchi Ribeiro
  Oi Carlos,
Vc deve usar o método Assign para atribuir um DataSet a outro.
Eu tomei a liberdade de alterar um pouco seu construtor e funcionou
bem aqui ... 

constructor Create(AOwner: TComponent; DataSet: Pointer); reintroduce;

constructor TForm2.Create(AOwner: TComponent; DataSet: Pointer);
var
  dtSrc : TSimpleDataSet;
begin
  inherited create (AOwner);
  dtSrc := TSimpleDataSet(DataSet);
end;

Form2 := TForm2.Create(Self,SimpleDataSet1);

Espero que tenha lhe ajudado

Abraços ...








-- 
 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] Memo

2006-08-27 Por tôpico Bruno
Pode deixar, já consegui.  !

Valeu,

Bruno.


[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] String em Vetor

2006-08-27 Por tôpico Bruno
Boa Noite,

Gostaria de saber se existe alguma função no Delphi 6 capaz de pegar uma
string e ir quebrando ela caracter por caracter para fins de colocar esses
caracteres num vetor.
Se fosse em ASP eu diria que a função procurada é a função mid , mas em
Delphi infelizmente não consegui achar.


Agradeço Antecipadamente,


Bruno.


[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] String em Vetor

2006-08-27 Por tôpico Giovani Benedetti Penha
Como assim? Você pode acessar os caracteres de uma string como se fosse um
vetor.
Ex:
teste := 'abc';
teste[1] = 'a';
teste[2] = 'b';
teste[3] = 'c';

É isso que você queria fazer?

Abraços,
Giovani

Em 26/08/06, Bruno [EMAIL PROTECTED] escreveu:

 Boa Noite,

 Gostaria de saber se existe alguma função no Delphi 6 capaz de pegar uma
 string e ir quebrando ela caracter por caracter para fins de colocar esses
 caracteres num vetor.
 Se fosse em ASP eu diria que a função procurada é a função mid , mas em
 Delphi infelizmente não consegui achar.


 Agradeço Antecipadamente,


 Bruno.


 [As partes desta mensagem que não continham texto foram removidas]



 




-- 
Giovani Benedetti Penha


[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] OnKeyUp - Error

2006-08-27 Por tôpico Giovani Benedetti Penha
Outro probleminha aí é que a variável Key é do tipo word, mas você tentou
comparar com um char ('P' e 'p'). Tenta assim
... key = Ord('P') or ...
Outro detalhe, não seria melhor colocar o evento no KeyDown ao invés do
KeyUp?

Abraços,
Giovani

Em 25/08/06, Atendimento - BG on-line [EMAIL PROTECTED] escreveu:

 WILLER

 eu utilizo Ctrl + enter para alguns tipos de consultas...

 If (Key = 13) and (ssCtrl in Shift) Then

 é assim... shift nao é um valor e sim um conjunto de valores... por isso o
 erro de tipos...





   - Original Message -
   From: WILLER
   To: delphi-br@yahoogrupos.com.br
   Sent: Friday, August 25, 2006 12:36 PM
   Subject: [delphi-br] OnKeyUp - Error


   Estou tentando fazer com que uma função seja acionada quando o usuário
 pressionar ALT+P, só que dá erro de incompatibilidade de tipos, alguém sabe
 se cometi algum erro? Fiz ago errado? O ssAlt foi o próprio Delphi quem
 sugeriu.



   procedure TfrmBaixaMes.FormKeyUp(Sender: TObject; var Key: Word; Shift:
 TShiftState);
   begin
 IF Shift = ssAlt THEN
   IF (KEY = 'P')OR(KEY = 'p') THEN
 DM.ImpCab(1);
   end;


 [Error] frmBaixaMes_.pas(310): Incompatible types

   [As partes desta mensagem que não continham texto foram removidas]



 [As partes desta mensagem que não continham texto foram removidas]

 




-- 
Giovani Benedetti Penha


[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: SimpleDataSet em tempo de execução

2006-08-27 Por tôpico carlosclara
Bem, amigo, não funcionou. Acho que não me expliquei bem: Tenho um
formulario (formProcura) com um grid ligado a um Tdatasource(dtSrc).

Eu estava usando o componente SQLClientdataSet no delphi 7.

Declaro a classe constructor:

 public
{ Public declarations }
constructor Create(AOwner: TComponent; DataSet: TSimpleDataSet);
reintroduce;
 
E para chamar:
constructor TformProcurar.Create(AOwner: TComponent; DataSet:
TSimpleDataSet);
begin
  inherited create(AOWner);// Chama o construtor da classe base
  dtSrc.DataSet:= DataSet;// atribui o dataset de procura
end;

Quando chamo o form:

formProcurar:= TformProcurar.create(Self, dmADM.sds_proc_uni);
//dmADM.sds_proc_uni: simpledataset (sds_proc_uni) em um
datamodule(dmADM) com o sql de procura

Este exemplo eu retirei da revista clubedelphi 30(Sistema DataCar) do
Ghinter Pauli. 

--- Em delphi-br@yahoogrupos.com.br, Eduardo Bianchi Ribeiro
[EMAIL PROTECTED] escreveu

   Oi Carlos,
 Vc deve usar o método Assign para atribuir um DataSet a outro.
 Eu tomei a liberdade de alterar um pouco seu construtor e funcionou
 bem aqui ... 
 
 constructor Create(AOwner: TComponent; DataSet: Pointer); reintroduce;
 
 constructor TForm2.Create(AOwner: TComponent; DataSet: Pointer);
 var
   dtSrc : TSimpleDataSet;
 begin
   inherited create (AOwner);
   dtSrc := TSimpleDataSet(DataSet);
 end;
 
 Form2 := TForm2.Create(Self,SimpleDataSet1);
 
 Espero que tenha lhe ajudado
 
 Abraços ...








-- 
 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] TStrings

2006-08-27 Por tôpico Julio Cesar
form2.memo1.lines.TEXT?



Julio Cesar
[EMAIL PROTECTED]
+353 (87) 2184139
+353 (091) 630317


  - Original Message - 
  From: Bruno 
  To: Delphi-Br 
  Sent: Saturday, August 26, 2006 7:29 PM
  Subject: [delphi-br] TStrings


  Boa tarde ,



  Estou tentando passar uma variável string para a form2.memo1.lines e não tá
  dando certo. O compilador diz que String é diferente de TString e que
  TString é o do memo.

  Alguém sabe como posso contornar o problema ?





  Abraços,



  Bruno.


  [As partes desta mensagem que não continham texto foram removidas]




   

[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] Pode o BDE ser instalado gratuitamente? ( off-topic )

2006-08-27 Por tôpico Francisco - Mol
sim
  - Original Message - 
  From: Joaquim Macedo 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Sunday, August 27, 2006 12:48 PM
  Subject: [delphi-br] Pode o BDE ser instalado gratuitamente? ( off-topic )


  Olá a todos.


  Tenho um programa feito em Delphi e que usa o BDE.
  O BDE pode ser instalado gratuitamente nas máquinas do meu cliente?


  Desde já o meu muito obrigado.

  Cumprimentos,
  Joaquim.






   

[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] TStrings

2006-08-27 Por tôpico Logos
memo.lines.add(string)


- ri
  From: Bruno 
  To: Delphi-Br 
  Sent: Saturday, August 26, 2006 3:29 PM
  Subject: [delphi-br] TStrings


  Boa tarde ,



  Estou tentando passar uma variável string para a form2.memo1.lines e não tá
  dando certo. O compilador diz que String é diferente de TString e que
  TString é o do memo.

  Alguém sabe como posso contornar o problema ?





  Abraços,



  Bruno.


  [As partes desta mensagem que não continham texto foram removidas]




   

[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] String em Vetor

2006-08-27 Por tôpico Logos
veja se te server
117 - Quebra de String
Nesta dica iremos mostrar uma função que cria uma lista de strings baseado numa 
cadeia de string, quebrando-a onde encontrar um caractere predeterminado. Por 
exemplo:

Uma string como 'O céu é azul', escolhendo o caracter espaço (' ') para 
quebrar, seria tranformado em uma lista de strings que, colocada em um 
componente do tipo TListBox ficaria:

O

céu

é

azul

Isto é, onde havia um espaço a string foi quebrada.

function sBreakApart(BaseString, BreakString: string; StringList: TStringList): 
TStringList;
var
EndOfCurrentString: byte;
TempStr: string;
begin
repeat
EndOfCurrentString := Pos(BreakString, BaseString);
if EndOfCurrentString = 0 then
StringList.add(BaseString)
else
StringList.add(Copy(BaseString, 1, EndOfCurrentString - 1));
BaseString := Copy(BaseString, EndOfCurrentString + length(BreakString), 
length(BaseString) - EndOfCurrentString);

until EndOfCurrentString = 0;
result := StringList;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
t: TStringList;
begin
t := TStringList.create;
ListBox1.Items.Assign(sBreakApart(Edit1.Text, ' ', t));
t.free;
end;

 
  - Original Message - 
  From: Bruno 
  To: Delphi-Br 
  Sent: Saturday, August 26, 2006 5:46 PM
  Subject: [delphi-br] String em Vetor


  Boa Noite,

  Gostaria de saber se existe alguma função no Delphi 6 capaz de pegar uma
  string e ir quebrando ela caracter por caracter para fins de colocar esses
  caracteres num vetor.
  Se fosse em ASP eu diria que a função procurada é a função mid , mas em
  Delphi infelizmente não consegui achar.


  Agradeço Antecipadamente,


  Bruno.


  [As partes desta mensagem que não continham texto foram removidas]



   

[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] Pode o BDE ser instalado gratuitamente? ( off-topic )

2006-08-27 Por tôpico Luiz Eduardo Oliveira Fonseca
pode sim 

On 8/27/06, Francisco - Mol [EMAIL PROTECTED] wrote:

 sim

   - Original Message -
   From: Joaquim Macedo
   To: delphi-br@yahoogrupos.com.br
   Sent: Sunday, August 27, 2006 12:48 PM
   Subject: [delphi-br] Pode o BDE ser instalado gratuitamente? ( off-topic
 )


   Olá a todos.


   Tenho um programa feito em Delphi e que usa o BDE.
   O BDE pode ser instalado gratuitamente nas máquinas do meu cliente?


   Desde já o meu muito obrigado.

   Cumprimentos,
   Joaquim.








 [As partes desta mensagem que não continham texto foram removidas]


 




-- 



Atenciosamente, Luiz Eduardo.


 Desenvolvimento de Sistemas PHP e Delphi

 Manutenção em Base de Dados MySQL , Interbase/Firebird e MS Access ...

Fone: (12) 8143-7191
email alternativo: [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

 





[delphi-br] Converter arquivo .exe

2006-08-27 Por tôpico Renan
Tem como eu converter um programa feito em delphi .exe para codigo fonte 

valeuss

[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] Collate Pt-Br

2006-08-27 Por tôpico Marcelo Alves
Puts gente, já teste de todos os jeitos aqui e não rola. Baixei a última
versão do Firebird tb e nada...

O que está faltando???


2006/8/25, Marcelo Alves [EMAIL PROTECTED]:

  Pessoal, ví os emails sobre esse Collate e é justamente o que eu
 estou precisando. Bom, diante disso fiu tentar utilizá-lo, mas vi que
 eu não tinha essa opção no meu banco de dados. Criei um novo,
 indiquei o Character Set Win1252 e rodei o script abaixo:

 Insert Into rdb$collations
 (rdb$collation_name, rdb$character_set_id, rdb$collation_id,
 rdb$system_flag)
   values ( 'WIN_PTBR', 53, 6, 1);

 Insert Into rdb$collations
 (rdb$collation_name, rdb$character_set_id, rdb$collation_id,
 rdb$system_flag)
   values ('PT_BR', 21, 16, 1);

 Até aí blz...

 Criei um Domínio utilizando esse Colate, criei uma tabela e alguns
 campos utilizando esse novo domínio. Fiz alguns selects e não
 aconteceu o que foi falado nos e-mails, ou seja, ele continua levando
 em conta os acentos.

 Será que eu fiz algo errado ou está faltando alguma coisa???

 Agradeço desde já a ajuda de todos!!!

 Marcelo.



 




-- 
Marcelo A. Souza


[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