Luciano Carou: Página creada con «=Introducción= El objeto '''TpLENGUAJE''' (Manejo de traducciones de lenguajes) administra las traducciones de lenguajes documentadoos en LENGUAJES. Se instancia en TprxADOClientDM. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATAMODULE *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pLENGUAJE_unit.pas =Declaración=

 type   TpLENGUAJE = class(TComponent)   private     FQuery…»

2025-05-20T18:09:41Z

Página creada con «=Introducción= El objeto '''TpLENGUAJE''' (Manejo de traducciones de lenguajes) administra las traducciones de lenguajes documentadoos en LENGUAJES. Se instancia en TprxADOClientDM. =Identidad= Category:MANUAL/PROGRAMADOR Category:DATAMODULE *Ancestro: TComponent *Carpeta: C:\DevelopPrx\pPRAGMA *Archivo: pLENGUAJE_unit.pas =Declaración= <pre> type TpLENGUAJE = class(TComponent) private FQuery…»

Página nueva

=Introducción=
El objeto '''TpLENGUAJE''' (Manejo de traducciones de lenguajes) administra las traducciones de lenguajes documentadoos en [[:Category:LENGUAJES|LENGUAJES]].

Se instancia en [[TprxADOClientDM]].

=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:DATAMODULE]]
*Ancestro: [[TComponent]]
*Carpeta: C:\DevelopPrx\pPRAGMA
*Archivo: pLENGUAJE_unit.pas

=Declaración=
<pre>
type
TpLENGUAJE = class(TComponent)
private
FQuery: TprxADOQuery;
FLenguaje: String;

FTextos: TStringList;
FTextosT: TStringList;
protected
procedure Lenguaje_Set(aValue: String);

property Query: TprxADOQuery read FQuery write FQuery;

property Textos: TStringList read FTextos write FTextos;
property TextosT: TStringList read FTextosT write FTextosT;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

function Traducir(aTexto: String): String; overload;

property Lenguaje: String read FLenguaje write Lenguaje_Set;
published
end;
</pre>

===variable FLenguaje===
La variable FLenguaje guarda el lenguaje asociado al usuario.

Su declaración es:
<pre>
private
FLenguaje: String;
<pre>

Pero tiene un métido de acceso definido como:
<pre>
public
property Lenguaje: String read FLenguaje write Lenguaje_Set;
</pre>

La función '''Lenguaje_Set''' se describe en la implementación.

=Implementación=
===procedure Lenguaje_Set(aValue: String)===
Este procedimiento se ejecuta cuando se asigna la variable FLenguaje y carga todos los textos del diccionario, más su traducción en el lenguaje informado en el argumento.

El código es:
<pre>
procedure TpLENGUAJE.Lenguaje_Set(aValue: String);
begin
FLenguaje := aValue;

Textos.Clear;
TextosT.Clear;

Query.SQLX.Clear;
Query.SQLX.Add('SELECT');
Query.SQLX.Add('pLENGUAJE_TRADUCCION.FTEXTO');
Query.SQLX.Add(', pLENGUAJE_TRADUCCION.FTRADUCCION');
Query.SQLX.Add('FROM');
Query.SQLX.Add('pLENGUAJE_TRADUCCION');
Query.SQLX.Add('WHERE');
Query.SQLX.Add('pLENGUAJE_TRADUCCION.FLENGUAJE = ' + Q(FLenguaje));
Query.SQLX.Add('ORDER BY 1');

Query.Select(Query.SQLX);

while Query.Eof = False do
begin
Textos.Add(Query.FieldByName('FTEXTO').AsString);
TextosT.Add(Query.FieldByName('FTRADUCCION').AsString);

Query.Next;
end;
end;
</pre>

===function Traducir(aTexto: String): String===
Busca la traducción de un texto, si la encuentra la retorna, sino retorna el mismo texto.

TpLENGUAJE - Historial de revisiones