Jump to content
Fórum Script Brasil

YAKKOO(FEM)

Membros
  • Posts

    25
  • Joined

  • Last visited

About YAKKOO(FEM)

YAKKOO(FEM)'s Achievements

0

Reputation

  1. OI GENTE, TO COMEÇANDO AGORA NO FLASH... SERA QUE alguém PODERIA ME AJUDAR, DIZENDO COMO CRIO UM CAMPO INPUT TYPE? BRIGADIM BJOS
  2. YAKKOO(FEM)

    E-mails

    ola... fiz tudo o q você falou...mas da um erro: falando que o registro falhou. o q mais posso fazer?
  3. YAKKOO(FEM)

    E-mails

    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
  4. 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
  5. VALEU COLEGA, ONSEGUI LER OS DADOS CERTINHOS AKI..VALEU BJIM
  6. 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
  7. BOM DIA ... VOU COLOCAR: MEDIAMENTO 1- MEDICAMENTO 2 .....EM UM MEMO.
  8. 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;
  9. 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
  10. 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
  11. É REDE INTERNA... quando ELA CAIR O MEU PROGRAMA AVISASSE. TEM COMO?
  12. 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
  13. galera, queria q meu programa avisasse quando a rede caisse....tem como?
  14. 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
×
×
  • Create New...