Selam arkadaşlar sizden şu konu hakkında bana yrdımcı olmanızı istiyorum
writeln komutunu çalıştıramıyorum
write çalışıyor
yapmöak istedigim
kendi oluşturacagım text dosyasında verilerin
örn: ADI SOYADI TEL
ali toprak 4498 289
gibi.......
kolonlu ve kayıtlar alt alta gelecek şeklinde
verilerimi kaydettir
mek istiyorum
Random Dosyalama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Merhaba,
burda en güzeli alanlar arasına , veya ; gibi bir ayıraç koymak. Yani kayıtlar şöyle olacak :
Ali,Toprak,123 45 67
Veli,Taş,765 43 21
...
Dolayısıyla isim ve soyisim kısmı ortada olduğu için Write ile yazman lazım, Telefon kısmını WriteLn ile yazman lazım ki bir sonraki kaydı bir satır atlatarak yazsın. Kodda şöyle gözükecek:
Kolay gelsin.
burda en güzeli alanlar arasına , veya ; gibi bir ayıraç koymak. Yani kayıtlar şöyle olacak :
Ali,Toprak,123 45 67
Veli,Taş,765 43 21
...
Dolayısıyla isim ve soyisim kısmı ortada olduğu için Write ile yazman lazım, Telefon kısmını WriteLn ile yazman lazım ki bir sonraki kaydı bir satır atlatarak yazsın. Kodda şöyle gözükecek:
Kod: Tümünü seç
{tanımlamalar vs.}
Write (TempTextDosya, ad_değişkeni);
Write (TempTextDosya, soyad_değişkeni);
WriteLn (TempTextDosya, telefon_değişkeni);
{dosya kapatma işlemleri}
Sorunun ile konu başlığının arasında fark var, Random dosya ile text dosya arasında çok fark vardır. Help ten incele bence.
Random Dosya içinde Kendin bir record tanımlıyorsun, ve kayıt ve okuma sırasında bu record u kullanıyorsun. Text ten farkı Seek ile cursor u konumlandırman gerek.
yok illaki tex dosya olacaksa en basit çözüm. TMemo kullanın, Bu class(Component)'ın SaveToFile Procedure ü ile Text dosyaya yazdırdabilirsin
Kolay gele
Random Dosya içinde Kendin bir record tanımlıyorsun, ve kayıt ve okuma sırasında bu record u kullanıyorsun. Text ten farkı Seek ile cursor u konumlandırman gerek.
yok illaki tex dosya olacaksa en basit çözüm. TMemo kullanın, Bu class(Component)'ın SaveToFile Procedure ü ile Text dosyaya yazdırdabilirsin
Kolay gele
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!