Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi С клавиатуры вводится время, определить угол между часовой стрелкой направлением на 12 С клавиатуры вводится время выражено в часах и минутах.Определить угол между часовой стрелкой направлением на 12 https://www.cyberforum.ru/ delphi-beginners/ thread1189724.html	Delphi Где найти файл Ceflib.pas? Не находит ceflib.pus Что делать?
Delphi TabSheet по вертикали Как сделать чтобы вкладки (TabSheet) в PageControl шли по вертикале? https://www.cyberforum.ru/ delphi-beginners/ thread1189712.html	Delphi Простейший текстовый редактор Подсчитать количество «1». Заметь все «1» на «2». Разработать программу открытия.Может завалялась у кого)? https://www.cyberforum.ru/ delphi-beginners/ thread1189700.html
Delphi Создать метку для каждого нового массива Такая проблема (не пишу код полностью, т.к. получился корявый и мудреный, просто дошла до того момента который не могу придумать как сделать): есть массивы, которые появляются в цикле, то есть например n: 0,1,2,3,4 потом массив n очищается, туда записываются новые элементы n: 5,6,7,8 и потом допустим еще раз n: 9 Звучит дико но край так надо, ибо скоро сдавать работу и не до красот и...	Delphi Дан массив x = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214, -3.837, 0.918 Дан массив x = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214, -3.837, 0.918, -75.014) и а = 3.14, b = -7.8 . Вычислить сумму и количество отрицательных элементов, больших b и меньших а. https://www.cyberforum.ru/ delphi-beginners/ thread1189686.html
Delphi Перевод десятичного числа в римскую систему счисления https://www.cyberforum.ru/ delphi-beginners/ thread1189659.html 1.Написать программу, позволяющую вычислять дискриминант и корни квадратного уравнения, в случае невозможности решения, вывести сообщение на экран формы «нет решений». Для отображения результатов использовать второе окно. Обеспечить проверку правильности вводимых коэффициентов. 2.Разработать калькулятор перевода десятичного числа в римскую систему счисления. 3. Написать программу, в которой...	Delphi Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин Написать программу, которая вычисляет площадь треугольника если известны координаты его вершин?
Delphi Блок-схема https://www.cyberforum.ru/ delphi-beginners/ thread1189645.html Помогите нарисовать блок-схему unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type	Delphi Шифрование методом гаммирования (дешифрование не работает) https://www.cyberforum.ru/ delphi-beginners/ thread1189635.html Помогите разобраться почему не дешифрует. Буду очень благодарна за помощь. Вот сам код:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
Delphi Кодирование и поиск данных: вычислить и вывести среднюю длину кодового слова Определение средней длины кодового слова. Вводится m - число кодируемых сообщений, m двоичных кодов различной длины, используемых для кодирования, и m вероятностей появления данных сообщений. Программа нормирует все введенные вероятности, приводя их сумму к единичному значения, после чего вычисляет и выводит среднюю длину кодового слова. Пожалуйста помогите((	Delphi Определить длинное слово текста https://www.cyberforum.ru/ delphi-beginners/ thread1189625.html Определить длинное слово текста Текст: СТАРЫЙ ДУРАК ИСТОРИКО ТЕРПЕТЬ НЕ МОЖЕТ МЛАДШЕГО УМНИКА

Puporev

Почетный модератор

64299 / 47594 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

27.05.2014, 13:00

Procedure TForm1.Button3Click(Sender: TObject); - Delphi - Ответ 6232939

27.05.2014, 13:00. Показов 3773. Ответов 2

Метки (Все метки)

Ответ

Delphi

var i:integer;//глобальная переменная
........................................
procedure TForm1.Button3Click(Sender: TObject);
begin
inc(i);
tab1.cells[0,i-1]:=Edit1.text;
tab1.cells[1,i-1]:=Form2.edit1.text;
tab1.cells[2,i-1]:=Form2.listbox1.Items[form2.listbox1.ItemIndex];
tab1.Cells[3,i-1]:=Form2.combobox1.text;
tab1.cells[4,i-1]:=maskedit1.text;
tab1.Cells[5,i-1]:=maskedit2.text;
end;

Вернуться к обсуждению:
Procedure TForm1.Button3Click(Sender: TObject); Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.05.2014, 13:00

Готовые ответы и решения:

procedure TForm1.Edit1Change(Sender: TObject);
edit должен увеличиваться ,если в него вводят больше букв,чем он однавременно может отобразить...

Ошибка в строке: procedure TForm1.Button1Click (Sender: TObject)
Пишет ошибку в строке: procedure TForm1.Button1Click (Sender: TObject); procedure...

выдает ошибку в строке PROCEDURE TForm1.Button1Click(Sender: TObject);
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...

Как в Delphi 7 вызвать TForm1.N1Click(Sender: TObject)?
как в Delphi 7 вызвать TForm1.N1Click(Sender: TObject);

	27.05.2014, 13:00

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.05.2014, 13:00

Помогаю со студенческими работами здесь

Показывает ошибку в procedure Form2Button1Click(Sender: TObject);
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Как создать процедуру procedure RadioButtonClick(Sender: TObject);?
procedure RadioButtonClick(Sender: TObject); //Как общую процедуру сделать?

Не могу понять в чём ошибка procedure Form2FormCreate(Sender: TObject);
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Игра угадай слово по буквам. Выдает ошибку в procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); ...

Наверх