[анька]

пожалуйста!
дана программа...необходимо добавить кнопку которая бы выполняла действия над файлами в программе ...помогите пожалуйста!!!!!

Код:

unit RewAp_;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   i: integer;
begin
   fName := Edit1.Text;
   AssignFile(f, fName);
 
   Rewrite(f);  // открыть для перезаписи
 
   // запись в файл
   for i:=0 to Memo1.Lines.Count do // строки нумеруются с нуля
          writeln(f, Memo1.Lines[i]);
 
   CloseFile(f); // закрыть файл
 
   MessageDlg('Данные ЗАПИСАНЫ в файл ',mtInformation,[mbOk],0);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   i: integer;
begin
   fName := Edit1.Text;
   AssignFile(f, fName);
 
   Append(f);  // открыть для добавления
 
   // запись в файл
   for i:=0 to Memo1.Lines.Count do // строки нумеруются с нуля
          writeln(f, Memo1.Lines[i]);
 
   CloseFile(f); // закрыть файл
 
   MessageDlg('Данные ДОБАВЛЕНЫ в файл ',mtInformation,[mbOk],0);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
const
   SIZE=5;  // размер массива
var
   a:array[1..SIZE]of string[30]; // массив
   n: integer; // количество строк, введенных в поле Memo
   i:integer;  // индекс элемента массива
   st:string;
begin
   n:=Memo1.Lines.Count;
   if n = 0 then
      begin
        ShowMessage('Исходные данные не введены!');
        Exit;   // выход из процедуры обработки события
      end;
 
   // в поле Memo есть текст
   if n > SIZE then
      begin
        ShowMessage('Количество введенных строк превышает размер массива.');
        n:=SIZE; // будем вводить только первые SIZE строк
      end;
   for i:=1 to n do
      a[i]:=Form1.Memo1.Lines[i-1]; // строки Memo пронумерованы с нуля
 
   // вывод массива в окно сообщения
   if n > 0 then
      begin
         st:='Введенный массив:'+#13;
         for i:=1 to n do
            st:=st+IntToStr(i)+'  '+ a[i]+#13;
         ShowMessage(st);
      end;
end;
 
 
 
procedure TForm1.Button3Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   buf: String[80];   // буфер для чтения из файла
 
begin
   fName := Edit1.Text;
   AssignFile(f, fName);
 
   {$I-}
   Reset(f);  // открыть для чтения
   {$I+}
   if IOResult <> 0 then
     begin
       MessageDlg('Ошибка доступа к файлу ' + fName,
                   mtError,[mbOk],0);
       exit;
     end;
 
   // чтение из файла
   while not EOF(f) do
     begin
        readln(f, buf);       // прочитать строку из файла
        Memo1.Lines.Add(buf); // добавить строку в поле Memo1
     end;
 
   CloseFile(f); // закрыть файл
end;
 
procedure TForm1.Button5Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   buf: String[80];   // буфер для чтения из файла
   i:integer;  // индекс элемента массива
begin
    fName := Edit1.Text;
   AssignFile(f, fName);
 
   Append(f);  // открыть для добавления
 
   //Здесь необходимо внести ваши изменения
 
   // запись в файл
   for i:=0 to Memo1.Lines.Count do // строки нумеруются с нуля
          writeln(f, Memo1.Lines[i]);
 
   CloseFile(f); // закрыть файл
 
   MessageDlg('Данные ДОБАВЛЕНЫ в файл ',mtInformation,[mbOk],0);
 
end;
 
end.

Админ: Пользуемся тегами для оформления кода!

[M.A.D.M.A.N.]

А в чем собс-но проблема?

Код:

Button := CreateWindowEx( WS_EX_STATICEDGE, 'Button', nil, BS_ICON or WS_VISIBLE or WS_CHILD,
                              10, 15, 40, 40, Wnd, BTN_APPLICATION, hInstance, nil );

[Pyro]

страшно жить...