Q&A

  • Incompatible types: 'String' and 'TString Error!!
안녕하세요..

델코초보입니다..



델파이에서 SQL 문을 사용하는데 Parameter를 사용하지 않고 직접사용하려고는 데 Error

가 발생이 되네요.. 도와주세요..



아래는 source입니다...



지식에 목마른 주니가..



Var

SQL : String;

begin



SQL := 'SELECT DISTINCT "ED_Type" , "ED_desc" From Edu_Type_TBL';



with Query1 do begin

Close;

Sql.Clear;



if Ed_Class.Text <> 'All' then

SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;

-> ([Error] : Incompatible types: 'String' and 'TStrings')



Sql.Add(SQL);

OPEN;



고수님들의 한수 지도바랍니다...





2  COMMENTS
  • Profile
    장지용 2000.05.10 02:26
    SQL 을 QUERY 가 가진 속성이므로 스트링으로 선언하면 안됩니다.

    SQL 을 다른 이름으로 선언해 보세요.



    SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;

    -> SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text + '''' ;



    *** "+" 가 빠졌네요. ***





    준희 wrote:

    > 안녕하세요..

    > 델코초보입니다..

    >

    > 델파이에서 SQL 문을 사용하는데 Parameter를 사용하지 않고 직접사용하려고는 데 Error

    > 가 발생이 되네요.. 도와주세요..

    >

    > 아래는 source입니다...

    >

    > 지식에 목마른 주니가..

    >

    > Var

    > SQL : String;

    > begin

    >

    > SQL := 'SELECT DISTINCT "ED_Type" , "ED_desc" From Edu_Type_TBL';

    >

    > with Query1 do begin

    > Close;

    > Sql.Clear;

    >

    > if Ed_Class.Text <> 'All' then

    > SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;

    > -> ([Error] : Incompatible types: 'String' and 'TStrings')

    >

    > Sql.Add(SQL);

    > OPEN;

    >

    > 고수님들의 한수 지도바랍니다...

    >

    >

  • Profile
    최석기 2000.05.10 01:42
    준희 wrote:

    > 안녕하세요..

    > 델코초보입니다..

    >

    > 델파이에서 SQL 문을 사용하는데 Parameter를 사용하지 않고 직접사용하려고는 데 Error

    > 가 발생이 되네요.. 도와주세요..

    >

    > 아래는 source입니다...

    >

    > 지식에 목마른 주니가..

    >

    > Var

    > SQL : String;

    > begin

    >

    > SQL := 'SELECT DISTINCT "ED_Type" , "ED_desc" From Edu_Type_TBL';

    >

    > with Query1 do begin

    > Close;

    > Sql.Clear;

    >

    > if Ed_Class.Text <> 'All' then

    > SQL := SQL + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;

    > -> ([Error] : Incompatible types: 'String' and 'TStrings')

    >

    > Sql.Add(SQL);

    > OPEN;

    >

    > 고수님들의 한수 지도바랍니다...

    >

    >



    Query1.SQL이란 프로퍼티는 TStrings타입을 가지고 있죠..



    그러니까 위에 부분은 이렇게 바꾸는게 맞을꺼 같은데요..



    SQL.Text := SQL.Text + ' Where "Ed_Class" = ' + '''' + Ed_Class.Text '''' ;