Файлдағы
мәліметтерді оқу.
Мақсаты:
Файлдардармен және диалогты терезелермен
жұмыс дағдыларын қалыптастыру.
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;
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);
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;
end.