dosya oluşturmada yardım??

[mcyagar]

delphi kullanmaya yeni başladım ve Delphi'de hazırladığım projeyi harddiske dosya olarak kaydetmek, bu dosyayı gerektiğinde kullanmak veya üzerinde değişiklik yapabilmek istiyorum..
Elimdeki döküman assignfile komutunu kullanmış ancak file of , reset , gibi kodlar da var.. işin içinden çıkamadım .. . Bi örnek kod yollayıp yardımcı olabilirmisiniz..
[/b]

[mussimsek]

assignfile reset

olarak aratın, forumda örnek kodlar var.

Kolay gelsin.

[vedatkaba]

Delphide oluşan projeyi nasıl dosyalacaksın anlamadım...verdiğin örneklerde ki dosya komutlar veritabanı gibi veri saklamak içi açılan ve kapatılan dosyalardır.bununla ilgili örnek olursa aşağıda ki gibi

Rastgele erişimli dosyaya örnek:

Kod: Tümünü seç

type
personel=record
ad:string[20];
soyad:string[20];
end;
var
form1:Tform1;
pers_dosya:file of personel;
p:personel;
implementation
{$R *.dfm}
procedure oku;
begin
if eof(pers_dosya) then
begin {dosya sonuna gelindiyse}
form1.edit1.text:='';
form1.edit2.text:='';
end
else
begin {dosya sonu değilse kaydı oku ve göster}
read(pers_dosya,p)
form1.edit1.text:=p.ad;
form1.edit2.text:=p.soyad;
end;
end;
procedure yaz;
begin
p.ad:=form1.edit1.text;
p.soyad:=form1.edit2.text;
write(pers_dosya,p);
end;
procedure Tform1.formcreate(sender:Tobject);
begin
assignfile(pers_dosya,'c:\deneme.txt);
if not fileexists('c:\deneme.txt')  then
begin  {dosya yoksa oluştur}
rewrite(pers_dosya);
closefile(pers_dosya);
end;
reset(pers_dosya) ;dosyayı aç
oku;end;

gibiiiiiiiiii