• 0
khalmoh1971

محتاج تحويل هذا الكود الى delphi 7

سؤال

Function TransA2E(W As String) As String
        Try
            Dim p As Integer
            Dim AL(), EL()
            AL = (New String() {" ال", "َا", "ا", "أ", "آ", "ى", "إ", "ؤ", "ئ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "ة", "ُوْ", "و", "ِيْ", "ي", "َ", "ً", "ُ", "ٌ", "ِ", "ٍ", "ء"})
            EL = (New String() {" al-", "a", "a", "a", "a", "a", "i", "u", "i", "b", "t", "th", "j", "ha", "kh", "d", "th", "r", "z", "s", "sh", "s", "sh", "t", "th", "a", "g", "f", "q", "k", "l", "m", "n", "h", "h", "u", "ou", "i", "y", "a", "tn", "u", "un", "i", "in", "'a"})
            Do
                p = InStr(p + 1, W, "ّ")
                If p > 0 Then W = Left(W, p - 1) & Mid(W, p - 1, 1) & Mid(W, p + 1)
            Loop While p > 0
            For R = LBound(AL) To UBound(AL)
                W = Replace(W, AL(R), EL(R))
            Next
            TransA2E = W
        Catch ex As Exception

        End Try
    End Function 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

0 إجابة على هذا السؤال .

لاتوجد إجابات على هذا السؤال حتى الآن .


  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .