gmane.comp.ide.lazarus.brazil

Re: erro caracteres acentuados

Alex — 2013-05-21T02:36:42

Re: erro caracteres acentuados

silvioprog — 2013-05-21T02:05:31

Em 20 de maio de 2013 20:51, Alex <alex_p_silva-/E1597aS9LRfJ/NunPodnw< at >public.gmane.org> escreveu:


Anexo um exemplo que usei na segunda gerra mundial. Não repare a sujeira, é
código antigo.

Re: erro caracteres acentuados

Alex — 2013-05-21T00:14:39

Re: erro caracteres acentuados

Amarildo Araújo — 2013-05-21T00:08:46

Eu utilizo está função

function TFuncoes.TiraCifraoTrocaVirg_Pto(Vlr: string): String;
var i:integer;
begin
  if Vlr <> '' then
    begin
      for i := 0 to Length(Vlr) do
        begin
          if Vlr[i] = ',' then
              begin
                Vlr[i]:='.';
              end else
                  begin
                    if Vlr[i] = 'R' then
                      begin
                        Vlr[i]:=' ';
                      end else
                          begin
                            if Vlr[i] = '$' then
                                begin
                                  Vlr[i]:=' ';
                                end;
                          end;
                  end;
            END;
  end;
  Result := vlr;
end;

<º_º>  Amarildo Araújo.
Skype:amarildo.vix


Se você pretende redirecionar este e-mail, por favor, apague todos os
endereços que aparecem  nele.
Uma opção de segurança é endereçá-los no Cco (com cópia oculta). Desta
forma você estará protegendo a mim

erro caracteres acentuados

Alex — 2013-05-20T23:51:02

Ola pessoal
tenho uma unit em iso-8859-2 e preciso substituir o conteudo de um Tedit 
para remover o 'Ç' quando digitar 'PÇ' ele substitui por 'PC' ja tentei 
as funções abaixo mas nada funcionou ...alguma dica ?

   // Edit33.Text:=stringreplace(Edit22.Text,'Ç','C',[rfReplaceAll]);
    if (Edit22.Text=AnsiToUtf8('PÇ'))then
    Edit33.Text:='PC';

Re: [OFF] Enfim o Google se rendeu! PHP no googleappengine :D!

Rafael — 2013-05-20T17:38:33

boa...


2013/5/20 JB <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

[OFF] Enfim o Google se rendeu! PHP no googleappengine :D!

JB — 2013-05-20T14:19:07

Fontes:

http://www.phpclasses.org/blog/post/208-5-Reasons-Why-the-Web-Platform-War-is-Over-PHP-Won-with-75-says-Google.html

https://developers.google.com/live/shows/511454529/

https://code.google.com/p/googleappengine/issues/detail?id=13&colspec=ID%20Type%20Component%20Status%20Stars%20Summary%20Language%20Priority%20Owner%20Log

José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org

Re: [lazarus-br] E o Brook já pode ser usado?

JB — 2013-05-20T10:37:18

Estou trabalhando no projeto, pode ficar instável, teste usando esse link
http://jbs.linkpc.net/restclient.html

att.
JB


José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org


2013/5/20 JB <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

Re: [lazarus-br] E o Brook já pode ser usado?

JB — 2013-05-20T10:08:13

opa, sorry, tente novamente

acho que estava com o serviço parado...

me adiciona no gtalk.

att.
JB


José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org


2013/5/20 Arnaldo Silva <azlinjsilva-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

Re: [lazarus-br] E o Brook já pode ser usado?

Arnaldo Silva — 2013-05-20T09:36:46

Bom dia JB,

O Firefox não conseguiu estabelecer uma conexão com o servidor 
jbs.linkpc.net.

:(

Em 20-05-2013 05:18, JB escreveu:

Re: [lazarus-br] E o Brook já pode ser usado?

JB — 2013-05-20T08:18:21

Bom dia Everaldo,

o Silvio pode te responder melhor, porém posso dar minha opinião? :)

Sim, o Brook pode ser utilizado sem muita dor de cabeça.

Estou acompanhando o trabalho do Silvio a um bom tempo e testando
"insanamente" diversas tecnologias possíveis de desenvolvimento com
Lazarus/FPC, pois tenho a necessidade de migrar meu servidor de aplicações
feito em Delphi, esta tarefa não está sendo fácil e nessas últimas semanas
tive grande êxito ao incorporar o Brook na minha solução. É uma ferramenta
completa para o que se propõe, muito bem estudada e desenvolvida pelo
Silvio com apoio da comunidade, ele utiliza oque há de melhor no FPC e
entrega de forma simples ao desenvolvedor.

Para efeito de demonstração, disponibilizo um exemplo do Brook rodando em
meu servidor de aplicações.

http://jbs.linkpc.net/

É um simples exemplo de um cliente JSON RPC, apenas acesse em clique em
Run, ele vai acessar meu servidor, executar q query e retornar os dados no
padrão JSON RPC.

Todo serviço foi

[lazarus-br] E o Brook já pode ser usado?

Everaldo — 2013-05-20T02:14:45

Caro amigo Sílvio, como está o Brook, já pode ser utilizado sem muita 
"dor de cabeça"? Se pode, qual o linque para baixá-lo e começar a 
desenvolver através dele? Desde já, sou-lhe grato pela resposta que me 
fornecer.


Everaldo

Re: [lazarus-br] Tradução do aplicativo para PT-BR embutida no executável.

Ademir Constantino — 2013-05-19T20:27:51

Minha parcela de contribuição.

O Daniel enviou a unit DJ_Const.pas que utiliza o arquivo de tradução 
embutida no LRS.
Porém, a função TranslateUnitResourceStrings extrai o arquivo e o grava 
no disco.

Eu resolvi modificar de forma que o arquivo seja usado apena em memória 
(Stream), então a função ficou assim:

function TranslateUnitResourceStrings_BR: Boolean;
var
   LRes: TLResource;
   PO: TPOFile;
   SS: TStringStream;
   B: Boolean;
begin
   Result := False;
   LRes := LazarusResources.Find('lclstrconsts.pt_BR','PO');
   if LRes <> nil then
     begin
     SS := nil;
     PO := nil;
     try
       SS := TStringStream.Create(LRes.Value);
       PO := TPoFile.Create(SS, False);
       try
         B := Translations.TranslateUnitResourceStrings('lclstrconsts',PO);
         if B then Result := True else Result := FAlse;
       except
         Result := False;
       end;
     finally
       if Assigned(SS) then SS.Free;
       if Assigned(PO) then PO.Free;
     end;
   end;
end;

Ademir

On 0

[lazarus-br] Novo componente padrão no Lazarus

Arnaldo Silva — 2013-05-19T17:30:15

O Lazarus 1.1 trás um novo componente, na nova aba chamada "Industrial". 
Um TArrow.

Re: [lazarus-br] Re: Mais um ponto pra o lázaro e relação ao Delphi.

Marcos Douglas — 2013-05-18T19:58:54

2013/5/18 Daniel Gaspary <dgaspary-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>:

Correto! Me expressei mal, desculpe me.


+1


Realmente.

Marcos Douglas

Re: [lazarus-br] Re: Mais um ponto pra o lázaro e relação ao Delphi.

JB — 2013-05-18T19:11:51

postei só para efeito de informação e comparação...
o "TeFodeition" é realmente fodeition rsrsrs é pra ajudar os times na
qualidade de software, controle de fontes, testes, etc...


José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org


2013/5/18 William Oliveira Ferreira <bdexterholland-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

Re: [lazarus-br] Re: Mais um ponto pra o lázaro e relação ao Delphi.

William Oliveira Ferreira — 2013-05-18T17:43:04

por que o VS Pro não tem o "TeFodeition" e o Test Pro tem?


Em 18 de maio de 2013 13:00, Daniel Gaspary <dgaspary-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org> escreveu:

Re: [lazarus-br] Re: Mais um ponto pra o lázaro e relação ao Delphi.

Daniel Gaspary — 2013-05-18T16:00:38

2013/5/18 JB <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>:

Só propaganda ou algum argumento altamente implícito? :)

Re: [lazarus-br] Re: Mais um ponto pra o lázaro e relação ao Delphi.

JB — 2013-05-18T15:33:17

http://msdn.microsoft.com/pt-BR/subscriptions/buy.aspx


José Benedito
JBS Soluções
Consulting Systems Development
c <josebenedito-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>ontato-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org
www.jbsolucoes.net

skype: sac-sNnIevSKLLuBYrYycbcsJg< at >public.gmane.org


2013/5/18 Daniel Gaspary <dgaspary-Re5JQEeQqe8AvxtiuMwx3w< at >public.gmane.org>

Re: [lazarus-br] Re: Mais um ponto pra o lázaro e relação ao Delphi.

Daniel Gaspary — 2013-05-18T15:20:46

2013/5/18 Marcos Douglas <md-mQFPSOwWvpzR7s880joybQ< at >public.gmane.org>:

Concordo, e com quase todo resto do mail...


Direito de dizer todo mundo tem. Eu digo: é absurdo. Formação de preço
não é tão simples, principalmente para grandes empresas, poderia ser
menos.

Agora, direito de dizer é uma coisa, se estou certo, aí são outros 500. :D

Mas sobre porque usar Delphi x Lazarus, acho que vale um argumento que
vi numa palestra(nunca lembro o autor :/):

Para dominar qualquer linguagem, se precisa de MUITO tempo, milhares
de horas. E vai investir em algo proprietário ?

Não me refiro a questão ideológica, e sim estratégica mesmo.

Quanto maior a empresa, mais fácil ela descarta um projeto, não
precisa nem dar prejuízo, basta não dar um lucro aceitável (para as
metas da empresa em questão).

Silverlight(o flash da Microsoft) teve investimento absurdo em
publicidade. Empresas e pessoas investiram em treinamento e livros.
Era o futuro certo! Daí chegou uns poucos anos depois, a MS viu que o

Re: [lazarus-br] Re: Mais um ponto pra o lázaro e relação ao Delphi.

Marcos Douglas — 2013-05-18T15:09:13

2013/5/18 elter.teodoro <elter.teodoro-I4oVjbygTnVfyO9Q7EP/yw< at >public.gmane.org>:

Pessoal,

Na minha humilde opinião, discutir preço é perder tempo. O que é caro,
o que é barato? Não há uma resposta fácil. O que podemos fazer é
comparar: Lazarus é gratuito e o XE4 custa 12Mil... muito caro? E se o
XE4 é desenvolvido por umas 20 pessoas, programadores, analistas,
marketing, site, etc? Aí o preço tá barato? Difícil.

Cobrar 20Mil num sistema que vc for desenvolver é sensato, mas pagar
12Mil numa ferramenta que lhe ajuda a desenvolver não faz sentido?

Antes que alguém comece a tacar pedras, digo: Não comprei e nem vou
comprar o Delphi. A última versão que estou utilizando é a 7, pois
ainda tenho projetos no trabalho. Todos os meus novos sistemas são
feitos em FPC e Lazarus mas não é por não usar o Delphi que eu vou ter
o direito de dizer que o preço que estão cobrando é absurdo... eles
também tem que comer, certo?

Abraços
Marcos Douglas