Delphi 7-ში OnChange მაქვს პრობლება, გთხოვთ დამეხმაროთ

Var sql: string;
----
procedure Tbazebi.TntEdit1Change(Sender: TObject);
begin
TntDBGrid1.Visible:=True;
TntDBGrid1.DataSource:=DataSource1;
sql := 'SELECT DISTINCT NDET FROM BAZEBI WHERE NDET LIKE '
+ QuotedStr(TntEdit1.Text + '%');

if TntEdit1.Text<>'' then
begin
detali.Close;
detali.SQL.SetText(PChar(sql));
detali.Open;
end;
end;


ჩვეულებრივი Edit1-თვის ყველაფერი ნორმალურად მუშაობს.
TntEdit1-თვის არ მუშაობს. იქნებ sql ცვლადი მაქვს არასწორად აღწერილი?

Var sql: WideChar;
ასე რომ აღვწერე
sql := 'SELECT DISTINCT NDET FROM BAZEBI WHERE NDET LIKE '
+ QuotedStr(TntEdit1.Text + '%');
აქ მაძლევს შეცდომას

This post has been edited by itg5 on 11 Jul 2011, 16:02

itg5
შეცდომის ზუსტი ტექსტი დადე

incompatible types: 'WideChar' and 'String'

ამის მაგივრად

ესე

დიდი მადლობა, ვნახავ თუ გამოვა

itg5
ეს სცადე
sql := 'SELECT DISTINCT NDET FROM BAZEBI WHERE NDET LIKE '
+ QuotedStr(WideString(TntEdit1.Text) + '%');