Текущий архив: 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.124 c
