关于Memo的问题~~~~

Question

怎么让Memo里面的内容像DOS窗口一样，所有的文本都是以底边为界，向上堆叠？以便我始终都能够看到最新Lines.add的东东？

Answer 1

你向Memo添加文本时使用Memo1.Lines.Add()。方法自然就是向上堆的。

Answer 2

看这个例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add('显示文本的堆叠效果！    '); 
end;

Answer 3

在OnChange事件中加入：
  Memo1.SelStart := Length(Memo1.Text);
  Memo1.SelLength := 0;

Answer 4

如何讲文本文件的内容导入MEMO1呢？？

Answer 5

没对，我才试了，按钮点击事件是向上堆叠的，但是我在Form的OnCreate()中加入的Lines.add Memo就不是向上堆叠的！怎样在Form中的OnCreate()实现Memo的向上堆叠啊？

Answer 6

1.楼主的问题解决就是：
在Form中的OnCreate()最后加入：
  Memo1.SelStart := Length(Memo1.Text);
  Memo1.SelLength := 0;2。alarda的问题：
Memo1.Lines.LoadFromFile('a.txt');

Answer 7

我是这样的：
    procedure TForm1.aInportExecute(Sender: TObject);
var
  strText,strLines:string;
begin
  opendialog1.Execute;
  memo1.Lines.LoadFromFile(opendialog1.FileName);
end;
 哈哈，可以哦，谢谢 xzhifei(飞) ！
 小虾想要你的QQ号！：）

Answer 8

procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo1.Lines.Add('1');
    Memo1.Lines.Add('2');
    Memo1.Lines.Add('3');
    Memo1.Lines.Add('4');
    Memo1.Lines.Add('5');
    Memo1.Lines.Add('6');
    Memo1.Lines.Add('7');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo1.Lines.Add('1');
    Memo1.Lines.Add('2');
    Memo1.Lines.Add('3');
    Memo1.Lines.Add('4');
    Memo1.Lines.Add('5');
    Memo1.Lines.Add('6');
    Memo1.Lines.Add('7');
    Memo1.SelStart := 0;
end;显示效果完全没有区别呀？？最终我看到的Memo只有上面的4行
1
2
3
4
光标在1后面。
(我的Memo高度为4行）我要达到的目的是最终我看到的是
4
5
6
7光标在7后面。

Answer 9

我MEMO1内容格式为：
日期 2002-12-12  姓名 king  手机号码 [phone]

Answer 10

我现在要取出这些字段的值插入到数据库中去，
  如日期取      2002-12-12
    姓名取      king
    手机号码取  13856963232
 
   该如何取呢？？

Answer 11

procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo1.Lines.Add('1');
    Memo1.Lines.Add('2');
    Memo1.Lines.Add('3');
    Memo1.Lines.Add('4');
    Memo1.Lines.Add('5');
    Memo1.Lines.Add('6');
    Memo1.Lines.Add('7');
  Memo1.SelStart := Length(Memo1.Text);
    Memo1.SelStart := 0;
end;

Answer 12

gz    and   up

Answer 13

发错了，应该是这样
procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo1.Lines.Add('1');
    Memo1.Lines.Add('2');
    Memo1.Lines.Add('3');
    Memo1.Lines.Add('4');
    Memo1.Lines.Add('5');
    Memo1.Lines.Add('6');
    Memo1.Lines.Add('7');
 Memo1.SelStart := Length(Memo1.Text);
  Memo1.SelLength := 0;
end;

Answer 14

procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo1.Lines.Add('1');
    Memo1.Lines.Add('2');
    Memo1.Lines.Add('3');
    Memo1.Lines.Add('4');
    Memo1.Lines.Add('5');
    Memo1.Lines.Add('6');
    Memo1.Lines.Add('7');
  Memo1.SelStart := Length(Memo1.Text);
    Memo1.SelStart := 0;
end;
   这样也没有实现MEMO显示为4\5\6\7.

Answer 15

能请教Memo的SelStart和SelStart两个属性是什么意思吗/

Answer 16

procedure TForm1.FormCreate(Sender: TObject);
begin
    Memo1.Lines.Add('1');
    Memo1.Lines.Add('2');
    Memo1.Lines.Add('3');
    Memo1.Lines.Add('4');
    Memo1.Lines.Add('5');
    Memo1.Lines.Add('6');
    Memo1.Lines.Add('7');
  Memo1.SelStart := Length(Memo1.Text);
    Memo1.SelStart := 0;
end;
KAO，难道光标没有在7后面吗，你倒底是想干什么？？？？？

Answer 17

晕死！我是想要4行的memo里显示
4
5
6
7
或
4
5
6
|
而不是
1
2
3
4
者和光标没关系吧？我有没问光标定位问题。麻烦把问题看清楚在回答！

Answer 18

还是看看我的问题先。我MEMO1内容格式为：
日期 2002-12-12  姓名 king  手机号码 [phone]
 
我现在要取出这些字段的值插入到数据库中去，该如何取呢？？  如日期取      2002-12-12
    姓名取      king
    手机号码取  13856963232           
 

Answer 19

在FormCreate事件中肯定是不行的，因为窗口还没有显示出来
这样可以：
procedure TForm1.FormCreate(Sender: TObject);
var
  i:Integer;
begin
  Show;
  for i:=1 to 30 do
    Memo1.Lines.Add('123'+IntToStr(i));end;或者
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  for i:=1 to 30 do
    Memo1.Lines.Add('123'+IntToStr(i));end;
或者
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('c:\aa.txt');
  Memo1.SelStart:=Memo1.GetTextLen;
  Memo1.SelLength:=0;
end;

Answer 20

对头！就是这个样子的！！！！谢谢wks