Вопрос № 133.801

Здраствуйте, уважаемые эксперты. Вопрос таков: в в WinXP существует такая последовательность действий: Пуск->Подключение->Internet->Вызов. Как можно реализовать это програмно? Или же просто как управлять сетевыми подключениями (Подключать, отключать). Заранее спасибо.

Отправлен: 23.04.2008, 16:04 Вопрос задал: Шаймарданов Антон Равилевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sosedov A.I. Здравствуйте, Шаймарданов Антон Равилевич! Посмотрите эти ссылочки. Здесь http://articles.org.ru/cn/showdetail.php?cid=5212 хорошо описана команда rasdial Здесь http://www.delphisources.ru/pages/faq/base/inet_connect.html показан пример ее использования. Сам не проверял.

Ответ отправил: Sosedov A.I. (статус: 6-ой класс) Ответ отправлен: 24.04.2008, 16:56

Вопрос № 133.815

Здравствуйте. Нужна ваша помощь, сам не справлюсь. такая задача стоит: Произведение двух натуральных чисел больше максимально допустимого значения(не вмещается в разрядную сетку машины). Найти это произведение. Как такое реализовать? Думаю что через строки, но незнаю даже с чего начать. Очень надеюсь на вашу помощь.

Отправлен: 23.04.2008, 17:01 Вопрос задал: Dimon007 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Sosedov A.I. Здравствуйте, Dimon007! Вот наскоро написанный примерчик перемножения натуральных чисел. Реализован алгоритм умножения в столбик. Приложение: program Project2; {$APPTYPE CONSOLE} uses SysUtils; const N = 10; type Cifra = 0..9; TM1 = array[1..N] of Cifra; TP = array[1..2*N] of Cifra; var Dano1, Dano2: longint; // Исходные натуральные числа M1, M2: TM1; // Они же, преобразованные в массивы P: TP; // Результат i, j: 1..N; k: 1..2*N; Mas: array[1..N, 1..2*N] of Cifra; // Массив "столбика" Perenos, S: integer; begin Dano1:= 999999999; Dano2:= 999999999; write(Dano1); write(' * '); write(Dano2); write(' = '); For i:= 1 to N do begin M1[i]:= Dano1 mod 10; Dano1:= Trunc(Dano1/10); end; For i:= 1 to N do begin M2[i]:= Dano2 mod 10; Dano2:= Trunc(Dano2/10); end; For i:=1 to N do begin For j:=1 to N do begin Mas[i,j]:=0; end; end; For i:=1 to N do begin Perenos:=0; For j:=1 to N do begin Mas[i,j+(i-1)]:= (M1[j] * M2[i] + Perenos) mod 10; Perenos:= (M1[j] * M2[i] + Perenos) div 10; end; end; S:=0; For k:=1 to 2*N do begin For i:=1 to N do begin S:=S+Mas[i,k]; end; P[k]:= S mod 10; S:= S div 10; end; For k:=1 to 2*N do begin write(P[2*N-k+1]); end; readln; end.

Ответ отправил: Sosedov A.I. (статус: 6-ой класс) Ответ отправлен: 24.04.2008, 12:19 Оценка за ответ: 5

Вопрос № 133.875

Здравствуйте, уважаемые эксперты. Возник такой вопрос: как в InputBox сделать коррекцию ввода данных ( напр. ввод только цифр и т.п.) ? Если не тяжело-напишите код. Заранее благодарен. Исправлено в соответствии с комментарием в мини-форуме. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессор) ∙ Дата редактирования: 24.04.2008, 15:52

Отправлен: 24.04.2008, 00:01 Вопрос задал: Gaolong (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Sosedov A.I. Здравствуйте, Gaolong! Учитывая Ваши поправки в мини-форуме, составил процедурку (см. приложение). Конечно, сама идея зациклить вызов InputBox не очень хороша, но свой ответ я составил только в рамках Вашего вопроса. Может, другие эксперты дадут иные варианты. Приложение: procedure TForm1.Button1Click(Sender: TObject); var InputString, DefaultString: string; Temp: integer; begin DefaultString:='Введите число'; repeat repeat InputString:= InputBox('Input Box', 'Prompt', DefaultString); if InputString = DefaultString then break; DefaultString:='Ошибка ввода. Введите число'; until TryStrToInt(InputString, Temp); // Здесь можно ввести дополнительные проверки на ввод // и в случае достижения необходимого результата // воспользоваться оператором break. Пример: if MessageDlg('Вас это устраивает?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then break; until false; end;

Ответ отправил: Sosedov A.I. (статус: 6-ой класс) Ответ отправлен: 24.04.2008, 15:00

Вопрос № 133.885

Здраствуйте, помогите пожалуйста! Запутался в приведённой ниже программе: Предположим, что уже построен и задан указателем P однонаправленный список, элементами которого являются целые числа. Написать программу, которая удаляет из него все отрицательные числа. Если вам не трудно, напишите весь код этой программы. Заранее спасибо!!!

Отправлен: 24.04.2008, 02:35 Вопрос задал: Редкобородый Сергей Витальевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Sosedov A.I. Здравствуйте, Редкобородый Сергей Витальевич! Текст Вашей программы находится в приложении. Приложение: program Project2; {$APPTYPE CONSOLE} uses SysUtils; type PT = ^MyRec; // Тип указатель на элемент списка MyRec = record Value: integer; // Целое число PNext: PT; // Указатель на следующий элемент списка end; var P: PT; // Указатель на "голову" списка P1, P2: PT; // Служебные указатели i, N: integer; // Процедура печати списка // Входной параметр: указатель на "голову" списка procedure WS(P: PT); begin while P <> nil do begin writeln(P^.Value); P:=P^.PNext; end; writeln; end; begin // Инициализация списка случайными числами N:=50; // Длина списка = 50 элементов P1:=nil; Randomize; for i:=1 to N do begin New(P); P^.Value:=Random(100)-50; // Заполнение случ. числами от -50 до 50 if P1 <> nil then P^.PNext:=P1; P1:=P; end; WS(P); // Удаление отрицательных элементов P1:=P; P2:=nil; while P1 <> nil do begin if P1^.Value < 0 then begin if P2 <> nil then begin P2^.PNext:=P1^.PNext; Dispose(P1); P1:=P2^.PNext; end else begin P:=P1^.PNext; Dispose(P1); P1:=P; end; end else begin P2:=P1; P1:=P1^.PNext; end; end; WS(P); // Уничтожение списка while P <> nil do begin P1:=P^.PNext; Dispose(P); P:=P1; end; readln; end.

Ответ отправил: Sosedov A.I. (статус: 6-ой класс) Ответ отправлен: 24.04.2008, 09:01 Оценка за ответ: 5 Комментарий оценки: огромное спасибо! Вы мне очень помогли!

Вопрос № 134.001

есть 2 списка и кнопка. при нажатии на кнопку все элементы одного списка становятся в начало второго списка. P.S. я знаю что это не сложно. но ничего не знаю в дельфи)) напишите полностью прогу..Я ставлю 2 ListBox и кнопку...при нажатии на кнопку все элементы первого списка становятся в начало второго...P.S.напишите пожалуста все...весь код... Добавлено уточнение задания. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессор) ∙ Дата редактирования: 27.04.2008, 15:36

Отправлен: 24.04.2008, 19:12 Вопрос задал: Трошин Денис Алексеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: SHERRY Здравствуйте, Трошин Денис Алексеевич! Вот, пожалуйста. var i: integer; begin for i:=0 to ListBox1.Items.Count-1 do ListBox2.Items.Insert(i, ListBox1.Items[i]); end; --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 8-ой класс) Ответ отправлен: 24.04.2008, 20:23 Оценка за ответ: 4 Комментарий оценки: Cпасибо конечно..но мне надо было весь текст программы..(вместе с созданием списков.).

Вопрос № 134.005

Здравствуйте уважаемые эксперты. Помогите мне пожалуста в написании одной маленькой программки. Есть форма, на ней есть RadioButton1, Image1, и простая кнопка. RadioButton1 озаглавлен как 32 х 32, в Image1 я загружаю картинку которая будет переконвертированна в *.ico подскажите, как мне прописать, чтоб bmp переконвертировать в ico размером 32 пикселя.

Отправлен: 24.04.2008, 19:46 Вопрос задал: Koffi (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Абельхарисов Руслан / Marked One Здравствуйте, Koffi! Вот статья из Delphi World: "O сохранении иконок 32х32 в 256-цветном формате" (http://delphiworld.narod.ru/base/save_32_ico.html) Может быть поможет Вам. Удачи!!!

Ответ отправил: Абельхарисов Руслан / Marked One (статус: 9-ый класс) Ответ отправлен: 24.04.2008, 20:42 Оценка за ответ: 5 Комментарий оценки: Большое спасибо, очень помогло.....тока немножко отредактировать нада. но эт я сам как-нить справлюсь. Огромное спасибо что откликнулись и помогли мне.

Вопрос № 134.090

Уважаемые эксперты! Не могу понять почему: DateEdit1.Text := DateToStr(Date); дает ошибку: Date - Inaccessible value Не работает функция Date и Now Спасибо

Отправлен: 25.04.2008, 11:46 Вопрос задал: ПАН (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 14)

Отвечает: Лукьяненко Алексей Валериевич Здравствуйте, ПАН! Судя по всему, сообщение "Inaccessible value" Вы получаете когда при отладке хотите просмотреть значения. Для функций необходимо при добавлении выражения в Watches указать опцию "Allow Function Calls"

Ответ отправил: Лукьяненко Алексей Валериевич (статус: Студент) Ответ отправлен: 25.04.2008, 11:53 Оценка за ответ: 5 Комментарий оценки: Не была указана эта опция. Правда проблему это не решило. При присвоении DataEdit значения текущей даты происходит ошибка. Где и что я внес, что так повлияло, не знаю. Спасибо.

Вопрос № 134.093

Здравствуйте! Могу я программно на delphi7 задать копирование файла на клиентский компьютер с другого компьютера , где файл лежит в папке доступной на чтение и запись ,но запороленной? команда CopyFile('\192.168.0.10asupshtat.xls','c:2shtat.xls',true) не проходит

Отправлен: 25.04.2008, 12:12 Вопрос задала: Igorb (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Mishell Здравствуйте, Igorb! можно скопировать с пом. ShellApi с паролем не пробовал - но поидее винда Windows (шелл) сама спросит пароль см. пример тут Исправлена длинная ссылка. Исправлен сленг. ----- ∙ Отредактировал: Admiral (Профессор) ∙ Дата редактирования: 28.04.2008, 08:54

Ответ отправил: Mishell (статус: Студент) Ответ отправлен: 25.04.2008, 12:42 Оценка за ответ: 4 Комментарий оценки: НЕ ЗАРАБОТАЛО КАК БЫ Я ХОТЕЛА - ПОДРОБНОСТИ НА ФОРУМЕ

Вопрос № 134.187

Здравствуйте уважаемые эксперты! Как выборочно выделять стилем и цветом шрифта и фона строки (элементы) в компонентах ListView и TreeView? Заранее спасибо.

Отправлен: 25.04.2008, 22:21 Вопрос задал: Кабанов Денис Николаевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович Здравствуйте, Кабанов Денис Николаевич! Пример есть здесь http://www.az-design.ru/Support/DataBase/002b4200.shtml коды лежат здесь: http://www.az-design.ru/Support/DataBase/002b1000.shtml Приложение: procedure TForm1.TVKomplCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); {Example07} var NodeRect: TRect; begin with TVKompl.Canvas do begin if cdsSelected in State then begin Brush.Color := clInfoBk; NodeRect := Node.DisplayRect(True); TVKompl.Canvas.FillRect(NodeRect); end; If cdsHot in State then TVKompl.Canvas.Font.Style := [fsUnderline]; If Node.OverlayIndex=2 then TVKompl.Canvas.Font.Color := clFuchsia; If Node.OverlayIndex=1 then TVKompl.Canvas.Font.Color := clGreen; If Node.OverlayIndex=0 then begin TVKompl.Canvas.Font.Color := clNavy; TVKompl.Canvas.Font.Style := [fsBold]; end; If Node.OverlayIndex=-1 then TVKompl.Canvas.Font.Color := clMaroon; end; end; --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 26.04.2008, 08:11 Оценка за ответ: 5

Вопрос № 134.192

Здравствуйте, эксперты, помогите разобраться. на форме есть поле Edit1, мне нужно в него записать число, и чтобы оно сохранилось в каком-нибудь файле, а потом при следующем запуске программы, во второй скажем форме при нажатии кнопке оно выводилось скажем в Label1. НО еще проблема в том что у меня будет много чисел, и мне нужно чтобы я мог выбирать и работать с этими числами, если можно пример с 2-3 числами,.. Заранее спасибо! ! !

Отправлен: 25.04.2008, 22:54 Вопрос задал: Makavely (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: SHERRY Здравствуйте, Makavely! Сомневаюсь, что мой код является универсальным, но по-крайней мере Вы сможете понять несколько моментов по работе с типизированными файлами. См.приложение Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f: file of integer; // задайм файл целых чисел a,b: integer; // 2 вспомогательные переменные implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin AssignFile(f, 'MyFile.bin'); // задаём файловой переменной f файл на диске if FileExists('MyFile.bin') // если файл существует then begin Reset(f); // открыть файл для чтения read(f, a,b); // считать из него 2 переменные a и b Label1.Caption := IntToStr(a); // занести значение Label Label2.Caption := IntToStr(b); end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); Rewrite(f); // создать файл (перезаписать) write(f, a,b); // записать в него 2 переменные a и b CloseFile(f); // Закрыть файл end; end. --------- Самурай без меча подобен самураю с мечём, только без меча..

Ответ отправил: SHERRY (статус: 8-ой класс) Ответ отправлен: 25.04.2008, 23:11 Оценка за ответ: 4 Комментарий оценки: Спасибо, будет от чего отталкиваться..

Вопрос № 134.279

Здравствуйте, уважаемые эксперты. Вот мой вопрос: Допустим, я создал форму, расположил на ней кнопку SpeedButton1. В обработчике OnClick этой кнопки вписал ссылку на сайт. Я никогда не пользовался с .ini-файлом. Как создать его, и как сделать так, чтобы можно было открывать его, и там указывать ссылку на сайт, которая будет использоваться в программе по нажатию на SpeedButton1? Пожалуйста, ответьте поподробнее. Заранее Вам большое спасибо. Георгий. Приложение: procedure TForm1.SpeedButton1Click(Sender: TObject); begin // Ссылка на сайт ShellExecute(Handle, nil, 'http://www.site.com ', nil, nil, SW_SHOW); end;

Отправлен: 26.04.2008, 19:22 Вопрос задал: Чечин Георгий Александрович (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Абельхарисов Руслан / Marked One Здравствуйте, Чечин Георгий Александрович! В приложении код с коментариями. На форме SpeedButton1 и Button1 Про Ini можете прочитать тут и тут. Удачи!!! Исправлены длинные ссылки. ----- ∙ Отредактировал: Николай Владимирович / Н.В. (Профессор) ∙ Дата редактирования: 27.04.2008, 07:45 Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, IniFiles, ShellAPI, StdCtrls; type TForm1 = class(TForm) SpeedButton1: TSpeedButton; Button1: TButton; procedure SpeedButton1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Site: string; //В этой переменной мы храним адрес сайта ini: TIniFile; //Переменная для работы с файлом implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); //Кнопка ввода адреса сайта begin {С помощью функции InputBox запрашиваем и получаем адрес сайта Функция объявлена в модуле 'Dialogs' function InputBox(const ACaption, APrompt, ADefault: string): string; ACaption - заголовок окна ввода APromt - Строка около поля ввода Adefault - значение по умолчанию} Site:=InputBox('Введите адрес', 'Адрес сайта: ', 'http://www.site.ru'); //открываем файл ini:=TIniFile.Create(ExtractFilePath(paramstr(0))+'inifile.ini'); //сохраняем в файл ini.WriteString('www', 'site', site); //освобождаем память ini.Free; end; //запускается при запуске программы procedure TForm1.FormCreate(Sender: TObject); begin //открываем файл ini:=TIniFile.Create(ExtractFilePath(paramstr(0))+'inifile.ini'); //читаем адрес, он находится в секции www, имя парамтра - site site:=ini.ReadString('www', 'site', 'http://www.site.com'); //освобождаем файл ini.Free; end; //А это запуск страницы procedure TForm1.SpeedButton1Click(Sender: TObject); begin //Вместо Site указано PChar(site), потому что WinAPI функции используют не String, а PChar(В Delphi.NET будет PAnsiChar(site) ShellExecute(Handle, nil, PChar(Site), nil, nil, SW_SHOW); end; end. procedure TForm1.SpeedButton1Click(Sender: TObject); begin ShellExecute(Handle, nil, PChar(Site), nil, nil, SW_SHOW); end; end.

Ответ отправил: Абельхарисов Руслан / Marked One (статус: 9-ый класс) Ответ отправлен: 26.04.2008, 21:04

Отвечает: Моисеева Наталья Павловна Здравствуйте, Чечин Георгий Александрович! Создание ini-файла - это создание простого текстового файла с расширением ini. Например создадим NameFile.ini. Затем в файле создадим секция. Секцию можно назвать как угодно, лишь бы было понятно вам. Например NameWWW. Секция заключают в квадратные скобки, т.е. [NameWWW]. Затем ниже описываем необходимые переменные. В данном случаем название сайте. Называем эту переменную, к примеру, sait и пишем sait=http://www.site.com. Сохраняем файл в директории проекта. В программе в uses прописываем IniFiles. В константе прописываем: const S_INIFILE = '.NameFile.INI'; S_INISECTION = 'NameWWW'; Затем в процедуре нажатия на кнопку прописываем: procedure TForm1.SpeedButton1Click(Sender: TObject); var MyIniFile: TIniFile; s:string; begin MyIniFile := TIniFile.Create(S_INIFILE); with MyIniFile do begin s:=ReadString(S_INISECTION,'sait','.'); //в s храним значение считанной переменной sait из ini-файла end; MyIniFile.Free; ShellExecute(Handle, nil, PChar(s), nil, nil, SW_SHOW); end;

Ответ отправила: Моисеева Наталья Павловна (статус: 1-ый класс) Ответ отправлен: 27.04.2008, 12:39 Оценка за ответ: 5 Комментарий оценки: Спасибо. Попробую. Большое спасибо.

Вопрос № 134.301

Здравствуйте! Как сделать программу которая соединялась бы с определенным компьютером в локальной сети(ip 10.20.50.205) и брала системное время этого компьютера и устанавливала его на компьютере с которого была запущена. Помогите кодом пожалуйста и любой информацией на эту тему. Благодарю за внимание.

Отправлен: 26.04.2008, 22:40 Вопрос задал: rewer8 (статус: Студент) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Drbear Здравствуйте, rewer8! Попробуйте такой вариант: WinExec('net time \127.0.0.1 /SET /Y); Надеюсь, помог Вам.

Ответ отправил: Drbear (статус: 9-ый класс) Ответ отправлен: 28.04.2008, 09:41 Оценка за ответ: 5 Комментарий оценки: Спасибо! Попробую после праздников Чувствую что должно сработать С праздником 1 МАЯ!

Вопрос № 134.330

Здравствуйте! При решении задачи у меня появился вопрос: как можно определить четность вещественного числа! или подскажите как можно решить задачу, в которой дается функция, явно резудьтат которой будет вещественен, и такой же аргумент!

Отправлен: 27.04.2008, 10:40 Вопрос задал: KOTik (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, KOTik! Подобный вопрос уже когда-то поднимался на Портале... Четность в теории чисел — способность целого числа делиться без остатка на 2. (wikipedia.org) Таким образом для вещественных чисел нет понятия четности => Ваша задача некорректна. Можно сделать следующее: 1. отбросить дробную часть числа функцией trunc (возвращает целую часть вещественного числа) и проверить является ли целое число четным с помощью целочисленного деления на 2. Выглядеть будет так: var a : real; begin   if trunc(a) mod 2 = 0 then     // целая часть числа четная   else     // целая часть числа нечетная end; 2. если известно количество символов в дробной части числа, то м ожно умножить на 10n где n - количество символов в дробной части. У получившегося числа отбросить дробную часть и проверить целую на четность как в первом примере. Если будут вопросы, пишите в мини-форум. Удачи!

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 27.04.2008, 12:20 Оценка за ответ: 5 Комментарий оценки: Спасибо за исчерпывающий ответ!Я так и предполагал, но уж какую задачу дали...

Вопрос № 134.430

Здравствуйте уважаемые эксперты. Я создаю игру в кубик. Играют двое, ход поочереди. ход состоит в том что игрок подбрасывает кубик до тех пор,пока не решит остановить игру или не выпадет 0. Если игрок останавливает игру,сумма всех очков за данный ход суммируется и ход передается, если выпадает 0 то все очки за этоот ход "сгорают" и ходит другой игрок. Вопрос в том,как реализовать передачу хода? Подскажите пожалуйста

Отправлен: 27.04.2008, 20:29 Вопрос задал: Serpenser (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Моисеева Наталья Павловна Здравствуйте, Serpenser! На сколько я поняла вам необходимо что бы игрок играл и в какой то момент передал ход другому. После втрой игрок поиграм и опять передал ход первому. И так могут играть сколько угодно. Также условие останова и передачи хода если выпал ноль. То процедуры см в приложении :) Удачи дописать программу. Приложение: // процедура хода procedure TForm1.Button1Click(Sender: TObject); var k:integer; begin randomize; //генератор случайных чисел k:=random(5); // генерируем случайное число Label2.Caption:='Выпало '+IntToStr(k); // выводим на экран выпавшее число // если не выпал 0, то считаем сумму очков if k<>0 then ochki:=ochki+k else begin // если выпал 0, то обнуляе очки ochki:=0; // выводим на экран результат игры текущего игрока if igrok=1 then Label6.Caption:=IntToStr(ochki) else Label7.Caption:=IntToStr(ochki); // записываем в массив для текущего игрока его очки igra[igrok]:=ochki; // меняем номер игрока if igrok=1 then igrok:=2 else igrok:=1; // считываем предыдущее число очков ochki:=igra[igrok]; // выводим сообщение о том какой игрок сейчас играет Label1.Caption:='Ходит '+IntToStr(igrok)+' игрок'; end; // выводим количество очков Label3.Caption:='Итого очков '+IntToStr(ochki); end; // проседура создания формы procedure TForm1.FormCreate(Sender: TObject); begin // по умолчанию делаем, что начинает играть 1 игрок и у него 0 очков igrok:=1; ochki:=0; // выводим информацию Label1.Caption:='Ходит '+IntToStr(igrok)+' игрок'; Label3.Caption:='Итого очков '+IntToStr(ochki); Label2.Caption:='Выпало 0' end; // кнопка передачи хода procedure TForm1.Button2Click(Sender: TObject); begin // выводим на экран результат игры игрока который передал ход if igrok=1 then Label6.Caption:=IntToStr(ochki) else Label7.Caption:=IntToStr(ochki); // записываем его заработтанное число очков igra[igrok]:=ochki; // меняем игрока if igrok=1 then igrok:=2 else igrok:=1; // считываем его заработанное количество очков за предыдущую игру ochki:=igra[igrok]; // выводим сообщение о том какой игрок сейчас играет и всю информацию по нему Label1.Caption:='Ходит '+IntToStr(igrok)+' игрок'; Label3.Caption:='Итого очков '+IntToStr(ochki); Label2.Caption:='Выпало 0' end;

Ответ отправила: Моисеева Наталья Павловна (статус: 1-ый класс) Ответ отправлен: 28.04.2008, 05:49

Вопрос № 134.454

На форме в Delphi7 при помощи метода create создаются кнопки Tbutton как во время выполнения программы присвиить им уникальный код для каждой кнопки???????????? HELP please!!!!

Отправлен: 28.04.2008, 00:34 Вопрос задал: NeoAlexUA (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Виктор Пырлик Здравствуйте, NeoAlexUA! В приложении показан пример.. Событие кнопки - это обычная процедура, просто связанная с этой кнопкой. А потому, вы можем сами назначать эти события, которые опишем.. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure FormCreate(Sender: TObject); private { Private declarations } public procedure BtnClick1(Sender: TObject); // произвольные, наши процедуры procedure BtnClick2(Sender: TObject); procedure BtnClick3(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.BtnClick1(Sender: TObject); var s:String; begin s := Format('Нажата кнопка - %s',[(Sender as TButton).Caption]); MessageBox(0,PChar(s),'Первая функция',MB_OK); end; procedure TForm1.BtnClick2(Sender: TObject); var s:String; begin s := Format('Нажата кнопка - %s',[(Sender as TButton).Caption]); MessageBox(0,PChar(s),'Вторая функция',MB_OK); end; procedure TForm1.BtnClick3(Sender: TObject); var s:String; begin s := Format('Нажата кнопка - %s',[(Sender as TButton).Caption]); MessageBox(0,PChar(s),'Третия функция',MB_OK); end; procedure TForm1.FormCreate(Sender: TObject); begin Button1.OnClick := BtnClick1; //просто назначаем Button2.OnClick := BtnClick2; Button3.OnClick := BtnClick3; end; end. --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Профессионал) Россия, Свердловская обл. Тел.: +7(34386) 53-5-98 ICQ: 490191733 ---- Ответ отправлен: 28.04.2008, 06:25

Отвечает: PavelGM Здравствуйте, NeoAlexUA! TЕсли вам нужен единый обработчик для всех кнопок и хотите в нем отличать кнопки, то можно воспользоваться свойством Tag и присваивать ему уникальный код при создании кнопки, а потом распознавать его в обработчике, например так: procedure TForm1.BtnClick(Sender: TObject); begin case (Sender as TButton).Tag of 1 : ShowMessage('Button 1'); 2 : ShowMessage('Button 1'); end; end;

Ответ отправил: PavelGM (статус: Студент) Ответ отправлен: 28.04.2008, 10:38

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.91 pre 5.0 RC1 от 13.04.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru