Что такое лист? Думаю тебе нужно смотреть в сторону ф-ции Delete(строка, с какого символа, по какой символ)
Подскажите на примере как создать свое событие в Delphi. Допустим я хочу создать событие onDenjf И что бы он происходило по нажатию на button procedure Tform1.buttonclick(senderbject); begin //..... //как я понял тут надо написать If Assigned(FOndenjf) then FOondenjf(self); end; обработчик procedure trorm1.ondenjf(senderbject); begin ///тут че нибуть делаем end; Что нужно добавить еще?
Надо соответсвенно объявить процедурный тип и свойство-событие: TMyClass = class ........... private FOnDenjf : TNotifyEvent; ............ public property OnDenjf: TNotifyEvent read FOnDenjf write FOnDenjf; end; И после этого ты можешь присваивать этому свойству значения процедур. Вместо TNotifyEvent ты можешь объявить свой процедурный тип: type TMyEvent = procedure of object({тут перечисление передаваемых аргументов по твоему усмотению}); end;
а не проще в public объявить свою процедуру с параметрами как в процедуре, которая должна вызвать это событие, и написать так как я?
А как создать такое событие что бы оно происходило как только в Listbox добавится 2 записиси. Или событие которое происходило бы если переменая стала true;
Если компилер говорит что не знает, значит он не знает. Так, как показано выше. Ну конечно, ты повторно используешь один идентификатор. Ты объявляешь 2 члена класса с одним именем, свойство и процедуру.
Вот этот модуль поможет тебе разобраться с событиями, все комментировано и разжевано. Создай гуи-проект и замени код на этот Code: unit Unit1; interface uses Classes, Forms, StdCtrls, Controls; type {Вот смотри, это класс у которого будет событие Допустим что наш класс должен будет складывать числа а событие допусим будет возникать когда сумма меньше нуля} TMain = class private {Это поле-событие, тут мы указываем тип TNotifyEvent но можно использовать и свои} FOnDenjf: TNotifyEvent; public {Объявляем свойство-событие в разделе паблик, чтобы событие можно было использовать извне} property OnDenjf: TNotifyEvent read FOnDenjf write FOnDenjf; {Собственно метод класса в котором будет генериться событие } function Sum(a, b : Integer): Integer; // end; {Теперь пример использования нашего класса извне Допустим у нас есть клас формы TForm1 с компонентом Label1 Мы знаем что событие генериться когда сумма меньше нуля и используем это знание чтобы оповестить пользователя об этом Тогда ввведем в класс формы процедуру с такими же аргументами как и у типа TNotifyEvent} TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Test(sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TMain } {Реализация метода и генрация события} function TMain.Sum(a, b : Integer): Integer; begin result := a + b; {проверяем результат и если он меньше нуля то генерим событие} if (result < 0) and (assigned(FOnDEnjf)) then FOnDenjf(self); end; {Применение} procedure TForm1.Button1Click(sender: TObject); var Main: TMain; begin Main := TMain.Create; Main.OnDenjf := Test; {Вот тут пробуй подставлять разные значения чтобы убедитьься что все работает} Main.Sum(3, -4); Main.Free; end; procedure TForm1.Test(sender: TObject); begin Label1.Caption := 'Сумма меньше нуля!!!'; end; end.
Нужно скласть программу на Паскале для построения массива с 12 елементами a=4sin3i , и вычисления среднеарифметического значения елементов которые больше за -1, и меньше чем 1. ХЕЛП!)
да) i - должна быть подстрочным знаком в буквы а, и в цифре 3 типа маленькая буква (і) написана возле троечки) и возле а тоже маленькая буква (і) есть. (внизу)
Поподробнее напиши, а то я че то, кроме того что в массиве 12 элементов, заданных формулой, ничего не понял..
а)Помогите плиз написать прогу на паскале чтобы можно было в одномерном массиве изменить порядок следования элементов. б)И написать программу подсчета количества элементов, попадающих между номером минимального элемента и максимального элемента в массиве из 30 чисел.
а) не совсем понял.. как нужно что бы элементы находились?? просто в обратном порядке??? или рандомом? б) между минимальным элементом и каким еще то???
это для первой задачи PHP: program asdf; const n=10; a:array[1..n] of integer; begin writeln('Zapolnite massive'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; writeln; writeln('Ishodniy massive'); for i:=1 to n do write(a[i], ' '); writeln; writeln('Rezultat'); for i:=n downto 1 do write(a[i], ' '); writeln; readln; end. Это для 2 PHP: program asdf; const n=30; a:array[1..n] of integer; begin writeln('Zapolnite massive'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; writeln; X := 1; N := A[X]; for i:=1 to n do If N < A[I] Then Begin X := I; N := A[X]; K=i End; X := 1; N := A[X]; for i:=1 to n do If N > A[I] Then Begin X := I; N := A[X]; L=i End; for i=K to L do write(a[i], ' '); writeln; readln; end.
