Benvenuto! 
Ottobre 30, 2024, 07:10:10 pm
Disclaimer:
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Disclaimer:
file lingue.ini
[lingue]
Numero=2
Default=1
[descrizione]
Lingua1=italiano
Lingua2=inglese
file di supporto italiano.lng e inglese.lng con il nome del componente e la sua traduzione
Lbl_Nome=Nome
Lbl_Cognome=Cognome
BtClose=Chiudi
in fine il sorgente
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls
,INIFiles {libreria per usare i file ini}
;
type
{ TForm1 }
TForm1 = class(TForm)
BtClose: TButton;
Cmb_Lingue: TComboBox;
Edit1: TEdit;
Edit2: TEdit;
Lbl_Nome: TLabel;
Lbl_Cognome: TLabel;
procedure BtCloseClick(Sender: TObject);
procedure Cmb_LingueChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
procedure CambiaLingua();
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
uses TypInfo;
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
Var
INI:TINIFile;
Numero, i, nDefault: integer;
sLingua: String;
begin
INI := TINIFile.Create(Application.Location + 'lingue.ini');
Try
Numero := StrToInt(INI.ReadString('lingue','Numero',''));
nDefault := StrToInt(INI.ReadString('lingue','Default',''));
for i:=1 to Numero do
begin
sLingua := INI.ReadString('descrizione','Lingua' + IntToStr(i),'');
Cmb_Lingue.Items.Add(sLingua);
end;
Cmb_Lingue.Text:=Cmb_Lingue.Items.Strings[nDefault-1];
CambiaLingua;
finally
Ini.Free;
end;
end;
procedure TForm1.Cmb_LingueChange(Sender: TObject);
begin
CambiaLingua;
end;
procedure TForm1.BtCloseClick(Sender: TObject);
begin
Application.terminate;
end;
procedure TForm1.CambiaLingua;
var
i: integer;
sFile: String;
oStringa: TStringList;
oComp: TComponent;
PropInfo: PPropInfo;
begin
oStringa := TStringList.create;
Try
sFile := (Cmb_Lingue.Items[Cmb_Lingue.ItemIndex]);
oStringa.LoadFromFile(sFile+'.lng');
For i:= 0 to oStringa.Count-1 do
begin
oComp := FindComponent(oStringa.Names);
if Assigned(oComp) then
begin
PropInfo := GetPropInfo (oComp.ClassInfo, 'Caption'); // siamo sicuri che ci sia la caption
if Assigned(PropInfo) then // se c'e' allora cast a tcontrol e assegno
(oComp as TControl).Caption := oStringa.Values[oStringa.Names]
end;
end;
finally
oStringa.Free;
end;
end;
end.
Il tutto è rimasto simile all'originale, un ulteriore miglioria sarebbe di andare a beccare tutti i componenti caption con rtti.
G.