Fonksiyon hata veriyor

[hbulus]

Forumda daha önce geçen aşağıdaki fonksiyon win32 derlenince problemsiz çalışırken,
android de programın kilitlenmesine sebeb oluyor. Acaba neden olabilir??.. (XE7)

Kod: Tümünü seç

function degistir(s: String): String;
const
  win: string = 'ŞşİıĞğ';
  SQL: string = 'ÞþÝýÐð';
var
  j: byte;
begin
  for j := 1 to length(win) do
    while pos(win[j], s) > 0 do
      s[pos(win[j], s)] := SQL[j];
  result := s;
end;

[mrmarman]

Android için aşağıdaki gibi dene sorun nedir adını sen koy.

Bir de ek bilgi, kaynak kodlar ASCII TEXT dosyası içeriği olarak saklandığından, CONST vs yerlerde ASCII kod hex karşılıkları veya Integer karşılıkları tercih etmek daha faydalıdır.

Kod: Tümünü seç

  SQL : String = Chr($DE)+Chr($FE)+Chr($DD)+Chr($FD)+Chr($D0)+Chr($F0);//'ÞþÝýÐð';

veya

Kod: Tümünü seç

  SQL : String = Chr(222)+Chr(254)+Chr(221)+Chr(253)+Chr(208)+Chr(240);//'ÞþÝýÐð';

gibisinden.

Kod: Tümünü seç

function degistir(s: String): String;
const
  Win: string = 'ŞşİıĞğ';
  SQL: string = 'ÞþÝýÐð';
var
  j: byte;
begin
  for j := 0 to length(Win)-1 do
    while pos(Win[j], s) > 0 do
      s[pos(Win[j], s)-1] := SQL[j];
  result := s;
end;