低级问题，一半家产相送，急！！(100分)

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #1

当使用MEMO组件输入英文单词时，如何在输入空格后得到空格前的单词？
还有输入时能否知道自己的输入到第几行(warp:=true).
如果OK，全部家产都给你！！！！！双手奉送！！

 

Z

zml

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #2

建立使用第三方控件.

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #3

ZML：
你能提供吗？我能写出来就不用浪费大家的时间了，RIGHT？

 

K

Kaven

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #4

你也太懒了。
你花在找控件的时间，早就写出一个来了。

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #5

kaven
我不会写，你写给我。

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #6

kaven
我不会写，你写给我。

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #7

do tease me!
actually i need it much!

 

刃

刃血

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-10

• #8

->还有输入时能否知道自己的输入到第几行(warp:=true).
用ACCII码判断不就可以了吗，CHR（13）的即为回车键的值。
-》当使用MEMO组件输入英文单词时，如何在输入空格后得到空格前的单词？
判断！在ONCHANGE事件里面判断，输入空格是即做记录不就行了吗

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-11

• #9

刃血:
谢谢你的回答；
但：（1）输入时能否知道自己的输入到第几行(warp:=true).
我想过你的方法，但有是输入整一行时，它会自动换行，（如：一个英文
单词上一行写不完，并没有输入回车，接着打后，整个单词都会下移，这时，你的方
法行不行？当使用MEMO组件输入英文单词时，如
（2）当使用MEMO组件输入英文单词时，如何在输入空格后得到空格前的单词？
判断！在ONCHANGE事件里面判断，输入空格是即做记录不就行了吗

那我打错，按“BACK SPACE”，再打，记录不是把那个打错的也记录下了
吗？
再请教！

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-11

• #10

2的话没有。按退格的时间会删除前面的东西，不会保存下来。
1的话确实有点问题不过这样做意义不大，因为普通判断行数总是看物理行数
即回车换行的那个，自动换行的不大容易实现哦：）

 

P

porsche

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-11

• #11

非得用memo吗？用richedit不就得了？

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-12

• #12

richedit ?how to use?

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-17

• #13

我在加分，谁有具体原码？

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-18

• #14

到底怎么样啊？我想知道

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-19

• #15

真的没有办法吗？高手，是你出手的时候了 ！

 

Z

zhengjunfeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-22

• #16

用RichEdit吧，deiphi带的有例子。

 

G

gcq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-23

• #17

you must go on studying~~~~~~~~~

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #18

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,shellapi;

type
TForm1 = class(TForm)
Label1: TLabel;
Memo1: TMemo;
Label2: TLabel;
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var
LineNum:longint;

CharsBeforeLine:longint;

{$R *.DFM}

procedure TForm1.Memo1Change(Sender: TObject);
begin
LineNum:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
CharsBeforeLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,LineNum,0);
Label1.Caption:='Line'+IntToStr(LineNum+1);
Label2.Caption:='Position' +IntToStr((Memo1.SelStart-CharsBeforeLine)+1);

end;

end.
自己找到资料了

 

C

changjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-08

• #19

接受答案了.