line break on jEditText ? [solved]
lazarus / 43-Android

----------------------------------------------------------------------
rafman · 2023-12-28 17:36

Hello everyone, Keep up the good work, is there any way to control
line break (CR LF or LF) on jEditText ?
I need to display plain text only.

I use LAMW 0.8.6.3 (lazarus 2.0.12)  on a Linux (Ubuntu Mate 22.04)

The following code works but the contents of .ini file are displayed
as wrapping text not with the correct format (Text line breaks are
ignored)
when i open it on an editor its contents are ok.
Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TSettingsFrm.DialogYN1ClickYN(Sender: TObject; YN:
TClickYN);var FileBase:string;begin  if (YN = ClickYes) then   begin 
   FileBase:=GetInternalAppStoragePath;     
EditText1.LoadFromFile(FileBase + PathDelim + 'settings.ini');   end 
 else    ShowMessage('Canceled'); end;    Thanks for any response.

[Edit]
Solved by reading the file as text file and add the linebreaks
manually, it seems that the jEditText.LoadFromFile() method strips
control characters and is not possible to handle it as jEditText.Text.

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
TSettingsFrm.SettingsFrmShow(Sender:
TObject);var AssetsBase:string; infile: TextFile; ch:
Char;beginAssetsBase:=GetInternalAppStoragePath;AssignFile(infile,
AssetsBase + PathDelim +
'settings.ini');Reset(infile);EditText1.Text:='';While not Eof(infile)
dobegin  Read(infile, ch);  if (ch = #10) then EditText1.AppendLn('')
     else      EditText1.Append(ch);end;CloseFile(infile);end;