Q&A

  • memo컴포넌트에 대해~ 넘 급해요~~
저.....

memo컴포넌트 사용할때요~

라인별로 글자수를 줄수 있나요?

그리고 초기화는 어떻게 시키는지....예를 들어

텍스트 박스(ex.aaa) 사용시에는

aaa.text = ''; 이렇게 주면 되잖아요

메모박스는 어떻게 주죠??



저 넘 급하거든요~ 제발 갈켜주세요~~~~~~~~~~~~~~

4  COMMENTS
  • Profile
    강호규 2001.06.22 03:54
    짱아 wrote:

    > 저.....

    > memo컴포넌트 사용할때요~

    > 라인별로 글자수를 줄수 있나요?

    > 그리고 초기화는 어떻게 시키는지....예를 들어

    > 텍스트 박스(ex.aaa) 사용시에는

    > aaa.text = ''; 이렇게 주면 되잖아요

    > 메모박스는 어떻게 주죠??

    >

    > 저 넘 급하거든요~ 제발 갈켜주세요~~~~~~~~~~~~~~



    1. 메모 초기화

    Memo1.Lines.Clear;



    2. 라인별로 글자수를 줄 수 있는 간단한 방법은 없고요

    Memo의 Change 이벤트에서 현재 행과열을 알수 있으니

    그곳에서 글자수를 검사해서 반영하면 될 것 같습니다.

    아래는 Memo의 Change에서

    현재위치의 행과열을 알 수 있는 예제입니다.





    procedure TForm1.Memo1Change(Sender: TObject);

    var

    CurrentLine : Integer;

    ColNum : Integer;

    begin

    CurrentLine :=SendMessage(Memo1.Handle,

    EM_LINEFROMCHAR,Memo1.SelStart, 0) ;



    ColNum := Memo1.SelStart-SendMessage(Memo1.Handle,

    EM_LINEINDEX,CurrentLine, 0) + 1;



    Label1.Caption := '행 : ' + IntToStr(CurrentLine);

    Label2.Caption := '열 : ' + IntToStr(ColNum);

    end;









  • Profile
    짱아 2001.06.22 04:48
    감사합니다...

    근데요~

    이런경우는 어떻게 하죠??

    텍스트박스일 경우에는 이런식으로 데이타를 insert 시키는데

    메모박스의 경우에는 어떻게 해야 하는지....

    FieldByName('item_parking').AsString := epark.Text;



    강호규 wrote:

    > 짱아 wrote:

    > > 저.....

    > > memo컴포넌트 사용할때요~

    > > 라인별로 글자수를 줄수 있나요?

    > > 그리고 초기화는 어떻게 시키는지....예를 들어

    > > 텍스트 박스(ex.aaa) 사용시에는

    > > aaa.text = ''; 이렇게 주면 되잖아요

    > > 메모박스는 어떻게 주죠??

    > >

    > > 저 넘 급하거든요~ 제발 갈켜주세요~~~~~~~~~~~~~~

    >

    > 1. 메모 초기화

    > Memo1.Lines.Clear;

    >

    > 2. 라인별로 글자수를 줄 수 있는 간단한 방법은 없고요

    > Memo의 Change 이벤트에서 현재 행과열을 알수 있으니

    > 그곳에서 글자수를 검사해서 반영하면 될 것 같습니다.

    > 아래는 Memo의 Change에서

    > 현재위치의 행과열을 알 수 있는 예제입니다.

    >

    >

    > procedure TForm1.Memo1Change(Sender: TObject);

    > var

    > CurrentLine : Integer;

    > ColNum : Integer;

    > begin

    > CurrentLine :=SendMessage(Memo1.Handle,

    > EM_LINEFROMCHAR,Memo1.SelStart, 0) ;

    >

    > ColNum := Memo1.SelStart-SendMessage(Memo1.Handle,

    > EM_LINEINDEX,CurrentLine, 0) + 1;

    >

    > Label1.Caption := '행 : ' + IntToStr(CurrentLine);

    > Label2.Caption := '열 : ' + IntToStr(ColNum);

    > end;

    >

    >

    >

    >

  • Profile
    강호규 2001.06.22 17:53
    짱아 wrote:

    > 감사합니다...

    > 근데요~

    > 이런경우는 어떻게 하죠??

    > 텍스트박스일 경우에는 이런식으로 데이타를 insert 시키는데

    > 메모박스의 경우에는 어떻게 해야 하는지....

    > FieldByName('item_parking').AsString := epark.Text;

    >

    > 강호규 wrote:

    > > 짱아 wrote:

    > > > 저.....

    > > > memo컴포넌트 사용할때요~

    > > > 라인별로 글자수를 줄수 있나요?

    > > > 그리고 초기화는 어떻게 시키는지....예를 들어

    > > > 텍스트 박스(ex.aaa) 사용시에는

    > > > aaa.text = ''; 이렇게 주면 되잖아요

    > > > 메모박스는 어떻게 주죠??

    > > >

    > > > 저 넘 급하거든요~ 제발 갈켜주세요~~~~~~~~~~~~~~

    > >

    > > 1. 메모 초기화

    > > Memo1.Lines.Clear;

    > >

    > > 2. 라인별로 글자수를 줄 수 있는 간단한 방법은 없고요

    > > Memo의 Change 이벤트에서 현재 행과열을 알수 있으니

    > > 그곳에서 글자수를 검사해서 반영하면 될 것 같습니다.

    > > 아래는 Memo의 Change에서

    > > 현재위치의 행과열을 알 수 있는 예제입니다.

    > >

    > >

    > > procedure TForm1.Memo1Change(Sender: TObject);

    > > var

    > > CurrentLine : Integer;

    > > ColNum : Integer;

    > > begin

    > > CurrentLine :=SendMessage(Memo1.Handle,

    > > EM_LINEFROMCHAR,Memo1.SelStart, 0) ;

    > >

    > > ColNum := Memo1.SelStart-SendMessage(Memo1.Handle,

    > > EM_LINEINDEX,CurrentLine, 0) + 1;

    > >

    > > Label1.Caption := '행 : ' + IntToStr(CurrentLine);

    > > Label2.Caption := '열 : ' + IntToStr(ColNum);

    > > end;

    > >

    > >

    > >

    > >



    ---------------------------------------------------------------------



    FieldByName('item_parking').AsString := epark.Text;

    FieldByName('item_parking').AsString := 메모.Lines.Text;



    이렇게 하시면 되구요...



    델파이를 잘(?)하시하려면

    도움말 보는 방법을 숙지하셔야 합니다.

    즉, 어떤 컴포넌트가 있다고 할때

    그것의 계속(Hierarchy), 속성(properties), 이벤트(event), 메써드(methods)를

    도움말을 보시고 이해하실 줄 아셔야 합니다.

    정말로 중요한 키포인트입니다.

    이것만 도움말을 보시면서 이해할 수 있는

    방법을 터특하시는 것이 제일 중요할 것 같습니다.





  • Profile
    파도랑 2001.12.11 00:42
    Memo는 Text보다는 Lines속성을 사용합니다...



    FieldByName('item_parking').AsString := epark.Lines[0];



    여기서 Lines[0]은 첫번째 줄이라는 뜻이고,

    두 번째 줄은 Lines[1],

    마지막 줄은 Lines[epark.Count-1]...





    짱아 wrote:

    > 감사합니다...

    > 근데요~

    > 이런경우는 어떻게 하죠??

    > 텍스트박스일 경우에는 이런식으로 데이타를 insert 시키는데

    > 메모박스의 경우에는 어떻게 해야 하는지....

    > FieldByName('item_parking').AsString := epark.Text;

    >

    > 강호규 wrote:

    > > 짱아 wrote:

    > > > 저.....

    > > > memo컴포넌트 사용할때요~

    > > > 라인별로 글자수를 줄수 있나요?

    > > > 그리고 초기화는 어떻게 시키는지....예를 들어

    > > > 텍스트 박스(ex.aaa) 사용시에는

    > > > aaa.text = ''; 이렇게 주면 되잖아요

    > > > 메모박스는 어떻게 주죠??

    > > >

    > > > 저 넘 급하거든요~ 제발 갈켜주세요~~~~~~~~~~~~~~

    > >

    > > 1. 메모 초기화

    > > Memo1.Lines.Clear;

    > >

    > > 2. 라인별로 글자수를 줄 수 있는 간단한 방법은 없고요

    > > Memo의 Change 이벤트에서 현재 행과열을 알수 있으니

    > > 그곳에서 글자수를 검사해서 반영하면 될 것 같습니다.

    > > 아래는 Memo의 Change에서

    > > 현재위치의 행과열을 알 수 있는 예제입니다.

    > >

    > >

    > > procedure TForm1.Memo1Change(Sender: TObject);

    > > var

    > > CurrentLine : Integer;

    > > ColNum : Integer;

    > > begin

    > > CurrentLine :=SendMessage(Memo1.Handle,

    > > EM_LINEFROMCHAR,Memo1.SelStart, 0) ;

    > >

    > > ColNum := Memo1.SelStart-SendMessage(Memo1.Handle,

    > > EM_LINEINDEX,CurrentLine, 0) + 1;

    > >

    > > Label1.Caption := '행 : ' + IntToStr(CurrentLine);

    > > Label2.Caption := '열 : ' + IntToStr(ColNum);

    > > end;

    > >

    > >

    > >

    > >