YAKKOO(FEM)
Membros-
Total de itens
25 -
Registro em
-
Última visita
Sobre YAKKOO(FEM)
YAKKOO(FEM)'s Achievements
0
Reputação
-
OI GENTE, TO COMEÇANDO AGORA NO FLASH... SERA QUE alguém PODERIA ME AJUDAR, DIZENDO COMO CRIO UM CAMPO INPUT TYPE? BRIGADIM BJOS
-
ola... fiz tudo o q você falou...mas da um erro: falando que o registro falhou. o q mais posso fazer?
-
Galera, uso o Cdonts para enviar emails,,,minha pagina funciona normalmente, mas os emails não chegam na caixa para onde foram direcionados. alguém pode me ajudar? Valeu...bjim
-
MENTIRA não CONSEGUI não..... OLHA O COMANDO QUE TO USANDO: var ArqTxt : TextFile; Linha, Codigo, Cliente, Atendimento, Leito, Medicamento : string; x : Integer; Achou : boolean; begin AssignFile(ArqTxt,'C:\PROCORDIS.txt'); Reset(ArqTxt); Achou := False; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); Codigo := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); Cliente := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); Leito := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); Atendimento := Copy(Linha,1,Pos(';',Linha)-1); delete(Linha,1,Pos(';',Linha)); x := Length(Linha) - Length(Atendimento); Medicamento := Copy(Linha,Pos(';',Linha)+1,x); if trim(EditNProntuario.text) = Codigo then begin EditNomePaciente.Text := Cliente; ComboBoxLeito.Text := Leito; ComboBoxNAtendimento.Text := Atendimento; MemoVaiParaPrescricao.Lines.Add(Medicamento); Achou := True; Exit; end; end; Linha := ''; Closefile(ArqTxt); O MEU ARQUIVO TXT É O SEGUINTE: 1669275;CARLOS MURILO ROCHA;1;1;MEDIC1;MEDIC2;MEDIC3; 1683894;WELLINGTON BRUNO DUTRA CUSTODIO;2;2;MEDIC1;MEDIC2;MEDIC3; ELE LE TUDO DIREITINHO, SO QUE NA HORA DE MOSTRAR NO MEMO OS MEDICAMENTO ELE MOSTRA COMO TA NO TXT, QUERIA QUE DEPOIS DE CADA ;DO MEDICAMENTO FOSSE DADA UMA QUEBRA DE LINHA (ENTER). SE PUDEREM MEAJUDAR ........ BRIGADIM BJO
-
VALEU COLEGA, ONSEGUI LER OS DADOS CERTINHOS AKI..VALEU BJIM
-
OI GENTE... TO PRECISANDO DO SEGUINTE: TENHO UM TXT ASSIM: . . .;MEDICAMENTO1;MEDICAMENTO12 TO LENDO ELE DA SEGUINTE FORMA, E TA FUNCIONANDO BELEZA. x := Length(Linha) - Length(Leito); Medicamento := Copy(Linha,Pos(';',Linha)+1,x); . . . MemoVaiParaPrescricao.Lines.Add(Medicamento); SO QUE NA HORA DE MOSTAR OS DADOS NO MEMO FICA COMO ESTA NO TXT (. . .;MEDICAMENTO1;MEDICAMENTO2) E ASSIM não SERVE PRA MEU SISTEMINHA, PRECISO QUE DEPOIS DE CADA PONTO E VIRGULA( DE UMA QUEBRA DE LINHA (ENTER) E OS DADOS APAREÇAM ASSIM NO MEMO: MEDICAMENTO 1 MEDICAMENTO 2 . . . COMO POSSO FAZER ISSO? VALEU... BJIM A TODOS
-
BOM DIA ... VOU COLOCAR: MEDIAMENTO 1- MEDICAMENTO 2 .....EM UM MEMO.
-
DE UMA OLHADA NO CODIGO ABAIXO: ELE PAEGAVA SOMENTE (111-JOAO-1). AGORA PRECISO ALTERA-LO PARA PEGAR (111-JOAO-1-MEDICAMENTO1-MEDICAMENTO2-MEDICAMENTO3...) SERA Q você PODE ME AJUDAR? ///----- var ArqTxt : TextFile; Linha, Codigo, Cliente, Atendimento : string; x : Integer; Achou : boolean; begin AssignFile(ArqTxt,'C:\CLIENTES.txt'); Reset(ArqTxt); Achou := False; while not eof(ArqTxt) do begin Readln(ArqTxt, Linha); Codigo := Copy(Linha,1,Pos('-',Linha)-1); delete(Linha,1,Pos('-',Linha)); Cliente := Copy(Linha,1,Pos('-',Linha)-1); x := Length(Linha) - Length(Cliente); Atendimento := Copy(Linha,Pos('-',Linha)+1,x); if trim(Edit1.text) = Codigo then begin Edit2.Text := Cliente; Edit3.Text := Atendimento; Achou := True; Exit; end; end; Linha := ''; Closefile(ArqTxt); if not Achou then begin Edit2.Text := ''; Edit3.Text := ''; ShowMessage('Codigo não encontrado!'); Edit1.SetFocus; end; end;
-
OI, FOCOU UM POKINHO DIFRENTE E ME ENROLEI TODA AKI.. O ARQUIVO QUE TEREI QUE LER SERA ASSIM: 111-ANNELISE-1-MEDICAMENTO2-MEDICAMENTO3 222-AMAURY-1-MEDICAMENTO2-MEDICAMENTO3 333-JOSE-1-MEDICAMENTO2-MEDICAMENTO3 444-MARIA-1-MEDICAMENTO2-MEDICAMENTO3 OBS.: OS MEDICAMENTOS SERAO INFINITOS, OU SEJA, não TEM UMA QUANTIDADE PRE-DETERMINADA. SE alguém PUDER ME AJUDAR... VALEU BJIM
-
BRIGADAO...
-
OI GENTE.. tudo bem. Aki, to precisando do seguinte: quando terminar de preencher um campo eu teclar ENTER e o dado ser enviado para o seu destino. como faço para que o ENTER funcione envie este dado. Valeu. Bjos
-
É REDE INTERNA... quando ELA CAIR O MEU PROGRAMA AVISASSE. TEM COMO?
-
PODE SER ASSIM, DESSE JEITO,...SO MAIS UMA COISA, E SE EU QUISER ACRECENTAR MAIS UM DADO. POR EXEMPLO: 123-JOAQUIM-80 SERIA O CODIGO, O CLIENTE E O ATENDIMENTO QUERIA ACRECENTAR O ATENDIMENTO VALEU...MT PELA AJUDA
-
galera, queria q meu programa avisasse quando a rede caisse....tem como?
-
galera..tiudo beim?! aki,to pecisando do seguinte: existem dados gravados em um txt (codigo, nome cliente), gostaria de q quando eu digitasse um codigo q esta neste txt o nome aparece em seu devido campo. Existe a possibilidade de fazer isso? Valeu galera. bjos