Как перенести Код из Visual Basic в Delphi? [D6, D7, Win2k, WinXP]
Bigman © (2005-09-28 06:56:00)
Знатоки, помогите.
Есть процедура на Бейсике, писал её пять лет назад для своей
программы.
Как переписать её под Дельфи?
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: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;
Наверх 
ЧАТ |
Орешник |
|
