How to display tag string in TUniStringGrid Cell?

[newsanti]

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  var S:= UniEdit1.Text;
  UniLabel1.Caption:= S;
  UniStringGrid1.Cells[1,1]:= S;  //<--- not showing <reserved>
end;
 

 

EditTagAsString.zip

[newsanti]

1 hour ago, newsanti said:

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  var S:= UniEdit1.Text;
  UniLabel1.Caption:= S;
  UniStringGrid1.Cells[1,1]:= S;  //<--- not showing <reserved>
end;
 

 

EditTagAsString.zip 106.1 kB · 1 download

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  var S: string:= UniEdit1.Text;
  S:= S.Replace('<','&lt;');
  S:= S.Replace('>','&gt;');
  UniEdit2.Text:= S;
  UniLabel1.Caption:= S;
  UniStringGrid1.Cells[1,1]:= S;  
end;
 

[Sherzod]

4 hours ago, newsanti said:

https://docwiki.embarcadero.com/Libraries/Alexandria/en/Web.HTTPApp.HTMLEncode