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

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

Войти

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

Другие темы раздела
Delphi Запрет на редактирование Memo https://www.cyberforum.ru/ delphi-beginners/ thread93091.html Как поставить запрет на редактирование Memo, кроме Enabled? Enabled запрещает редактирование Memo, но при этом текст становится серым. Еще можно выставить параметр ReadOnly в True, но тогда текст можно выделять. А кроме этих способов есть еще такие, чтобы нельзя было ни выделять, ни редактировать, и чтобы текст не становился серым?	Нужен Ваш совет по работе с файлами. Delphi Как можно все графические файлы объединить в один какой-нить архив (или что-то подобное), из которого программа их будет считывать? Может быть, неправильно формулирую вопрос, если подобные темы уже обсуждались, киньте, пожалуйста, ссылочку.
Delphi Составить блок-схему procedure TForm1.RadioButton1Click(Sender: TObject); var max,a,b,c,d,min:real; begin a:=strtoint (edit1.Text); b:=strtoint (edit2.Text); c:=strtoint (edit3.Text); d:=strtoint (edit4.Text); if ((a>b)and (a>c)and (a>d))then max:=a else if ((b>a)and (b>c)and (b>d))then max:=b else https://www.cyberforum.ru/ delphi-beginners/ thread93062.html	Delphi Подпрограммы и модули https://www.cyberforum.ru/ delphi-beginners/ thread93059.html Помогите с кодом разобраться.. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MathFunc, ExtCtrls; type
Delphi Исправить код на Delphi7 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Math; type TForm1 = class(TForm)	Delphi Перемещение фигуры Мне попалось такое задание: разместите на форме фигуру(Shape) с помощью combobox-сов задайте выбор формы, цвета линии, формы линии, цвета заливки и формы заливки, а также перемещение фигуры по форме при помощи мышки. все сделал а перемещение не получается, подскажите как его сделать? https://www.cyberforum.ru/ delphi-beginners/ thread93030.html
Delphi Метод Монте-Карло https://www.cyberforum.ru/ delphi-beginners/ thread92991.html Я отрисовывал фигуру линиями по координатам, на это ушло 5 серий ( Скрин). Мой код: begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; Edit4.text:=''; ProgressBar1.Position:=0;	повторить процедуру изменив значение Delphi подскажите. к примеру как сделать так что бы при нажатии баттон1 в мемо посыпались числа от 0 до 1000. (string)
Delphi Разработать программу с графическим интерфейсом, реализующую алгоритмы перевода чисел между системами исчисления. Разработать программу с графическим интерфейсом, реализующую алгоритмы перевода чисел между системами исчисления. В качестве входного параметра программа получает путь к текстовому файлу в следующем формате. O – H 123321 H – D ABC45 Буквами указываются исходная и конечная системы исчисления. В синтаксисе входного файла использовать следующие системы исчисления: B– двоичную, O– восьмеричную,... https://www.cyberforum.ru/ delphi-beginners/ thread92956.html	Delphi listbox прокрутка на последнюю строку https://www.cyberforum.ru/ delphi-beginners/ thread92909.html подскажите как в листбоксе сделать автопрокрутку вертикального scroolbar'а на последнюю строку?
Delphi Составить блок-схему var i,s:integer; d:real; begin i:=strtoint(edit1.Text); if (i mod 2=1) and (i>0)then d:=sqr(i) else s:=sqr(i)*i; if i>999 then edit1.text:= 'KATE'; edit2.Text:=floattostr(d);	Delphi Тип переменной https://www.cyberforum.ru/ delphi-beginners/ thread92861.html Здравствуйте!!!!!!!!!! Подскажите какой тип переменной в базе данных если это число с запятой например: 2,125

Johnny B

3 / 3 / 1

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

Сообщений: 69

07.02.2010, 00:10 [ТС]

Запись в массив - Delphi - Ответ 528832

07.02.2010, 00:10. Показов 11583. Ответов 24

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

Ответ

Вот у меня кусок кода:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var x,xi:array [1..7] of real;
    yi:array [1..7] of real=(72.2,86.3,100.9,117.5,134.8,152.4,171.2);
    y,i,n:integer;
    mx,my,Rxy,Dx,a,b:real;
begin
n:=7;
for i:=1 to n do
mx:=mx+xi[i];
mx:=mx/n;
for i:=1 to n do
my:=my+yi[i];
my:=my/n;
for i:=1 to n do
Rxy:=Rxy+(xi[i]-mx)*(yi[i]-my);
Rxy:=Rxy/n;
for i:=1 to n do
Dx:=Dx+(xi[i]-mx)*(xi[i]-mx);
a:=Rxy/Dx;
b:=my-a*mx;
form1.StringGrid1.cells[0,0]:='Возраст Xi';
form1.StringGrid1.Cells[1,0]:='Высота Yi';
form1.StringGrid1.Cells[2,0]:='Возраст X';
form1.StringGrid1.cells[3,0]:='Высота Y';
image5.Canvas.MoveTo(0,271);
for i:=1 to n do begin
y:=a*x[i]+b;
image1.Canvas.LineTo(n,y);
form1.StringGrid1.Cells[0,1]:=floattostr(y);
end;

Ошибку выдает на третьей строке. Если там прописать что-то рабочее, то выдает еще на 27 строке - из-за несоответствия типов.
Но на 3 строке определенно останавливает компиляцию - ошибку пишет

Добавлено через 2 минуты
Cannot initialize local variables пишет

Добавлено через 42 минуты
Такая запись вообще допустима?

Вернуться к обсуждению:
Запись в массив Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.02.2010, 00:10

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

Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран
1.Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран...

Запись строки в массив, сортировка, удаление и запись в файл
Нужна помощь. Из edit box к нам приходят строки мы их фильтруем. нужно строки записать в массив,...

Запись координат в массив в реал тайм, Как записать координаты в массив
Возникла проблема записи координат от мышки в массив. Мне нужно чтобы координаты сохранялись в...

запись в массив
требуется решить задачу не знаю как. есть строковая переменная Led_2_54321 (_ ) - пробел) как...

	07.02.2010, 00:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.02.2010, 00:10

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

Запись в массив
Дана строка "tre,yt" Как записать в один массив {tre,yt} и в другой {,}

Запись в массив
Добрый день , как записать в массив типа char "user_pref("intl.charsetmenu.mailview.cache",...

Запись в массив
Скажите вот у мну прога выводит русские буквы из текста в окно мемо, но выводит каждую букву в...

Запись в массив
Всем привет! Задача: Есть сотрудники,id каждого надо запихнуть в массив. Сколько сотрудников...

Наверх