Отправляет email-рассылки с помощью сервиса Sendsay

Элементарный код на Delphi

Подписаться Бесплатная новостная рассылка Подписчиков 20 RSS
  Август 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Открыта: 12-08-2003

Автор
Ирина

Статистика

20 подписчиков
0 за неделю
←   Все выпуски   →

Элементарный код на Delphi


Информационный Канал Subscribe.Ru 
Вот наш первый исходник, который, как можно выразиться - проще не куда! Итак,
давайте посмотрим, что же это за программа и из чего она состоит.

На форме размещаем Memo1, Edit1, Button1, Button2. Из Edit1 текст копируется
в Memo1 при нажатии на Button1, при нажатии на Button2 программа автоматически
закрывается.

Название кнопки изменяется свойством Caption, можно изменять название, как в
инспекторе объектов, так и программным образом, например: 
Form1.Button1.Caption:='OK';

Так же, мы сохраняем информацию из Memo1 в файл "1.txt".
Memo1.Lines.SaveToFile('1.txt');

Если мы копируем информацию из Edit1 в Memo1 при помощи 
form1.Memo1.Text:=form1.Edit1.Text;
то у нас строка в Memo1 будет постоянно зменятся,

Memo1.Lines.Add(edit1.Text);
будет добавлятся каждый раз новой строчкой.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
{изменяем название кнопки на ОК}
Form1.Button1.Caption:='OK';
{копируем информацию из Memo1 в Edit1}
Memo1.Lines.Add(edit1.Text);
{сохраняем в файл Memo1}
Memo1.Lines.SaveToFile('1.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{закрываем программу}
Close;
end;
end.

Удачных Вам экспериментов!
Irina_Kholtobina@KhakasNet.ru
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное