pascalda dosya oluşturma
Uses crt;
type kayit_alani=record ad:string[25] ; adres:string[40]; tel:string[12]; end; var dosya:File of kayit_alani; kayit:kayit_alani; Begin clrscr; assign(dosya,'rehber.txt'); {$I-} reset(dosya); {$I+} if Ioresult <>0 then Rewrite(dosya); write('Adı soyadi');readln(kayit.ad); write('Adresi');readln(kayit.adres); write('Telefon');readln(kayit.tel); seek((dosya filesize(dosya)); write(dosya,kayit); close(dosya); readln; end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 16:32 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.