Fórum usar o add ou append sem quebra de linha no richEdit #297050

otto, silvio?


eh o seguinte, eu tenho uma stringGrid e gostaria de passar os dados da stringGrid pra um RichEdit de forma que eles ficassem arrumadinhas como uma tabela

:D

uma hora uma alma caridosa responde

A princípio, TStrings.Add irá sempre adicionar uma nova linha no RichEdit. Acho que seria interessante você postar seu código (ou ao menos parte dele).

Olá amigo

estave desenvolvendo um sistema que tinha um editor de texto em eu precisava adicionar os campos da tabela no texto e consegui usando o drag_over/drag_drop

procedure TFmEditor.DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source = ComboBox3 then
Accept := (Source = ComboBox3);
if Source = ComboBox4 then
Accept := (Source = ComboBox4);
if Source = ComboBox5 then
Accept := (Source = ComboBox5);
end;

procedure TFmEditor.DragDrop(Sender, Source: TObject; X, Y: Integer);
var
Txt: String;
begin
Txt := Text1.Lines.Text;
if Source = ComboBox3 then
Insert(´@´+ComboBox3.Text, Txt, Text1.SelStart);
if Source = ComboBox4 then
Insert(´#´+ComboBox4.Text, Txt, Text1.SelStart);
if Source = ComboBox5 then
Insert(´$´+ComboBox5.Text, Txt, Text1.SelStart);
Text1.Lines.Text := Txt;
end;

// adicionar texto

// Memo1.Perform(EM_REPLACESEL, 1, Longint(PChar(Edit1.Text)));


Isto deve lhe ajudar.

Atenciosamente

Silvio Gudes