рекорды в игре

[komar1991]

я написал игру (Орел/Решка), помогите сделать запись рекордов как например в сапере.Заранее спасибо.Если будет возможность то отправте ответ ещё и на ящик komar1991@yandex.ru

[Sparkman]

объявляете глобальную переменную, в которую заносите количество отгадываний, и затем записываете значение этой переменной в какой-нибудь файл (текстовый, например)

[komar1991]

можно примерно код набросать мне так проще будет понять нюансы!Просто я начинающий и по примеру мне проще разбираться!

[Sparkman]

выложите свой пример, и так нам будет проще - от чего то отталкиваться.

[komar1991]

вот код
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.

[_Санек_]

Еще лучше сделать как в телефонном справочнике. Данные записываются в listbox. Выбор фамилии рекордсмена в Combo Box. А информация вводится с помощью edit-ов. Две кнопки: новая и очистить.

[Gambler]

в StringGrid выводи

[komar1991]

Всем огромное спасибо , получилось!