|
|
Другие темы раздела | |
Delphi сохранение файла
https://www.cyberforum.ru/ delphi-beginners/ thread714771.html Есть проект записной книги, где записывается сколько квадратов плитки человек положил за эту неделю, там записывается дата и количество квадратов. Мне нужно сделать так, чтобы данные можно было сохранять в один и тот же файл, а он просто обновлялся новыми данными, а сейчас там каждый раз нужно создавать новый. И еще, как сделать, чтобы количество квадратов запоминалось в какой-то переменной или... |
Как убрать путь и чтоб файл читался? Delphi Здравствуйте ув. Программисты. есть вот такая вот процедура Procedure FindFileInFolder(path, ext: string); Var SR : TSearchRec; Res : Integer; begin Res := FindFirst(path+ext, faAnyFile, SR); while Res = 0 do begin Form1.Combobox1.Items.Add(path+Sr.Name); Res := FindNext(SR); end; |
Delphi Закрыть сообщение Приветствую. В программе я вывожу сообщения через функцию, в которой используется application.MessageBox Вопрос, могу ли я программно закрыть окно сообщения, которое я вызвал ранее? https://www.cyberforum.ru/ delphi-beginners/ thread714728.html | Delphi Автоматическая смена обоев Нужно штоби при запуске програми обои стола менялись на картинку указаную в програме( 1 картичка)!!! Нужно срочно пліз !!! https://www.cyberforum.ru/ delphi-beginners/ thread714714.html |
Автоматическое закрытие формы Delphi У нас на областной олимпиаде по программированию результаты работы проверяются с помощью специальной тестовой программы. Рабочий ехе-файл должен считывать входные данные из текстового файла и выводить результат в другой текстовый файл. Тестовая программа проводит проверку по нескольким входным тестовым файлам. То есть запускается ехешник и по очереди считывается и выводится информация. И после... |
Delphi Решение полинома 2го порядка 3мя методами Добрый вечер! Нужно написать программу, решающую полином второго порядка типа y = ax² + bx + c, один и тот же полином. Методом касательных, методом деления отрезка пополам и методом хорд(литература по методам есть). Программа должна выдать ответы, полученные тремя способами и назвать способ, который дал наиболее быстрое решение( за меньшее число шагов). Опыта программирования, пока что, крайне... https://www.cyberforum.ru/ delphi-beginners/ thread714698.html |
Delphi событие в popupmenu В созданном пункте popupmenu нужно onClick Сделал так,но работает только на первом пункте m:=TmenuItem.Create(PopupMenu1); m.Caption:=StringList.strings; m.OnClick:= MenuClick; PopupMenu1.Items.add(m); Добавлено через 7 минут Спсибо!Разобрался https://www.cyberforum.ru/ delphi-beginners/ thread714668.html |
Где тут ошибка? Delphi procedure TForm3.Button2Click(Sender: TObject); var i:integer; b:integer; begin if RadioButton1.Checked then randomize; b:=random(6); if b=1 then Label3.Caption:='Победа!'; |
Delphi FormMouseDown Как сделать так, что бы при нажатии на Button запускалась процедура FormMouseDown, в ней я извращаюсь над координатами клика мыши, создаю новые объекты на форме, а потом при повторном нажатии этого же Button процедура останавливалась? помогите добрые люди) https://www.cyberforum.ru/ delphi-beginners/ thread714622.html | Delphi Горизонтальная прокрутка мышью в StringGrid Скажите пожалуйста, как реализовать горизонтальную прокрутку в stringgred-e . Т.е нажал мышкой в любой точке грида, и двигаешь в сторону, при этом идет прокрутка. Попробовал реализовать через свойство StringGrid1.LeftCol, но что-то не особо получилось. Спасибо https://www.cyberforum.ru/ delphi-beginners/ thread714608.html |
Delphi Использование стандартных объектов Помогите пожалуйста, не могу описать СheckBox , при отметки флажка приложение сразу вылетает((Еще плаваю в Делфи совсем(( Задача: Создать меню с командами Input, Work, Exit. При выборе команды Exit приложение завершает работу. При выборе команды Input открывается диалоговое окно, содержащее: • три поля ввода типа TextBox с метками Radius, Height, Density; • группу из двух флажков (Volume,... |
Delphi Не работает цикл в потоке
https://www.cyberforum.ru/ delphi-beginners/ thread714491.html Вот писал программу,в ней цикл,достаточно длинный поэтому форма зависала,если просто процедуру в основной поток заносить,пришлось прибегнуть к помощи потоков,но вот в чем незадача,создал поток,прописал в ней процедуру,запускаю и ничего не происходит,ну как не происходит,первое условие выполняется,и последнее,а сам цикл нет,вот эта процедура,подскажите что не так procedure TPotok.Execute;... |
1 / 1 / 0
Регистрация: 02.10.2009
Сообщений: 159
|
|
11.12.2012, 14:13 [ТС] | 0 |
Шифрование перестановкой букв - Delphi - Ответ 383856711.12.2012, 14:13. Показов 6332. Ответов 14
Метки (Все метки)
Ответ
Шифрование.
по столбцам все ясно, по спирали не очень цикл repeat for for for inc(r) как он работает, не могу понять. сначала первый for потом inc(r) потом опять первый?.. зачем в строчке until есть k=m*n. если убрать ее все работает вроде. то есть цикл прекращается по окончанию строки и все. Дешифрование. кучу всего непонятного. зачем 2 части кода по очищению массива, и отмечанию незаполненных частей, эти циклы похожи на запись в массив а не на очищение, так как там есть присвоение Arr[r,i]=s[k] что тогда присваивается там. я правильно понимаю, что Arr[r,i]=s[k] это тоже самое что и Arr[r,i]=Char(1)?? если да, то char(1) это как бы сказать текущий элемент? и дальше идет запись в массив по столбца и чтение по столбцам, а по спирали есть только чтение, почему? Вернуться к обсуждению: Шифрование перестановкой букв Delphi
0
|
11.12.2012, 14:13 | |
Готовые ответы и решения:
14
Шифрование перестановкой Совпадение букв двух слов.Перестановкой букв Шифрование перестановкой. Матрица из 4 столбцов Шифрование с перестановкой больше 9 символов |
11.12.2012, 14:13 | |
11.12.2012, 14:13 | |
Помогаю со студенческими работами здесь
0
Нахождение анаграмм в заданном словаре(анаграммы-слова, полученные перестановкой букв, например, корвет-вектор, сорт-рост и т. д.) Шифрование текста методом замены букв Создать программу шифровки/дешифровки (шифрование перестановкой) Шифрование перестановкой |