이렇게 하세요....



if memo1.lines.TEXT = '' then <= .TEXT 추가

begin

Memo1.Lines.Insert(0,'안녕하세요');

Memo1.Lines.Insert(1,'방갑습니다.');

end;



원인은 memo1.lines는 TStrings 타입이고...

비교하는 '' 는 String 타입이기 때문에 비교할 수 없어서 입니다.

비교하기 위해서는 두 개의 타입을 맞춰야 하는데...

가장 쉬운 방법이 위와 같이 하는 겁니다.



행복하세요..



=================================================================================



니케 wrote:

> if memo1.lines = '' then

> Memo1.Lines.Insert(0,'안녕하세요');

> Memo1.Lines.Insert(1,'방갑습니다.');

>

> 이렇게. 메모장이 공백이라면 아래 두문장을 수행하게 하고 싶은데요.

> [Error] Umemo.pas(152): Incompatible types: 'String' and 'TStrings'

> 이런 에러가 납니다.

> if문을 잘못쓴건가요? if문이 없을때 아래 두문장은 실행이 잘 됐었거든요.

>

> 그리고 메모컴포넌트에서 글을 입력할때마다 특정 문자들은 색깔이 틀리게 할 수 있나요?

> 음..예로서..

> "안녕하세요. 진우입니다. 진우를 찾아주세요"

> ..라는 글을 쓸때. 진우란 이름을 쓸때마다 빨간색으로 나타낸다든지 말이죠.

>

> 흐미..넘 어려운거같아..^^

procedure TForm1.Button1Click(Sender: TObject);

var MyStrigList : TStringList;

begin

MyStrigList := TStringList.Create;

MyStrigList.Add(Trim(Memo1.Text));

if MyStrigList.Strings[0] = '' then

Memo1.Lines.Insert(0,'안녕하세요')

else

Memo1.Lines.Insert(1,'반갑습니다');

MyStrigList.Free;

end;



허접이지만 어쨋든 결과는 나옵니다 ^^:

니케 wrote:

> if memo1.lines = '' then

> Memo1.Lines.Insert(0,'안녕하세요');

> Memo1.Lines.Insert(1,'방갑습니다.');

>

> 이렇게. 메모장이 공백이라면 아래 두문장을 수행하게 하고 싶은데요.

> [Error] Umemo.pas(152): Incompatible types: 'String' and 'TStrings'

> 이런 에러가 납니다.

> if문을 잘못쓴건가요? if문이 없을때 아래 두문장은 실행이 잘 됐었거든요.

>

> 그리고 메모컴포넌트에서 글을 입력할때마다 특정 문자들은 색깔이 틀리게 할 수 있나요?

> 음..예로서..

> "안녕하세요. 진우입니다. 진우를 찾아주세요"

> ..라는 글을 쓸때. 진우란 이름을 쓸때마다 빨간색으로 나타낸다든지 말이죠.

>

> 흐미..넘 어려운거같아..^^







색깔은 바꾸는건 잘 모르겠구여...

위에 if문은 에러가 맞네여

memo1.lines은 Tstring 이구여

''는 널 문자입니다

그러므로 에러가 맞네여

if memo1.lines[1] = '' 이렇게 하면 에러가 나진 않을거 같은데

아니면

if memo1.text = '' 일게 하던지여



답변이 됫어는지는 모르겠군요