S
samen
Unregistered / Unconfirmed
GUEST, unregistred user!
MEMO控件如何判断当前行是空行?
procedure TForm1.Memo2KeyPress(Sender: TObject;
var Key: Char);
begin
if length(memo2.Lines.Text)=0 then
begin
messagedlg('请输入内容!',mterror,[mbok],0);
exit;
end;
end;
同样在procedure TForm1.Memo2KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if length(memo2.Lines.Text)=0 then
begin
messagedlg('请输入内容!',mterror,[mbok],0);
exit;
end;
end;
也不行,到底应该怎样判断?
procedure TForm1.Memo2KeyPress(Sender: TObject;
var Key: Char);
begin
if length(memo2.Lines.Text)=0 then
begin
messagedlg('请输入内容!',mterror,[mbok],0);
exit;
end;
end;
同样在procedure TForm1.Memo2KeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
if length(memo2.Lines.Text)=0 then
begin
messagedlg('请输入内容!',mterror,[mbok],0);
exit;
end;
end;
也不行,到底应该怎样判断?