|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2008, 21:04 | #1 |
Пользователь
Регистрация: 13.09.2007
Сообщений: 63
|
Не понимаю как работать с функциями.
Допустим имеем стандартный массив.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var V:array[1..10]of integer; Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var I: integer; begin for I:=1 to 10 do V[i]:=i; end; procedure TForm1.Button1Click(Sender: TObject); begin { Функция Maxvalue возвращает максимальное значение массива. Как сделать так чтобы после нажатия кнопки появлялось сообщение "максимальное значение массива ... . Где и что нужно прописать в этом коде???} end; end. пишу полный код потому что совсем не понимаю что значит и где прописать function MaxValue(const Data: array of Double): Double; Последний раз редактировалось Миша; 24.12.2008 в 21:06. |
24.12.2008, 21:17 | #2 |
Пользователь
Регистрация: 10.11.2008
Сообщений: 19
|
procedure TForm1.Button1Click(Sender: TObject);
var MaxValue : integer; begin MaxValue:=MaxValue(V); ShowMessage('Максимальное значение = '+IntToStr(MaxValue)); end; Попрубуйте так. |
24.12.2008, 23:08 | #3 |
Пользователь
Регистрация: 13.09.2007
Сообщений: 63
|
Неа ошибка Missing operator or semicolon
|
25.12.2008, 02:08 | #4 |
Участник клуба
Регистрация: 28.11.2007
Сообщений: 1,521
|
Миша, а где ваша функция? function MaxValue(const Data: array of Double): Double; - Это только её начало. Должно быть продолжение.
Всегда рад помочь!
|
26.12.2008, 12:20 | #5 |
Пользователь
Регистрация: 13.09.2007
Сообщений: 63
|
Я не знаю продолжения может ктото знает посмотрите ещё раз пожалуйста.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как работать с изображениями | eliyas | Помощь студентам | 4 | 10.03.2011 22:27 |
Как работать с XML? | Никки | Общие вопросы Delphi | 7 | 18.01.2008 00:56 |
Как работать c USB? | Araver | Общие вопросы Delphi | 4 | 05.11.2007 18:41 |
Delphi. Не понимаю как решить задачу. | EVIL | Помощь студентам | 3 | 21.10.2007 01:12 |
Как работать с DBF | Solomon | БД в Delphi | 7 | 07.08.2007 09:39 |