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
Example 4.4 Beta Compile Only
Help ME Please !!!
Easy For Beginner Student For Me
My Visual Database → Script → 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
Example 4.4 Beta Compile Only
Help ME Please !!!
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.
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;
Olá, eu coloquei o script acima numa aplicação com sqlite e não funcionou....alguma sugestão? Obrigado.
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.
My Visual Database → Script → How To Show Original Content ?
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi