Numbers Swap
Simon, color vs. color
Compartiendo el conocimiento del mundo del diseño y programación de videojuegos.
function TForm1.sTextManualF(sOrg: string): string;
// translate a text, which is not in the automate translation process of TFmxObjects
begin
// first check, if the selected language has a mapping
if Lang1.Resources.IndexOf(Lang1.Lang)>=0 then begin
// get the resource stringlist of the current language and get the translation
result := Lang1.LangStr[Lang1.Lang].Values[sOrg];
if result='' then begin
// text not found in mapping - keep original text
result := sOrg;
end;
end
else begin
// language not found: must be the default language
result := sOrg;
end;
end;
Procedure TForm1.FormCreate(Sender: TObject);
begin
TranslateText;
end;
Procedure TForm1.TranslateText;
begin
//Main
Text1.Text:= sTextManualF('sOpen');
end;
Podriamos escribir un libro entero de las bondades de Git para el trabajo colaborativo y la gestión de versiones en un entorno como Unity. D...