Topic: How To Show Original Content ?

How to set Tmemo Or Script Show Original Content From Database ?
New line,tab Or Etc Help me please Like HeidiSQL Show Content
https://s17.postimg.cc/vwk3konnj/2018-05-06_2.png

Example 4.4 Beta Compile Only

Help ME Please !!!

Post's attachments

Attachment icon Example MySQLHelp Original Format.zip 590.37 kb, 407 downloads since 2018-05-06 

My Visual Database : I Love You
Easy For Beginner Student For Me

2 (edited by mapcreatormail 2018-05-06 13:55:56)

Re: How To Show Original Content ?

https://b.radikal.ru/b27/1805/61/e224f32d851f.png

script.pas

var
    RichEdit: TRichEdit;

procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
var
    td: Tdataset;
begin
    SQLQuery('select * from help_topic where id = ' + Form1.TableGrid1.Cells[0,Form1.TableGrid1.SelectedRow],td);
    Form1.Memo1.Clear;
    Form1.Memo1.Lines.Add(td.Fields[3].AsString);  //By column number
    RichEdit.Lines.Clear;
    RichEdit.Lines.Add(td.Fields[3].AsString);
end;
procedure Init ();
begin
    RichEdit:= TRichEdit.Create(Form1);
    RichEdit.Parent:= Form1;
    RichEdit.Top:= 281;
    RichEdit.Left:= 608;
    RichEdit.Width:= 489;
    RichEdit.Height:= 272;
    RichEdit.Color:= clYellow;
    RichEdit.Font.Name:= 'Courier New';
    RichEdit.Font.Size:= 8;
    RichEdit.ScrollBars:= ssBoth;
end;

begin
    Init;
end.

Re: How To Show Original Content ?

Check it out

procedure Form1_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
var
    td : Tdataset ;
begin
    SQLQuery('select * from help_topic where id = '+ Form1.TableGrid1.Cells[0,Form1.TableGrid1.SelectedRow] ,td);
    Form1.Memo1.Clear ;
    Form1.Memo1.Lines.Add ( td.Fields[3].AsString);  //By column number
    Form1.Memo1.Text := ReplaceStr(Form1.Memo1.Text, #10, #13#10);
end;
Dmitry.

Re: How To Show Original Content ?

Olá, eu coloquei o script acima numa aplicação com sqlite e não funcionou....alguma sugestão? Obrigado.

Roberto Alencar

Re: How To Show Original Content ?

jrga wrote:

Olá, eu coloquei o script acima numa aplicação com sqlite e não funcionou....alguma sugestão? Obrigado.

Please attach your project and describe the problem in more details.

Dmitry.