Jhonas

https://br.search.yahoo.com/yhs/search?hspart=ddc&hsimp=yhs-ddc_bd&p=http://focalinux.cipsga.org.br/guia/avancado/ch-s-telnet.htm&type=bdc-bfr-6ZUJ7__alt__ddc_dss_bd_com http://www.eldos.com/sbb/delphi-ssl.php?re...CFUzs7QodQD5wHA OBS: o primeiro link foi destivado, mas voce pode ver outros com o mesmo assunto..... o segundo esta ok na mudança do forum os links foram perdidos... voce pode marcar e copiar o link e joga-lo no google abraço

veja no menu do delphi > Projects > Language veja qual a linguagem que esta definida lá... $00001004 => Chines Cingapura $00000C04 => Chines Hong Kong $00001404 => Chines Macau $00000804 => Chines Republica Popular da China $00000404 => Chines Taiwan $00000412 => Coreano se tiver algum desses, o erro é retornado nessa linguagem abraço

Amigo, voce deveria olhar além do obvio .... os 2 códigos vão fazer exatamente o que voce precisa bastaria inverter as posições de excução veja o exemplo que voce mesmo colocou: sergio_empresasiscuca joão_empresamodelo manoel_empresaacme manoel_empresamodelo sergio_empresaacme joão_empresasiscuca maria_empresaacme maria_empresamodelo isabel_empresaacme josé_empresaacme maria_empresasiscuca observe que eu modifiquei a sequencia que voce colocou, para lhe mostrar que o código funciona voce executa primeiramente a procedure Ordenar(Valores: tStrings); depois executa a function OrdenaValores(Memo : TMemo) : String; A UNICA DIFERENÇA ESTA NESSE COMANDO Valores.Add(copy(Memo.Lines.Strings,pos('_',Memo.Lines.Strings)+8,15)); depois que voce executa acontece isso: ordena o conteudo do Memo1 alfabeticamente pelo nome isabel_empresaacme josé_empresaacme joão_empresamodelo joão_empresasiscuca manoel_empresaacme manoel_empresamodelo maria_empresaacme maria_empresamodelo maria_empresasiscuca sergio_empresaacme sergio_empresasiscuca e depois alfabeticamente pelo nome da empresa, e joga o resultado no Memo2 isabel_empresaacme josé_empresaacme manoel_empresaacme maria_empresaacme sergio_empresaacme joão_empresamodelo manoel_empresamodelo maria_empresamodelo joão_empresasiscuca maria_empresasiscuca sergio_empresasiscuca OBS: voce mesmo limita o seu raciocinio lógico unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Memo2: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function OrdenaValores(Memo : TMemo) : String; var Valores : TStringList; ValoresX : TStringList; I, j, x, z : Integer; s : string; begin Valores := TStringList.Create; // numeros ValoresX := TStringList.Create; // string try for I := 0 to Memo.Lines.Count-1 do begin Valores.Add(copy(Memo.Lines.Strings,pos('_',Memo.Lines.Strings)+8,15)); ValoresX.Add(Memo.Lines.Strings); end; Valores.Sort; for j := 0 to ValoresX.count - 1 do for I := 0 to Valores.Count - 1 do begin if pos(Valores.Strings[j], ValoresX.Strings) >0 then begin Result := Result + ValoresX.Strings + #13; ValoresX.Strings := 'xxxxxxxxxxxxxxxxxx'; end; end finally FreeAndNil(Valores); end; end; procedure Ordenar(Valores: tStrings); var i, j : integer; temp : string; begin for i := 0 to Valores.Count - 1 do for j := 0 to Valores.Count - 2 do begin if ansiUpperCase(Valores[j]) > ansiUpperCase(Valores[j + 1]) then begin TEmp := Valores[j]; Valores[j] := Valores[j + 1]; Valores[j + 1 ] := TEmp; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Ordenar(Memo1.Lines); Memo2.lines.text := OrdenaValores(Memo1); end; end. end. abraço

ok... experimente assim procedure Ordenar(Valores: tStrings); var i, j : integer; temp : string; begin for i := 0 to Valores.Count - 1 do for j := 0 to Valores.Count - 2 do begin if ansiUpperCase(Valores[j]) > ansiUpperCase(Valores[j + 1]) then begin TEmp := Valores[j]; Valores[j] := Valores[j + 1]; Valores[j + 1 ] := TEmp; end; end; end; procedure TForm1.Button1Click(Sender: TObject); begin Ordenar(memo1.lines); end; Abraço

Não sei se voce vai entender a lógica, mas está ai a maneira de fazer isso OBS: supondo-se que os dados ( texto ) esteja dentro de um memo, primeiro voce deve separar os numeros da string e jogar em um stringlist. depois voce pode sortear a stringlist onde os valores obtidos serão ( 1,1,1,2,2,3,3,4,5 ) em outro stringlist voce joga o conteudo da string ( joão_empresa1, joão_empresa2, josé_empresa3, maria_empresa1 ...etc ) o pulo do gato, é voce usar os indices dos stringlists para ajunta-los novamente ordenados mas para que não ocorram repetições voce deve renomear o conteudo do indice da stringlist onde estão os nomes (texto) onde o resultado sera esse: joão_empresa1 maria_empresa1 manoel_empresa1 joão_empresa2 manoel_empresa2 josé_empresa3 manoel_empresa3 maria_empresa4 manoel_empresa5 ========================================================================================= unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Memo2: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function OrdenaValores(Memo : TMemo) : String; var Valores : TStringList; ValoresX : TStringList; I, j, x, z : Integer; s : string; begin Valores := TStringList.Create; // numeros ValoresX := TStringList.Create; // texto try for I := 0 to Memo.Lines.Count-1 do begin Valores.Add(copy(Memo.Lines.Strings,pos('_',Memo.Lines.Strings)+8,1)); ValoresX.Add(Memo.Lines.Strings); end; Valores.Sort; for j := 0 to ValoresX.count - 1 do for I := 0 to Valores.Count - 1 do begin if pos(Valores.Strings[j], ValoresX.Strings) >0 then begin Result := Result + ValoresX.Strings + #13; ValoresX.Strings := 'xxxxxxxxxxxxxxxxxx'; end; end finally FreeAndNil(Valores); end; end; procedure TForm1.Button1Click(Sender: TObject); begin Memo2.lines.text := OrdenaValores(Memo1); end; end. =========================================================================== OBS: o resultado foi jogado em outro memo.... use dessa maneira ou altere o código para o seu uso abraço

o erro está bem explicito: O código desse projeto deve ser atualizado para uso em sistemas de 64 bits voce deve baixar a comdlg32.dll para 64 bits https://www.google.com.br/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=comdlg32.dll%2064%20bit abraço

voce reparou qual é o caminho do arquivo ? ( ZComponentDesign70.bpl ) C:\ZeosDBO\Packages\delphi7 O programa não pode ser iniciado porque está faltando ZComponentDesign70.bpl no seu computador. Tente reinstalá-lo para resolver esse prolema sugestão: Desinstale os componentes, limpe os registros do windows usando o CCleaner ou outro.. crie uma pasta dentro do diretorio do delphi para o ZEOS depois instale novamente os componentes e inclua o caminho dos componentes no Library Path não esqueça de copiar as Bpls para a pasta Project/Bpl do delphi ou indique o caminho para o delphi onde as bpls se encontram. abraço

qualquer erro que de e eu não trate ele, mostra uma mensagem semelhante e isso somente quando instalo em outro computador. então veja as opções regionais do windows do computador onde instalou o programa Não achei a opção que você citou "Build with runtime packages". Menu > Component > Install Packages.... > Runtime Packages depois de marcar essa opção, voce deve dar um Build All no projeto abraço

Os links foram restaurados abraço

Veja esses links https://www.google.com.br/#q=importar+tabela+access abraço

. PAIR'.:41MICA1816-51-17 0-ftMffl1.W VTR=FOWL% OBS: pela tradução, parece ser um produto da tabela esse erro pode estar relacionado ao character set da tabela, do form ou das opções regionais do windows uma possivel solução é : ir em "Propject", "Options", "Packages" e marcar a opção "Build with runtime packages" abraço

veja esses links https://www.google.com.br/?gws_rd=ssl#q=virus+de+computador+infec%C3%A7%C3%A3o abraço

seja bem vindo ao forum ...se voce puder ajudar os membros do forum, todos agradecem.... abraço

voce tentou refazer a senteça aos poucos e ir testando até que o erro aconteça ? exemplo .... coloque a senteça ate aqui e teste SELECT SUM(MT.QTDE * M.VALOR_UNIT) FROM MOV_MATERIAL MT LEFT JOIN MATERIAIS M ON (MT.COD_MAT = M.CODIGO) LEFT JOIN DER_RELAC DR ON (MT.COD_DOCTO = DR.CODIGO) WHERE MT.CONTA_DECL = : CODIGO se não der erro, va colocando a proxima linha, e teste novamente .... até o final da senteça como eu falei, no MYSQL_Front voce pode testar a sentença fora do programa abraço

ok... voce tambem pode refazer a senteça aos poucos e ir testando até que o erro aconteça

ok... então faça o seguinte teste .... tire o parametro VALOR_TEMP e susbstitua por um valor e veja se erro some INTO :VALOR_TEMP;

voce pode tentar tirar o ponto e virgula e ver o que acontece, mas tambem pode ser que o tamanho da setença esteja ultrapassando 255 caracteres abraço

veja esses links ... muitos exemplos https://www.google.com.br/?gws_rd=ssl#q=email+python abraço

Dynamic SQL Error - SQL error code = -104 - Token unknown - line 32, char 16 - ? Na verdade, o erro se refere a construção da sentença na select ... existe um simbolo desconhecido na sentença o char 16 é um Data Line Escape ( linha de fuga de dados ) para tirar a dúvida, delete toda a senteça e a refaça ( não copie e cole .. digite a setença novamente ) e veja se acontece novamente o mesmo erro abraço

leia o manual para ter uma noção sobre o assunto http://pt.slideshare.net/asergionogueira/acessando-a-rede-com-o-python abraço

veja se a rotação do cooler do processador está normal veja tambem se o dissipador de calor do processador não está com excesso de poeira.. se estiver limpe o dissipador se possivel troque tambem a pasta térmica do processador isso que voce reportou pode ser excesso de calor no processador , e em consequencia, o micro se desliga ou pode ser algum programa do windows que esta corrompido ... nesse caso voce deve fazer uma atualização do windows pelo CD de instalação abraço

ok... precisando tirar dúvidas é só postar ... abraço

veja esse manual de python http://pt.slideshare.net/asergionogueira/python-do-bsico-web com relação ao range https://www.google.com.br/?gws_rd=ssl#q=for+a+in+range+x+2+x+2%29+python abraço

você recomenda que eu exclua o post daqui e publique no forum principal? se voce não percebeu seu tópico já foi movido de lugar veja qual é o valor que esta sendo passado no parametro VALOR_TEMP outra forma de testar a sua select é atraves do aplicativo MYSQL_Front que voce pode baixar da net https://www.google.com.br/search?q=mysql_front+downalod&ie=utf-8&oe=utf-8&client=firefox-b&gfe_rd=cr&ei=eWlIV-bAMtDK8gfhrpvwBQ#q=mysql+front+download abraço

tente esses links ... vai ajudar a ter uma noção do que se deve fazer https://www.google.com.br/?gws_rd=ssl#q=temporizador+python abraço