Q&A

  • 메모에서 라인을 이어 쓰려면 어떻게?
메모 콤포넌트를 사용하고 있는데

라인 첨가기능은 Add나 Append를 쓰면 되는데...

같은 라인에 또 다른 텍스트를 첨가하려면 어떻게 해야 합니까?

그리고 Add와 Append의 정확한 차이를 잘 모르겠더군요.

도와주시기를...

4  COMMENTS
  • Profile
    구창민 2000.03.17 01:57
    황 wrote:

    > 메모 콤포넌트를 사용하고 있는데

    > 라인 첨가기능은 Add나 Append를 쓰면 되는데...

    > 같은 라인에 또 다른 텍스트를 첨가하려면 어떻게 해야 합니까?

    > 그리고 Add와 Append의 정확한 차이를 잘 모르겠더군요.

    > 도와주시기를...





    Memo1.Lines.Text:= Memo1.Lines.Text + '메모장에 문자열을 더한다';



    그리고, Lines의 Add와 Append 차이는 Add는 Return 값이 있는 function이고,

    Append는 리턴값이 없는 Procedure 라는 거 말고는.. 또 뭐있나요? ^^.



    그럼~ 즐거운 프로그래밍 하시길~

  • Profile
    2000.03.17 02:20
    구창민 wrote:

    > Memo1.Lines.Text:= Memo1.Lines.Text + '메모장에 문자열을 더한다';

    >

    > 그리고, Lines의 Add와 Append 차이는 Add는 Return 값이 있는 function이고,

    > Append는 리턴값이 없는 Procedure 라는 거 말고는.. 또 뭐있나요? ^^.

    >

    > 그럼~ 즐거운 프로그래밍 하시길~



    이 문제는 아니구요. 라인을 연속적으로 서로 다르게 하면서 몇 줄을 계속 써야 하는데

    Memo1.Lines.Text로 해버리면 맨 마지막 라인만 기록되어 버리더군요.

    저는 연속적으로 계속 줄을 바꿔 가면서 쓰는데

    사용한 특정 라인에 연속적으로 텍스트를 기록하고 싶으데... ^^;

    방법이 없나요?



  • Profile
    구창민 2000.03.17 03:10
    황 wrote:

    > 구창민 wrote:

    > > Memo1.Lines.Text:= Memo1.Lines.Text + '메모장에 문자열을 더한다';

    > >

    > > 그리고, Lines의 Add와 Append 차이는 Add는 Return 값이 있는 function이고,

    > > Append는 리턴값이 없는 Procedure 라는 거 말고는.. 또 뭐있나요? ^^.

    > >

    > > 그럼~ 즐거운 프로그래밍 하시길~

    >

    > 이 문제는 아니구요. 라인을 연속적으로 서로 다르게 하면서 몇 줄을 계속 써야 하는데

    > Memo1.Lines.Text로 해버리면 맨 마지막 라인만 기록되어 버리더군요.

    > 저는 연속적으로 계속 줄을 바꿔 가면서 쓰는데

    > 사용한 특정 라인에 연속적으로 텍스트를 기록하고 싶으데... ^^;

    > 방법이 없나요?

    >



    특정라인에 추가하려면 그 특정라인의 인덱스를 가지는 라인에

    문자열을 더해주시면 됩니다.

    예를 들어 세번째 라인에 특정문자열을 더한다면



    Memo1.Lines.Strings[2]:=Memo1.Lines.Strings[2] + '문자열을 더한다';



    그럼~ 즐거운 프로그래밍 하시길~



  • Profile
    blueSky 2000.03.17 02:51
    > 이 문제는 아니구요. 라인을 연속적으로 서로 다르게 하면서 몇 줄을 계속 써야 하는데

    > Memo1.Lines.Text로 해버리면 맨 마지막 라인만 기록되어 버리더군요.

    > 저는 연속적으로 계속 줄을 바꿔 가면서 쓰는데

    > 사용한 특정 라인에 연속적으로 텍스트를 기록하고 싶으데... ^^;

    > 방법이 없나요?

    >



    원하시는 답변이 어떤건지 잘 모르겟습니다.

    마지막 라인에 연속으로 추가하는 것으로 이해하고 씁니다.



    procedure TForm1.Button1Click(Sender: TObject);

    Var

    I : Integer;

    begin

    I := Memo1.Lines.Count - 1;

    Memo1.Lines[i] := Memo1.Lines[i] + 'dddd';

    end;