eu quero traduzir as frases, eu vi la no tópico do PHMELHOR eu dei uma lida mais achei esse codigo aki:
Function TForm1.quebratexto(Texto:WideString):TStringList;
Var
aux : TStringList;
I,PI,PU : Cardinal;
Begin
aux:= TStringList.Create;
PI := 0; PU := 0;
Try
Try
Texto:= Trim(Texto);
For I:= 0 To Length(Texto) Do
Begin
PI:= PU;
If Texto[I] = ' ' Then
Begin
PU:= I;
aux.Add(Trim(Copy(Texto,PI,PU-PI)));
End;
End;
aux.Add(Trim(Copy(Texto,PI,Length(Texto)-PI+1)));
Finally
Result:= Aux;
End;
Except
Raise;
End;
End;
Function TForm1.traduzir(Texto:WideString):WideString;
Var
I : Cardinal;
aux : TStringList;
Begin
aux:= TStringList.Create;
aux := quebratexto(Texto);
Try
Try
table2.indexfieldnames:='portugues';
For I:= 0 To aux.Count - 1 Do
Begin
Table2.FindKey([aux.Strings[i]]);
//Memo2.Lines.Add(Table1.Fields[2].AsString);
memo2.lines.add(table2.fieldbyname('ingles').asstring);
End;
Finally
aux.Free;
End;
Except
Raise;
End;
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
table2.open;
If RadioGroup1.ItemIndex = 0 Then
Begin
CO := 'ingles'; CD:= 'portugues';
End
Else
Begin
CO := 'portugues'; CD:= 'ingles';
End;
//Table2.IndexName:= CO;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
traduzir(memo1.Text);
end;
agora esse codigo aki ele quebra a frase.... quando traduz deixa as palavras uma abaixo da outra, não sakei ao certo como ele funciona voces podem explicar ...?
Pergunta
sem ideia p/ nick
fala galera beleza?
seguinte queru fazer uma paradex aki tipo:
eu quero traduzir as frases, eu vi la no tópico do PHMELHOR eu dei uma lida mais achei esse codigo aki:
agora esse codigo aki ele quebra a frase.... quando traduz deixa as palavras uma abaixo da outra, não sakei ao certo como ele funciona voces podem explicar ...?
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
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.