Текущий архив: 2005.10.16;
Скачать: CL | DM;

Вниз

Как перенести Код из Visual Basic в Delphi?   Найти похожие ветки 

← →
Bigman ©   (2005-09-28 06:56) [0]

Знатоки, помогите.
Есть процедура на Бейсике, писал её пять лет назад для своей программы.
Как переписать её под Дельфи?

Public Sub KodeEKR()
Dim varweek As Variant, vard As Variant, varw As Variant
VarKey = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "(", ")", "*", "+", ",", "-", ".", "/", ":", ";", "=", "?", " ", "!", """", "А", "Б", "В", "Г", "Д", "Е", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я", "№")
VarKod = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "35", "36", "34", "39", "40", "41", "42", "43", "44", "45", "46", "47", "33", "37", "38", "00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32")
For i = 0 To 57
If VarKey(i) = strdat Then
Kod = VarKod(i)
StrResult = StrResult + Kod + ", "
End If
Next
End Sub
ответте плиз на Bigman@igarkacity.ru

---

← →
dmitry501 ©   (2005-09-28 08:00) [1]

function KodeEKR(): string;
const VarKey :array[0..57] of string = ("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "(", ")", "*", "+", ",", "-", ".", "/", ":", ";", "=", "?", " ", "!", """", "А", "Б", "В", "Г", "Д", "Е", "Ж", "З", "И", "Й", "К", "Л", "М", "Н", "О", "П", "Р", "С", "Т", "У", "Ф", "Х", "Ц", "Ч", "Ш", "Щ", "Ъ", "Ы", "Ь", "Э", "Ю", "Я", "№");
     VarKod :array[0..57] of string = ("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "35", "36", "34", "39", "40", "41", "42", "43", "44", "45", "46", "47", "33", "37", "38", "00", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32");
var
 i:integer;
 begin
   result := "";
   For i := 0 To 57 do begin
     If VarKey[i] = strdat Then begin
       Kod := VarKod[i];
       Result := Result + Kod + ", ";
     end;
   end;
end;


---

Страницы: 1 вся ветка

Текущий архив: 2005.10.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.041 c