ذخیره و بازیابی اطلاعات رکورد ها در فایل در پاسکال

[مهدی رحیم زاده]

کسی نمی دونه که چطور باید اطلاعات تعدادی رکورد رو توی فایل ذخیره کرد . و بعد بشه اونا رو ویرایش کرد . اگر کسی توابعی برای این کار داره لطف کنه و سورس اون رو برام بزاره . خیلی لازمشون دارم . ممنون .

[حمیدرضاصادقیان]

سلام.اگر شما مجموعه ای از رکوردها رو در یک آرایه داری با یک حلقه از ابتدا تا انتها محتویات رکوردها رو در فایلها بنویسید.اینم نمونه کدش برای نوشتن در فایل text.


var

F1, F2: TextFile;
Ch: Char;
begin
if OpenDialog1.Execute then begin
AssignFile(F1, OpenDialog1.Filename);
Reset(F1);
if SaveDialog1.Execute then begin
AssignFile(F2, SaveDialog1.Filename);
Rewrite(F2);
while not Eof(F1) do
begin
Read(F1, Ch);
Write(F2, Ch);
end;
CloseFile(F2);
end;
CloseFile(F1);
end;

end;

[Vahid_moghaddam]

فایلهای دارای نوع:



type
PhoneEntry = record
FirstName, LastName: string[20];
PhoneNumber: string[15];
Listed: Boolean;
end
PhoneList = file of PhoneEntry;

و برای ایجاد فایلها، نوشتن، خواندن، اضافه و حذف در فایلها می توانید به مثالهای دستورات زیر در دلفی مراجعه کنید:



assignfile
reset
rewrite
seek
filepos
filesize
truncate
closefile
......

[مهدی رحیم زاده]

ببینید من اصلا با دلفی کار نکردم . اگر میشه کد تابع Save و Edit رو با پاسکال برام بزارید .
ممنون