Другие языки программирования и технологии

помогите разобраться (delphi)

на форме расположены две кнопки button1 и button2 и label1, caption='0' . как сделать чтобы при нажатии на кнопку button1 в лейбле появлялась надпись "1" и при следующем открытии проги там так и оставалась 1, аналогично для button2 чтобы появлялась надпись '2'
Всё очень просто! ) )
- Создаешь новый проект с двумя button'ами и одним label'ом
- дальше мой код (всё, что я написал - постарался прокомментить) :

unit   Unit1;

interface

uses
    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,
    Dialogs,   StdCtrls,
    inifiles   //   подключение   модуля   файлов   конфигурации
    ;

type
    TForm1   =   class(TForm)
        Button1:   TButton;
        Button2:   TButton;
        Label1:   TLabel;
        procedure   Button1Click(Sender:   TObject);
        procedure   Button2Click(Sender:   TObject);
        procedure   FormCreate(Sender:   TObject);
    private
        {   Private   declarations   }
    public
        {   Public   declarations   }
    end;

var
    Form1:   TForm1;

implementation
const
    inifilename='ConFigg.ini';     //     описание   имени   файла   конфигурации
var
ini: tinifile;                                 //     переменная   файла   конфигурации
{$R   *.dfm}

procedure   TForm1.Button1Click(Sender:   TObject); // обработчик нажатия на button1
begin                         //   записываем   в   файл   1
    label1.Caption:='1';
    Ini:=TIniFile.Create(IniFileName);
    Ini.WriteString('DAta','label',label1.Caption);
    Ini.Destroy;
end;

procedure   TForm1.Button2Click(Sender:   TObject); // обработчик нажатия на button2
begin                         //   записываем   в   файл   2
    label1.Caption:='2';
    Ini:=TIniFile.Create(IniFileName);
    Ini.WriteString('DAta','label',label1.Caption);
    Ini.Destroy;
end;

procedure   TForm1.FormCreate(Sender:   TObject); // событие создания формы
begin
    Ini:=TIniFile.Create(IniFileName);
    label1.Caption:=Ini.ReadString('DAta','label','0');   //   чтение   значения   из   файла   конфигурации
    Ini.WriteString('DAta','label','0');                             //   присваиваем   новое   значение   -   0
    Ini.Destroy;
end;

end.
Микола Полтавцев
Микола Полтавцев
11 528
Лучший ответ
> при следующем открытии проги там так и оставалась 1

> при повторном открытии снова 0

Вдумайся в свой бред.
Алибек Тишканов я не туда написал)) надо было в коммент к Ice
В обработчике нажатий делай Label.Caption:="то значение которое надо".
Ruslan Zinnurov
Ruslan Zinnurov
19 974