Mega Code Archive

 

Categories / Delphi / ADO Database

 

Use pesrian alphabet in sqlserver on win2000

Title: use pesrian alphabet in sqlserver on win2000? procedure TMainForm.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin // replacing persian incorrect char on get from keyboard, in all of the Tcontrols! // without this code,ms-sql server have incorrect result set after sort on persian field. // some perisan char in win2000 have same shape but differ in ordering if Msg.message = WM_CHAR then // for settting char ( kaf) in win2000 begin if Msg.wParam = 152 then Msg.wParam := 223 // and more...... end; end;