|
|
| Другие темы раздела | ||||||||||||||||||
|
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/ delphi-beginners/ thread1995224.html | |||||||||||||||||
|
Delphi Перебор всех подстрок, которые надо найти в строке
https://www.cyberforum.ru/ delphi-beginners/ thread1995195.html Проблема вот в чем нужно заменить цикл делфи на паскаля но я не знаю как правильно ето сделать вот код делфи: procedure TForm1.Button3Click(Sender: TObject); var S : String; i, j : Integer; begin Memo3.Clear; S := Memo1.text; //Текст, в котором будем выполнять поиск. for i := 0 to Memo2.Lines.Count - 1 do //Перебор всех подстрок, которые надо найти в S. |
Delphi Перевод программы с С++ на Pascal! Помогите, пожалуйста, срочно нужно перевести код, у меня не получается постоянно выдает разные ошибки. Вместо вектора можно использовать обычные массивы или динамические, код рабочий, писался в RAD Studio 10.1. table - StringGrid1 done - StringGrid2 Заранее спасибо! bool fl=false; bool first=false; bool ff=true; __fastcall TForm1::TForm1(TComponent* Owner) | |||||||||||||||||
|
Delphi Решение задач вычислительного характера в Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1995105.html Составить программу определения решения уравнения x2+4x-5=0. Диапазон и шаг изменения аргумента определить в виде переменных таким образом, чтобы получить адекватные заданной функции значения. Исследовать варианты получения решения в зависимости от выбранных значений и шага аргумента. Подтвердить решение путем построения графика функции. |
Delphi Решение задач вычислительного характера в Delphi Составить программу определения решения уравнения x2+4x-5=0. Диапазон и шаг изменения аргумента определить в виде переменных таким образом, чтобы получить адекватные заданной функции значения. Исследовать варианты получения решения в зависимости от выбранных значений и шага аргумента. Подтвердить решение путем построения графика функции. https://www.cyberforum.ru/ delphi-beginners/ thread1995092.html | |||||||||||||||||
|
Delphi Найти количество чётных элементов и сумму элементов, меньших 20 для каждого столбца матрицы (StringGrid) Помогите пожалуйста сделать эту задачу с помощью StringGrid. И проверьте пожалуйста её правильность. Условие : Дан двумерный массив целых чисел, размеры которого задаёт пользователь. Найти количество чётных чисел и сумму элементов, меньших 20 для каждого столбца. Var A:array of integer; i,m,d,s:integer; Begin |
Delphi Найти сумму элементов нижнего треугольника
https:
Наверх
| |||||||||||||||||
Сообщение от Frederick_J
