TiniFile em Delphi XE8 Android e iOS
03/07/2015
0
Olá,
Estou desenvolvendo uma aplicação em Delphi XE8 para Android e iOS. Não estou usando base de dados. Nesta aplicação, o programa tem a opção de alteração de idioma. Essa solicitação de alteração de idioma é feita com um ComboBox (identificando os idiomas) e um botão "Salvar Configurações". Criei um evento OnClick no botão "Salvar Configurações" e, quando o idioma é selecionado, o evento Onclick faz com que cada objeto (Label, ListBoxItem, etc.) receba o texto correspondente conforme o idioma selecionado. Porém, quando fecho o programa e abro ele novamente, o mesmo vem com a configuração de idioma default. Gostaria de saber como posso configurar o Tini File para este caso? Eu busquei informações, inclusive do help da embarcadero, tentei implementar mas não deu certo... Socorro...
Estou desenvolvendo uma aplicação em Delphi XE8 para Android e iOS. Não estou usando base de dados. Nesta aplicação, o programa tem a opção de alteração de idioma. Essa solicitação de alteração de idioma é feita com um ComboBox (identificando os idiomas) e um botão "Salvar Configurações". Criei um evento OnClick no botão "Salvar Configurações" e, quando o idioma é selecionado, o evento Onclick faz com que cada objeto (Label, ListBoxItem, etc.) receba o texto correspondente conforme o idioma selecionado. Porém, quando fecho o programa e abro ele novamente, o mesmo vem com a configuração de idioma default. Gostaria de saber como posso configurar o Tini File para este caso? Eu busquei informações, inclusive do help da embarcadero, tentei implementar mas não deu certo... Socorro...
V.el
Curtir tópico
+ 0
Responder
Post mais votado
05/07/2015
Consegui, pelo menos pra Android.
Se alguém puder testar esse exemplo no iOS, seria interessante. Como ninguém postou nenhuma resposta até o momento, e, após muitas horas de pesquisa e estudo, consegui fazer com que o TIniFile funcionasse no Android. Segue abaixo o código:
uses
IniFiles;
procedure TForm1.FormCreate(Sender: TObject);
Var
loIniFIle : TInifile;
begin
loIniFIle := TInifile.Create(GetHomePath + PathDelim + 'ex.ini');
ListBoxItem4.Text := loIniFile.ReadString('ex','teste1','Teste2');
label1.Text := loIniFile.ReadString('ex','teste2','Teste');
loIniFile.Free;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
loIniFIle : TInifile;
begin
if ComboBox1.ItemIndex = 0 then
Begin
label1.Text := 'Alfabeto';
ListBoxItem4.Text := 'Almanaque';
loIniFIle := TInifile.Create(GetHomePath + PathDelim + 'ex.ini');
loIniFile.WriteString('ex','teste1',ListBoxItem4.Text);
loIniFile.WriteString('ex','teste2',label1.Text);
loIniFile.Free;
end;
if ComboBox1.ItemIndex = 1 then
Begin
label1.Text := 'Coracao';
ListBoxItem4.Text := 'Cobertor';
loIniFIle := TInifile.Create(GetHomePath + PathDelim + 'ex.ini');
loIniFile.WriteString('ex','teste1',ListBoxItem4.Text);
loIniFile.WriteString('ex','teste2',label1.Text);
loIniFile.Free;
End;
end;
Abraços a todos.
Se alguém puder testar esse exemplo no iOS, seria interessante. Como ninguém postou nenhuma resposta até o momento, e, após muitas horas de pesquisa e estudo, consegui fazer com que o TIniFile funcionasse no Android. Segue abaixo o código:
uses
IniFiles;
procedure TForm1.FormCreate(Sender: TObject);
Var
loIniFIle : TInifile;
begin
loIniFIle := TInifile.Create(GetHomePath + PathDelim + 'ex.ini');
ListBoxItem4.Text := loIniFile.ReadString('ex','teste1','Teste2');
label1.Text := loIniFile.ReadString('ex','teste2','Teste');
loIniFile.Free;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
loIniFIle : TInifile;
begin
if ComboBox1.ItemIndex = 0 then
Begin
label1.Text := 'Alfabeto';
ListBoxItem4.Text := 'Almanaque';
loIniFIle := TInifile.Create(GetHomePath + PathDelim + 'ex.ini');
loIniFile.WriteString('ex','teste1',ListBoxItem4.Text);
loIniFile.WriteString('ex','teste2',label1.Text);
loIniFile.Free;
end;
if ComboBox1.ItemIndex = 1 then
Begin
label1.Text := 'Coracao';
ListBoxItem4.Text := 'Cobertor';
loIniFIle := TInifile.Create(GetHomePath + PathDelim + 'ex.ini');
loIniFile.WriteString('ex','teste1',ListBoxItem4.Text);
loIniFile.WriteString('ex','teste2',label1.Text);
loIniFile.Free;
End;
end;
Abraços a todos.
V.el
Responder
Clique aqui para fazer login e interagir na Comunidade :)