[laz4android] JEditText : pas de retour à la ligne
Bonjour à tous
J'essaie de faire une appli android avec Laz4Android pour lire des fichiers txt avec un jEditText.
Le texte s'affiche bien mais les retours à la ligne ne sont pas pris en compte.
j'utilise pour sélectionner le fichier:
Code:
1
2
3
4
5
6
| procedure TAndroidModule1.Button1Click(Sender: TObject);
begin
Self.RequestOpenFile(Self.GetEnvironmentDirectoryPath(dirDownloads),
'text/plain',
111);
end; |
et pour afficher le texte:
Code:
1
2
3
4
5
6
7
8
9
10
11
| procedure TAndroidModule1.AndroidModule1ActivityResult(Sender: TObject;
requestCode: integer; resultCode: TAndroidResult; intentData: jObject);
var
treeUri: jObject;
begin
treeUri:= IntentManager1.GetDataUri(intentData);
if requestCode = 111 then
begin
EditText1.Text:=Self.GetTextFromUri(treeUri);
end;
end; |
