|
|
| Другие темы раздела | ||||||||||||||||||
| Delphi Вывести содержимое файла text.txt в объект TMemo Дан текстовый файл Text.txt, вывести его содержимое в объект TMemo, с возможностью его редактирования и сохранения изменения в этот же файл. (Использовать Memo1.Lines.LoadFromFile(имя файла);-для загрузки файла. Memo1.Lines.SaveToFile(имя файла); https://www.cyberforum.ru/ delphi-beginners/ thread1995390.html |
CopyFile возвращает false, хотя не должен Delphi Здравствуйте. В коде ниже CopyFile возвращает false: procedure TMainForm.N22Click(Sender: TObject); var fileName, fileName0: string; begin SaveDialog1.DefaultExt:='accdb'; if SaveDialog1.Execute then | |||||||||||||||||
| Delphi Три матрицы, замена переменных Задача : Даны три матрицы случайных целых чисел с одинаковыми размерами(размеры вводит пользователь). Заменить все отрицательные поддиагональные элементы первой матрицы соответствующими элементами третьей матрицы, наддиагональные элементы второй матрицы на число - сумму индексов максимального элемента третьей матрицы. Вывести эти матрицы на экран. У меня есть код подобной задачи, только тут... https://www.cyberforum.ru/ delphi-beginners/ thread1995360.html |
Delphi Переделать массив. StingGrid
https://www.cyberforum.ru/ delphi-beginners/ thread1995357.html Надо чтобы задачка была без SpinEdit и сокращений вроде SG, а также без randomrange(только random могу пользоваться). Когда я просто заменяю, у меня юнит рушится почему-то! Прошу помогите переделать. Задача : Дана матрица целых чисел(размеры и элементы вводит пользователь). Построить вторую матрицу по правилу : если элемент исходной матрицы лежит ниже главной диагонали, является нечётным и... | |||||||||||||||||
|
Delphi Переделать код, массив Задание : Задан массив из случайных целых чисел. Если произведение элементов массива, кратных 7, больше произведения элементов первой половины массива, то добавить в конец массива 10 элементов - случайных целых чисел. Нужно чтобы массив выводился(исходный и дополненный), не через label... И если не сложно, проверьте пожалуйста код на правильность. Спасибо огромное, я не могу сам понять,... |
Delphi Открыть только что созданный файл, затем закрыть и отобразить в listbox
https://www.cyberforum.ru/ delphi-beginners/ thread1995319.html как открыть только что созданный файл, затем закрыть и чтоб его название или первая строка там отражалось в listbox | |||||||||||||||||
|
Delphi Запись текста в случайную строку
https://www.cyberforum.ru/ delphi-beginners/ thread1995307.html Здравствуйте Уважаемые форумчане, Записываю текст в текстовых документ таким кодом edit1.text:='нужный текст'+list.Text; s:=edit1.text; assignfile(fi,'файл.txt'); append(fi); writeln(fi,s); closefile(fi); |
Ошибка в коде function proverka Delphi Добрый вечер коллеги !! Подскажите из за чего возникает эта ошибка в 66 строке кода function proverka может я что то не усмотрел. Заранее спасибо всем unit Unit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,Menus,ComCtrls,StdCtrls,Math,Grids,Mask; type | |||||||||||||||||
|
Delphi Нужно составить блок-схему в Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1995293.html procedure TForm1.Button1Click(Sender: TObject); var i, mini, maxi, mini1, maxi1, k: Integer; a: array of Integer; begin randomize;//генератор случайных чисел mmo1.Clear;//очистка поля Memo1 for i:=1 to StrToInt(edt1.Text) do //цикл от значения первого до значение введенного в Edit begin //начало подпрограммы a:=-100+random(201); //элементу массива присвоить значение наугад от -100 до... |
Delphi После каждого простого числа в одномерном массиве внести "0"
https://www.cyberforum.ru/ delphi-beginners/ thread1995287.html Прошу помощи, массивы тяжело идут. Внести рандомные числа в массив и вывести его могу, а произвести действие в задание не могу понять как. Задание: Дан динамический массив, после каждого простого числа(Число которое делится на себя и на 1) вставить "0". Часть кода с заданием procedure TForm2.Button2Click(Sender: TObject); var c: integer; begin c:=0; Edit3.Text:=' '; // Очистить окно... | |||||||||||||||||
|
Создание файла по нажатию на кнопку и добавление этого файла в компонент Listbox, для дальнейшего просмотра Delphi Есть компонент листбокс. Если нажимаю на одну из строк открывается форма с выводом файла. В зависимости от строки, выводит разный файл. т. е. если нажимаю на строку 1, то выводит файл 1.txt, строку 2, то 2.txt. но, если я хочу по нажатию на кнопку создать новый пункт 3, соответственно он мне должен создать новый файл 3, открыть его и я бы в нем уже что либо записал. а потом так же мог нажать на... |
Delphi Не проходит инициализация переменной
Всем привет!
Есть небольшая проблемка с инициализацией переменной Counts, не могу понять как ее решить...
Компилятор выдает ошибку: Unit4.pas(57): Variable 'Counts' might not have been initialized
procedure TForm_Author.btn1Click(Sender: TObject);
var
LogPass: array of string;
I,H,Counts:integer;
ResultLogPass:string;
https://www.cyberforum.ru/
Наверх
| |||||||||||||||||
