unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
StringGrid1: TStringGrid;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
type
TMember = record
Name : string[50];
eMail : string[30];
Posts : LongInt;
end;
var Members : array[1..50] of TMember;
var F : file of TMember;
{$R *.dfm}
procedure ChangeEMail
(const RecN : integer; const NewEMail : string);
var DummyMember : TMember;
begin
Seek(F, RecN);
Read(F, DummyMember);
DummyMember.Email := NewEMail;
Seek(F, RecN);
Write(F, DummyMember);
end;
procedure TForm1.Button1Click(Sender: TObject);
var F : file of TMember;
member:Tmember;
i:integer;
st:string;
begin
AssignFile(F,'members.dat');
Rewrite(F);
try
for i:= 1 to 50 do
Write (F, Members[i])
finally
CloseFile(F);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
F:file of TMember;
member:Tmember;
begin
AssignFile(F,'members.dat');
Reset(F);
try
while not Eof(F) do begin
Read (F, Member);
end;
finally
CloseFile(F);
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('members.dat');
end;
end.
15.06.2009, 12:49
Помогите пожжжалусто ! С примитивной БД !
Линейный вид
