Fórum mostrando numeros em edits de um arquivo txt #397556
19/03/2011
0
bom dia pessoal, estou precisando de uma mão ai,tenho um formulario, aonde tenho vários botões numerados de 1 a 50 . eu marco os numeros que quero, e envio para um listbox ex.(10)02 - 03 - 05 - 06 - 10 - 12 - 15 - 23 - 25 - 30 ai uso um save dialogo e salvo em arquivo texto .porem digamos que tenho 50 linhas destas acima. e gostaria alem de mostra-las no listbox mostrasse também em edits. aonde tivesse um botão para frente e para traz como no dbnavigation. se alguém puder ajudar agradeço muito geraldo leal
Geraldo Leal
Curtir tópico
+ 0Posts
19/03/2011
Marco Salles
Gostei + 0
19/03/2011
Geraldo Leal
Boa tarde marcos, obrigado por atender meu pedido o (10) é para marcar a quantidade de numeros da linha. se tiver 15 numeros então será(15) entre parenteses os edits serão digamos 25 de 1 a 25 e os numeros daslinhas vão variar de de 1 até 15 podendo ser centenas de linhas. ex. (15) 03 - 04 - 05 - 06 - 07 - 09 - 10 - 13 - 15 - 16 - 20 - 21 - 23 - 24 - 25 (15) 01 - 02 - 05 - 06 - 08 - 09 - 11 - 12 - 14 - 15 - 16 - 17 - 18 - 21 - 25 (15) 01 - 02 - 04 - 05 - 06 - 07 - 08 - 11 - 15 - 16 - 18 - 19 - 23 - 24 - 25 (15) 01 - 02 - 03 - 07 - 08 - 11 - 12 - 14 - 16 - 18 - 19 - 21 - 22 - 24 - 25 (15) 04 - 05 - 06 - 08 - 09 - 10 - 13 - 16 - 17 - 18 - 19 - 21 - 22 - 23 - 25 (15) 01 - 02 - 04 - 06 - 07 - 10 - 12 - 13 - 15 - 16 - 19 - 21 - 22 - 23 - 24 (15) 01 - 02 - 03 - 04 - 05 - 07 - 08 - 11 - 14 - 15 - 16 - 19 - 21 - 23 - 25 (15) 02 - 03 - 04 - 05 - 07 - 08 - 09 - 10 - 11 - 14 - 16 - 17 - 18 - 23 - 25 (15) 01 - 02 - 04 - 06 - 08 - 09 - 10 - 12 - 14 - 15 - 18 - 19 - 23 - 24 - 25 (15) 03 - 05 - 06 - 07 - 08 - 09 - 12 - 14 - 17 - 18 - 19 - 21 - 23 - 24 - 25 (15) 01 - 05 - 07 - 08 - 10 - 12 - 13 - 14 - 16 - 18 - 19 - 20 - 21 - 23 - 24 aqui foi mostrado no listbox. o que gostaria é de alem de mostrar no listbox mostrasse támbém nos edits correspondentes.e que fosse para a frente ou para traz nos registros. qualquer outra duvida posta ai por favor. sucesso geraldo
Gostei + 0
20/03/2011
Marco Salles
o que siginifica este ir para frente ou para tras nos registros
so esclareceu foi o numero entre parentesis .. Ele significa a quantidade de COLUNAS de uma determinada
Linha ( considerando Colunas somente o que for Numerico , ou como vc mesmo definiu > "quantidade de numeros da linha")
cada linha do listBox mostra num edit ???
cada numero de uma determinada linha do ListBox mostra num edit ???
O que que é este ir para frente ou para tras nos registros ??
tente dar exemplo visual <Primt Scren> .. preencha na mão mesmo o que vc quer em relação aos edits
Prinr Scree
Gostei + 0
20/03/2011
Perivaldo Martins
o que siginifica este ir para frente ou para tras nos registros
so esclareceu foi o numero entre parentesis .. Ele significa a quantidade de COLUNAS de uma determinada
Linha ( considerando Colunas somente o que for Numerico , ou como vc mesmo definiu > "quantidade de numeros da linha")
cada linha do listBox mostra num edit ???
cada numero de uma determinada linha do ListBox mostra num edit ???
O que que é este ir para frente ou para tras nos registros ??
tente dar exemplo visual .. preencha na mão mesmo o que vc quer em relação aos edits
Prinr Scree
Gostei + 0
20/03/2011
Geraldo Leal
quando clico em um numero de 1 a 15 ele marca os botões, ai clico em adicionar , ele manda para listbox
clico em salvar , ele salva em arquivo texto. o que gostaria que fizesse agora , é que aqui no dbnavigator
eu navegasse nos edits estes numeros que estão no listbox. e que eu pegue um arquivo texto ja
pronto , clico em abrir ele vem para o listbox e eu navego nos edits.linha a linha. cada linha seria um
registro de um banco de dados. o 01 do listbox vai para o 01 do edit e assim por diante, quando clico em next
ele vai para o segundo registro, ou a segunda linha.
obrigado
qualquer outra duvida estou as ordens
sucesso
geraldo leal
Gostei + 0
20/03/2011
Marco Salles
Marca como ?? Arbitrariamente ?? segundo uma logica ??
marcar seria alterar o Flat dele ???
O que esta em vermelho e azul são os buttons???
o que que vc quer dizer com marcar ???
Mas onde estão os edits nesta estrutura. Não da para visualizar ???
Gostei + 0
21/03/2011
Geraldo Leal
isto quer dizer que cliquei no numero 15 ao lado direito dos botões, se eu clicasse no numero 10 ele
marcaria 10 botões, randomicamente.
e os edits estão ao lado do listbox do lado direito. quando marco os botões eles ficam como na imagem ou seja
fundos como estão.com as cores, dizendo os numeros pares e os numeros impares . quando estão marcados eu clico em adicionar e os mesmos vão para o listbox abaixo , como está na imagem. e quando clico estão no listbox eu clico eu salvar , e salvo um arquivo atraves de um save dialogo. o que quero, é quando eles estiverem no listbox
eu consigo mostra-los nos edits que estão na imagem do lado direito do listbox. e acima do dbnavigator. se eu pudesse usar um banco de dados, seria so salvar em uma tabela e mostrar atraves do dbnavaigator, mais não é o que preciso. Preciso de salvar em arquivo texto e mostrar nos edits passando os registros. que salvei no arquivo texto.e que estão no listbox.
qualquer outra coisa estou as ordens
sucesso
geraldo leal
[code]
Gostei + 0
21/03/2011
Marco Salles
Porque que vc desenhou 25 edits???
Gostei + 0
21/03/2011
Geraldo Leal
Bom dia Marcos, o porque dos 25 edits, é que tenho numeros de 1 a 25 e escolho de 1 a 15 entre os 25 . posso escolher o 1 - 2 - 5 - 6 - 7 - 12 - 17 - 18 - 19 - 20 - 21 - 22 - 23 -24 - 25. ok. sucesso geraldo leal
Gostei + 0
21/03/2011
Geraldo Leal
Bom dia Marcos, o porque dos 25 edits, é que tenho numeros de 1 a 25 e escolho de 1 a 15 entre os 25 . posso escolher o 1 - 2 - 5 - 6 - 7 - 12 - 17 - 18 - 19 - 20 - 21 - 22 - 23 -24 - 25. ok. sucesso geraldo leal
complementando marcos, cada numero deve ir para o edit correspondente ao mesmo. ou seja o numero 20 para o edit 20 o numero 25 para o edit 25 o numero 1 para o edit 1 e assim sucessivamente. obrigado
Gostei + 0
21/03/2011
Marco Salles
duas consdiçoes iniciais
1) que os todos os edits que fizerem parte do processo sejem definidos como
edit1, edi2,.......ate edit25
2) Que o Arquvo Txt tenha a estrutura
(15) 03 - 04 - 05 - 06 - 07 - 09 - 10 - 13 - 15 - 16 - 20 - 21 - 23 - 24 - 25
ou Por exeplo
(01) 03
ou por exemplo
(02) 03- 04
e assim sucessivamente
Visto isto podemos implementar
procedure TForm1.AtribuirEdit(const Str:String);
var
C:Tcomponent;
Lista:TStrings;
Linha:String;
quant:Integer;
i:Integer;
begin
for C in Self DO
if C is TEdit then
TEdit(C).Clear;
Lista:=TStringlist.Create;
try
Linha:=Str;
quant:=strtoint(copy(linha,2,2));
delete(Linha,1,5);
Lista.StrictDelimiter:=True;
Lista.Delimiter:='-';
Lista.DelimitedText:=Linha;
for I := 0 to pred(Lista.Count) do
TEdit(form1.FindComponent('edit'+inttostr(strtoint(trim(Lista.Strings[i]))))).Text:=
(Lista.Strings[i]);
finally
lista.Free;
end;
end;No evento OnClick do List Box chame a procedure
procedure TForm1.ListBox1Click(Sender: TObject); begin AtribuirEdit(TListBox(sender).Items.Strings[TListBox(sender).ItemIndex]); end;
ps) Teste e rode
Os métodos de navegção ainda não foram implemtados
Isto é so para mostrar a idéia
se tiver mais edits no form tem que criar umas regras para que eles não sejem limpos pelo método
Gostei + 0
21/03/2011
Geraldo Leal
Bom dia Marcos
peguei o codigo que mandou e coloquei no
public
procedure AtribuirEdit(const Str:String);
procedure Tform1.AtribuirEdit(const Str: String);
var
C:Tcomponent;
Lista:TStrings;
Linha:String;
quant:Integer;
i:Integer;
begin
//for C in Self DO ////// esta linha, quando desmarco o codigo não roda
if C is TEdit then
TEdit(C).Clear;
Lista:=TStringlist.Create;
try
Linha:=Str;
quant:=strtoint(copy(linha,2,2));
delete(Linha,1,5);
//Lista.StrictDelimiter:=True; ////// esta linha, quando desmarco o codigo não roda
Lista.Delimiter:='-';
Lista.DelimitedText:=Linha;
for I := 0 to pred(Lista.Count) do
TEdit(Frm_gerarcartoeslotofacil.FindComponent('edit'+inttostr(strtoint(trim(Lista.Strings[i]))))).Text:=
(Lista.Strings[i]);
finally
lista.Free;
end;
end;
este codigo abaixo, com as duas linhas marcadas acima, ele não roda(não passa aqui) quando clico na linha no listbox ele dá trava.
procedure Tform1l.ListApostasClick(Sender: TObject);
begin
AtribuirEdit(TListBox(sender).Items.Strings[TListBox(sender).ItemIndex]);
end;
e se achar necessario, te mando para o email, um exemplo.
sucesso
geraldo leal
[/code]
Gostei + 0
21/03/2011
Marco Salles
if C is TEdit then
sua versão do delphi é anterior aodelphi 2007
então substutua o codigo
begin for C in Self DO ////// esta linha, quando desmarco o codigo não roda if C is TEdit then TEdit(C).Clear;
por
For i:=0 to pred(self.controlCount) do if self.controls[i] is TEdit then TEdit(self.controls[i]).clear;
o resto continua...
Gostei + 0
21/03/2011
Geraldo Leal
funcionou agora com uma ressalva. se deixo esta linha ativa
Lista.StrictDelimiter:=True;
ele não compila, se comenta esta linha ele compina e funciona.
o meu delphi é 7
tirando esta linha esta funcionando, faltando agora a segunda parte, que é a de passar os registros no edit
se clicar de linha em linha ele vai mostrando as linhas, porem posso ter 500 linhas, e preciso que passe em um
botão tipo o db navigator como comentado anteriormente.
obrigado
sucesso
geraldo leal
[/code]
Gostei + 0
21/03/2011
Geraldo Leal
funcionou agora com uma ressalva. se deixo esta linha ativa
Lista.StrictDelimiter:=True;
ele não compila, se comenta esta linha ele compina e funciona.
o meu delphi é 7
tirando esta linha esta funcionando, faltando agora a segunda parte, que é a de passar os registros no edit
se clicar de linha em linha ele vai mostrando as linhas, porem posso ter 500 linhas, e preciso que passe em um
botão tipo o db navigator como comentado anteriormente.
obrigado
sucesso
geraldo leal
[/code]
marcos mais uma coisa, tenho sim mais edits no form.
obrigado
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)