KoloverА что ты имел в виду? И если справился - расскажи?

если интересно, я могу дать свой вариант процедуры перевода

Ghost_X Программист Дёня KoloverА что ты имел в виду? И если справился - расскажи?

если интересно, я могу дать свой вариант процедуры перевода


Я нашел вот эту тему www.sql.ru/forum/actualthread.aspx?tid=355716&hl=russa1 и переделал на оборот.
Если есть более простые варианты выкладывайте.


Вот вариант проги по той теме, посмотри и подумай как наоборот, то есть как тебе надо сделать, принцип тот же, только строки-константы изменить надо по содержанию, а так принцип одинаков:


Private Const vbLat as string = "zxcvbnmasdfghjklwertyuiopZXCVBNMASDFGHJKLQWERTYUIOP"
Private Const vbCyr as string = "зхцвбнмасдфгхжклшертйуиопЗХЦВБНМАСДФГХЖКЛШЕРТЙУИОП"

Public Sub LatTransCyr(byref LatText as string)
Dim s as string, char as string
Dim l as long, i as long, p as long

Let l = Len(LatText)
For i = 1 To l Step 1
Let char = Mid$(LatText,i,1)
Let p = InStr(1,vbLat,char)
If (p>0) Then
Let s = s & Mid$(vbCyr,p,1)
Else
Let s = s & char
End If
Next i
Let LatText = s
End Sub

Такой принцип везде можно применять – и обратно с русского на английский, а в Делфи так вообще повсеместно, там хоть массивы-константы есть из чего угодно. Попробуйте!!!

Ghost_XДействительно просто!

Да, ну?!☺

Значит пользуйтесь