Q&A

  • memo에 내용을 배열에 한글자씩 집에 넣을러면...
배열에 라인 단위로는 집에 넣어 지는데 한 글자 단위로는 집어 넣어 지질 안내요 어떡게 하면 될까요..

var

stringarry : array[0..100] of string;

i,k:integer;

begin

memo2.lines.Clear;

for i:=0 to memo1.Lines.Count-1 do begin

stringarry[0]:=memo1.lines[i]; end;



배열을 char로 하면

[Error] Unit1.pas(35): Incompatible types: 'Char' and 'String'

이런 오류가 나오내요...

1  COMMENTS
  • Profile
    하얀까마귀 2001.04.24 11:23
    Memo.Lines[i] <-- 요건 라인전체입니다. i 라인 전체죠..

    그냥 간단하게

    var

    memoChar : array[1..100] or char;

    i : integer;

    begin

    for i := 1 to length( memo1.Lines.Text ) -1 do

    begin

    memochar[i] := memo1.Lines.TExt[i];

    end;

    showmessage( memochar );





    end;

    하시면 memochar에 옮겨진걸 보실수 있을겁니다..





    승 wrote:

    > 배열에 라인 단위로는 집에 넣어 지는데 한 글자 단위로는 집어 넣어 지질 안내요 어떡게 하면 될까요..

    > var

    > stringarry : array[0..100] of string;

    > i,k:integer;

    > begin

    > memo2.lines.Clear;

    > for i:=0 to memo1.Lines.Count-1 do begin

    > stringarry[0]:=memo1.lines[i]; end;

    >

    > 배열을 char로 하면

    > [Error] Unit1.pas(35): Incompatible types: 'Char' and 'String'

    > 이런 오류가 나오내요...