...das persisches Alphabet in SQL Server (W2K) benutzen?

Autor: reza zandieh
Homepage: http://www.rezazdoulabi.persianblog.com

Kategorie: Datenbanken

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;

 

printed from
www.swissdelphicenter.ch
developers knowledge base