вот сам код:
var
testInput : String;
function generateCode(inputCode: String): String;
var i: Integer;
begin
for i:= 1 to Length(inputCode) do begin
if (inputCode[i] = '0') then
inputCode[i] := chr(33+round(rnd()*52));
else if (inputCode[i] = '1') then
inputCode[i] := Inttostr(round(rnd*10));
edit1.text := generateCode(inputCode: String);
end;
generateCode:= inputCode;
end;
begin
testInput := '00100001000101101100';
end.
ошибку выдает в этой строке: inputCode[i] := chr(33+round(rnd()*52));
что тут не так ?
по идее, прога должна была выводить генерируемые цифры и буквы в едит1.текст.
Примечание:
а кто мб может... дописать, или отредактируйте, что бы было правильно.
Примечание:
procedure TForm1.FormCreate(Sender: TObject); - ошибка
Примечание:
формы чего ?
едит ?
Примечание:
ооокей :)
мб скайп ?
если нет, то тогда уже ошибка перебралась ниже -
Form1.Edit1.Text:=generateCode(testInput);
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.