![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 10
|
![]()
я написал игру (Орел/Решка), помогите сделать запись рекордов как например в сапере.Заранее спасибо.Если будет возможность то отправте ответ ещё и на ящик komar1991@yandex.ru
|
![]() |
![]() |
![]() |
#2 |
220400
Форумчанин
Регистрация: 21.05.2010
Сообщений: 726
|
![]()
объявляете глобальную переменную, в которую заносите количество отгадываний, и затем записываете значение этой переменной в какой-нибудь файл (текстовый, например)
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель. |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 10
|
![]()
можно примерно код набросать мне так проще будет понять нюансы!Просто я начинающий и по примеру мне проще разбираться!
|
![]() |
![]() |
![]() |
#4 |
220400
Форумчанин
Регистрация: 21.05.2010
Сообщений: 726
|
![]()
выложите свой пример, и так нам будет проще - от чего то отталкиваться.
Cерьёзной помощи не ждите - помогаю в перерывах на "перекур".
Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель. |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 10
|
![]()
вот код
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, Menus; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Button1: TButton; Button2: TButton; Image1: TImage; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; MainMenu1: TMainMenu; N1: TMenuItem; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; k,i:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin randomize; i:=random(2); if i= 1 then begin Label1.Caption:='Орел'; if k<>0 then k:=k+k else k:=2; end else begin Label1.Caption:='Решка'; k:=0; end; label2.Caption:='Ваш выигрыш '+inttostr(k); end; procedure TForm1.Button2Click(Sender: TObject); begin randomize; i:=random(2); if i= 1 then begin Label1.Caption:='Решка'; if k<>0 then k:=k+k else k:=2; end else begin Label1.Caption:='Орел'; k:=0; end; label2.Caption:='Ваш выигрыш '+inttostr(k); end; end. |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 02.09.2010
Сообщений: 52
|
![]()
Еще лучше сделать как в телефонном справочнике. Данные записываются в listbox. Выбор фамилии рекордсмена в Combo Box. А информация вводится с помощью edit-ов. Две кнопки: новая и очистить.
|
![]() |
![]() |
![]() |
#7 |
Игрок
Форумчанин
Регистрация: 29.10.2006
Сообщений: 367
|
![]()
в StringGrid выводи
Жизнь всегда игра. Но смерть - не всегда поражение.
#define true (Math.random()>0.5) //Удачной отладки ![]() |
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 15.04.2010
Сообщений: 10
|
![]()
Всем огромное спасибо , получилось!
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Скриншот в игре | Marsik | Общие вопросы Delphi | 17 | 14.01.2014 03:03 |
Объекты в игре | ZotaC | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 2 | 03.03.2010 21:15 |
События в игре | ZotaC | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 5 | 20.02.2010 20:32 |
Ресурсы к игре | Xanex | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 7 | 19.10.2009 17:23 |
Препятствия в игре. | Манжосов Денис :) | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 2 | 07.06.2008 14:14 |