Código Delphi [-] Memo1.Clear; while not QRYLOGS.Eof do begin Memo1.Lines.Add(QRYLOGS.FieldByName('Mensaje').AsString); Memo1.Lines.Add('---o---'); QRYLOGS.Next; end; Memo1.SelStart := 0; Memo1.SelLength := 0;
Memo1.Clear; while not QRYLOGS.Eof do begin Memo1.Lines.Add(QRYLOGS.FieldByName('Mensaje').AsString); Memo1.Lines.Add('---o---'); QRYLOGS.Next; end; Memo1.SelStart := 0; Memo1.SelLength := 0;