при чтении из типизированного файла, читается строковое поле записи.
при сохранении делается rewrite файла с именем соотв. этому строковому полю.
если редактор открывает уже сохраненный файл, а затем пытается его сохранить под тем же именем, то выдается ошибка Invalid file name.
в чем бага?
| Код |
type STAT = record
MAX,
EXT:integer;
end;
type TWeapon = record
Name:ShortString;
Weight,
Cost,
Fire_Cost:longint;
Damage:STAT;
Clip:STAT;
Clip_Type,
Range,
Ache_Factor:longint;
Comm:ShortString;
end;
var
Form1: TForm1;
Edits:array[1..12] of TEdit;
Labels:array[1..12] of TLabel;
k:TWeapon;
|
//процедура чтения:
| Код |
procedure TForm1.N4Click(Sender: TObject);
var f: file of TWeapon;
s:string;
begin
if opendialog1.Execute then
begin
assignfile (f,opendialog1.FileName);
reset(f);
read(f,k);
closefile(f);
end;
Edits[1].Text := k.Name;
edits[2].Text := inttostr (k.Weight);
edits[3].Text := inttostr (k.Cost);
edits[4].Text := inttostr (k.Damage.EXT);
edits[5].Text := inttostr (k.Damage.MAX);
edits[6].Text := inttostr (k.Clip.MAX);
edits[7].Text := inttostr (k.Clip.EXT);
edits[8].Text := inttostr (k.Clip_Type);
edits[9].Text := inttostr (k.Range);
edits[10].Text := inttostr (k.Ache_Factor);
edits[11].Text := inttostr (k.Fire_Cost);
edits[12].Text := k.Comm;
s:= k.Name;
end;
|
процедура записи, после которой выдается ошибка, если сохраняется в уже существующий файл.
| Код |
procedure TForm1.N5Click(Sender: TObject);
var f:file of TWeapon;
begin
k.Name := edits[1].Text;
k.Weight := strtoint (edits[2].Text);
k.Cost := strtoint (edits[3].Text);
k.Damage.EXT := strtoint (edits[4].Text);
k.Damage.MAX := strtoint (edits[5].Text);
k.Clip.MAX := strtoint (edits[6].Text);
k.Clip.EXT := strtoint (edits[7].Text);
k.Clip_Type := strtoint (edits[8].Text);
k.Range := strtoint (edits[9].Text);
k.Ache_Factor := strtoint (edits[10].Text);
k.Fire_Cost := strtoint (edits[11].Text);
k.Comm := edits[12].Text;
assignfile (f,'Weapon\'+k.Name+'.wpn');
rewrite (f);
write(f,k);
closefile(f);
end;
|
|
)
