Вот сам код:
\\\
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] := '' // FIX
else if (inputCode[i] = '1') then
inputCode[i] := ''; // FIX
end;
generateCode:= inputCode;
edit1.text:=inputCode;
end;
begin
testInput := '00100001000101101100';
writeln(generateCode(testInput ));
end.
end.
///
есть 2 вопроса:
1. как сделать что бы за вместо 0 генерировались Англ. буквы и, за вместо 1 - любые цифры от 1 до 0.
2.при этом коде вылетает ошибка 105. (знаю, код не верный, потому и обращаюсь к вам.)
ах да, и код, который с генерировался, еще нужно отобразить в edit1.text, тоже, как сделать ? edit1.text:=inputCode ?
Примечание:
нет, не консольное.
Примечание:
inputCode[i] := chr(33+round(rnd()*52));
в нем ошибку выдает :(
Примечание:
"могу написать полностью прогу... за добровольный вклад на вебмани в размере от 1 до 5 баксов "
как бы тебе сказать... это самые основы, которые я давно прошел, но кое что подзабыл, вот и спросил. А ты предлагаешь купить то, на написание программы которой займет максимум 1 час при самом плохом раскладе.
спасибо, не нужно.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.