text dosyadan okuma ?

[command]

Kod Seç Genişlet

type kayit = record
adi,soyadi:string[30];
telefon:string[25];
mail:string[40];
end;


bu şekilde oluşturduğum kayıtı

Kod Seç Genişlet


procedure giris;
begin
clrscr;
assign(dosya,'veri.txt');
append(dosya);
write('ADI :');
readln(adres.adi);
write('Soyadı :');
readln(adres.soyadi);
write('Telefon :');
readln(adres.telefon);
write('E-posta :');
readln(adres.mail);
textcolor(red);
write('Onay E/H');
readln(onay);
if onay='e' then
begin
writeln(dosya,adres.adi:02,adres.soyadi:02,adres.telefon:02,adres.mail:02);
writeln('Eklendi...');
close(dosya);
end
else
begin
writeln('Eklenmedi...');
close(dosya);
end;
readkey;
end;


bu şekilde kayderiyorum

ama okumak için ne yapmam lazım bilmiyorum kaynak bulamadım bilen varsa lütfen yardımcı olsun oturup ağlayacam

[agritux]

Ben hiç anlamam ama uzantısını doğru kaydettiysen, özelliklerine girip izinler kısmından program olarak çalışmasına izin ver gibi bir seçenek var. Onu deneyebilirsin

[command]

Ben hiç anlamam ama uzantısını doğru kaydettiysen, özelliklerine girip izinler kısmından program olarak çalışmasına izin ver gibi bir seçenek var. Onu deneyebilirsin

tam anlatamadım derdimi sanırsam bu pascal kodyla bir text dosyası oluşturdum ve içine kayıtları girdim ve şimdi aynı programa başka bir procedure ekleyip girdiğim kayıtları okutmam lazım ?