Другие языки программирования и технологии
помогите разобраться (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.
- Создаешь новый проект с двумя 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.
> при следующем открытии проги там так и оставалась 1
> при повторном открытии снова 0
Вдумайся в свой бред.
> при повторном открытии снова 0
Вдумайся в свой бред.
Алибек Тишканов
я не туда написал)) надо было в коммент к Ice
В обработчике нажатий делай Label.Caption:="то значение которое надо".
Похожие вопросы
- Помогите разобраться с кодом Delphi
- помогите пожалуйста, Delphi
- помогите по Delphi (10 баллов)
- Помогите с Delphi! Умоляю!
- Прошу помочь разобраться, пояснить некоторые пункты требования ТИПОГРАФИИ.
- Помогите с delphi там мало)
- Помогите разобраться, Pascal!
- помогите программисты!) delphi 7
- помогите разобраться с++
- Пожалуйста помогите разобраться с даним кодом C++. Тема : Односвязание списки