[kate_miss]

***************код****************

Код:

type
TSotrydnik= record
fio:string[15];
god:integer;
obr:string[15];
inyaz:string[15];
stepen:string[10];
komp:string[10];
stazh:integer;
recom:string[10];
end;

var
Form1: TForm1;
Mass:array [1..300] of TSotrydnik;
masscnt:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn2.Hide;
masscnt:=0;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
//Memo1.Lines.Add('-------ФИО-------Год рождения-------Образование-------Ин.яз-------Владение-------Знание ПК-------Стаж-------Рекомендации');
//Memo1.Lines.Add('------------------------------------------------------------------------------------------------------------------------');
masscnt:=masscnt+1;
Mass[masscnt].fio:=Edit1.Text;
Mass[masscnt].god:=StrToInt(Edit2.Text);
Mass[masscnt].obr:=Edit3.Text;
Mass[masscnt].inyaz:=Edit4.Text;
Mass[masscnt].stepen:=Edit5.Text;
Mass[masscnt].komp:=Edit6.Text;
Mass[masscnt].stazh:=StrToInt(Edit7.Text);
Mass[masscnt].recom:=Edit8.Text;
Memo1.Lines.Add(Mass[masscnt].fio+' '+IntToStr(Mass[masscnt].god)+' '+Mass[masscnt].obr+' '+
Mass[masscnt].inyaz+' '+Mass[masscnt].stepen+' '+Mass[masscnt].komp+' '+IntToStr(Mass[masscnt].stazh)+' '+Mass[masscnt].recom);
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Edit7.Text := '';
Edit8.Text := '';
Edit1.SetFocus;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
if OpenDialog1.Execute then
begin
masscnt:=0;
AssignFile(f,OpenDialog1.FileName);
Reset(f);
while not eof(f) do
begin
masscnt:=masscnt+1;
Read(f,Mass[masscnt]);
end;
CloseFile(f);
end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
Form1.Close;
//CloseFile(f);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var i:integer;
f:FILE of TSotrydnik;
begin
if SaveDialog1.Execute then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
for i:=1 to masscnt do
write(f,Mass[i]);
CloseFile(f);
end;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
//OpenDialog1.Title := 'Создать новый файл';
if OpenDialog1.Execute then
begin
AssignFile(f,OpenDialog1.FileName);
Rewrite(f);
BitBtn2.Show; //Сделать видимой кнопку "Ввести запись"
end;

{var i:integer;
begin
Memo1.Lines.Add('-------ФИО-------Год рождения-------Образование-------Ин.яз-------Владение-------Знание ПК-------Стаж-------Рекомендации');
for i:=1 to Masscnt do
begin
Memo1.Lines.Add(Mass[i].fio+' '+IntToStr(Mass[i].god)+' '+Mass[i].obr+' '+
Mass[i].inyaz+' '+Mass[i].stepen+' '+Mass[i].komp+' '+IntToStr(Mass[i].stazh)+' '+Mass[i].recom);
end;
end;}
end;
end.

ВОТ ЧТО У МЕНЯ ПОКА ПОЛУЧИЛОСЬ.......только вот что-то открытие не работает ------ вернее в memo данные не отображаются((((((((

и вот эти критерии.....в заданиии так не ясно...что я даже не понимаю как их сделать.....!!!!!!!!
help me)))))



и еще помогите сделать красивый вывод данных в memo.......не получается..все как то в разброс))))))