Ir para conteúdo
Fórum Script Brasil
  • 0

Tradutor


ddd2pt

Pergunta

8 respostass a esta questão

Posts Recomendados

  • 0

Use esse código:

Ele substitui uma palavra por outra

procedure TForm1.FindReplace(const Enc, subs: String; Var Texto:TMemo);
Var
i, Posicao: Integer;
Linha: string;
Begin
For i:= 0 to Texto.Lines.count - 1 do
begin
Linha := Texto. Lines[i];
Repeat
Posicao:=Pos(Enc,Linha);
If Posicao > 0 then
Begin
Delete(Linha,Posicao,Length(Enc));
Insert(Subs,Linha,Posicao);
Texto.Lines[i]:=Linha;
end;
until Posicao = 0;
end;
end;

Procedure TForm1.Button1Click (Sender: TObject);
Begin
FindReplace(Edit1.Text,Edit2.Text, Memo1);
end;

Agora voce só precisa fazer a ligacao com o banco, e colokar um while not do inicio ao fim dele...

Mas lembre que isso vai ser uma traducao burra, troca de palavra por palavra, expressoes e colocacao de frases ele não vai fazer...

Mas já é um principio pra se trabalhar biggrin.gif

Link para o comentário
Compartilhar em outros sites

  • 0

Sobre a questão que voce me mandou por PM, o que voce vai ter que fazer é o seguinte:

Ao clicar no botao traduzir

memo2.text := memo1.text // aqui você iguala os conteudos

FindReplace(CampoDaTabela,CampoDaTabelaTraduzido, Memo2); //aqui faz a traducao seca, usando a procedure acima...

os valores campo da tabela geralmente vao ser algo do tipo:

DataModule.Tabela.FieldByName('CampoNormal').AsString

e

DataModule.Tabela.FieldByName('CampoTraduzido').AsString

Link para o comentário
Compartilhar em outros sites

  • 0

ow...corposemalma...cara....da uma olhada no meu tópico http://scriptbrasil.com.br/forum/index.php?showtopic=32497 ve se tu t interessa...e entra em contato comigo...abçs...

guilherme cavassini

PS: Não só ele...mas todos que se interessarem!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...