Щозирда инсоният фаолиятининг барча жабщаларига шахсий электрон щисоблаш машиналари (шэщм) шахдам =адамлар билан кириб бормо=д



Yüklə 1,14 Mb.
səhifə28/36
tarix26.11.2023
ölçüsü1,14 Mb.
#136599
1   ...   24   25   26   27   28   29   30   31   ...   36
DELFI

7.6-rasm.
4.5-listing.
unit rd_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Button2: TButton;
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile; // fayl
fName: String[80]; // fayl nomi
buf: String[80]; // fayldan o'qish uchun bufer
begin
fName := Edit1.Text;
AssignFile(f, fName);
{$I-}
Reset(f); // o'qish uchun ochish
{$I+}
if IOResult <> 0 then
begin
MessageDlg('Faylga murojaatda xatolik ' + fName, mtError,[mbOk],0);
exit;
end;
Memo1.clear;
// fayldan o'qish
while not EOF(f) do
begin
readln(f, buf); // satrlarni fayldan oq'ish
Memo1.Lines.Add(buf); // Memo1 maydoniga satrlarni qo'shish
end;
CloseFile(f); // faylni yopish
end;
// faylga yozish
procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile; // fayl
fName: String[80]; // fayl nomi
i: integer;
begin
fName := Edit1.Text;
AssignFile(f, fName);
Rewrite(f); // qayta yozish uchun ochish
// faylga yozish
for i:=0 to Memo1.Lines.Count do // satrlar noldan raqamlanadi
writeln(f, Memo1.Lines[i]);
CloseFile(f); // faylni yopish
MessageDlg('Ma`lumotlarni faylga yozish ',mtInformation,[mbOk],0);

Yüklə 1,14 Mb.

Dostları ilə paylaş:
1   ...   24   25   26   27   28   29   30   31   ...   36




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©muhaz.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin