|
24/04/07, 00:49
|
#1
|
Tuğgeneral
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 37
Mesajlar: 924
|
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.
|
|
|
Konu Sayısı: 187
20/06/08, 15:28
|
#2
|
Mareşal
Üyelik tarihi: Sep 2007
Mesajlar: 5.835
|
Paylaşım için tşkler…
__________________
|
|
|
Konu Sayısı: 613
Takımınız:
30/06/08, 01:47
|
#3
|
Cumhurbaşkanı
Üyelik tarihi: May 2008
Bulunduğu yer: van
Mesajlar: 7.027
|
teŞekkÜrler PaylaŞim İİÇİn
__________________
Düşmeden Bulutlarda Koşmam GereK !
|
|
|
Konu Sayısı: 866
31/07/08, 15:51
|
#4
|
Yasaklı kullanıcı
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.883
|
paylaşım için tşkrlr
|
|
|
Konu Sayısı: 316
Takımınız:
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
|
|
Yetkileriniz
|
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.
HTML-KodlarıKapalı
|
|
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 08:23 .
| |