Aslında cevaplar herseyi anlatmıs bence ama son sorunuzun cevabı bunu pos ile yapabilirsiniz.... Tabi bir sartla degisken icinde tek bir nokta olması kaydıyla... Ya da siz son noktayi dikkate alicam derseniz cok nokta olması da problem degil...
Pos('.',VAR_DEGISKEN)// bu ise noktanın kacinci karakter oldugunu verir...
copy fonksiyonu da bir degiskenin istenilen karakterinden itibaren istenilen karakteri almanızı saglar....
Hazır başlık açılmışken bende bişey sorayım dedim...
Lenght olayından bahsetmişsiniz stringin uzunluğunu integer bir değer olarak verebiliyomuş
Bende mesela Edit1 bileşenine X diye bir string girdim ve bunun kaç karakter olursa olsun gerisini 30 karaktere tamamlayıp bir txt dosyaya kaydetmek istiyorum bununla ilgili yardımcı olurmusunuz...
Bizler birer atoma benziyoruz ve gün geldiğinde bir ülkeyi dahi yok edebilecek güce sahibiz. Ama gücümüz aklımızın esiri! Bu yüzden Sıyırdınız gene
var
i:integer;
kelime:string;
begin
if Length(Edit1.Text)<=30 then begin
kelime:=Edit1.Text;
for i:=(30-length(Edit1.Text)) downto 1 do
kelime:=kelime+'x';
end;
end;
Ben bunu bir dat dosyaya kaydedicem eski dos mantığında olduğu gibi ama TextFile ile yapmam gerekiyor daha once zaten bi başlık açmıştım saolsun bazı arkadaşlar yardımcı olmuştu ama ben anlayamamıştım...
Neyse ben bu şekilde bilgileri Dat dosyaya kaydedicem fakat bide bu kayıtlar üzerinde gezinmem gerekiyor Formun goruntusunude aşağıya veriyorum...İleri geri tuşlarına basıldığında 30 kararekter geriye giderek Dat dosyadan okuduğu kayıdı bana Edit bileşeninde göstermesini istiyorum ben tekrar kaydet butonuna bastığımda yeni hali ile kaydetmeli...
Yardımcı olursanız cok sevinirim...
Formun Görüntüsü
Saygılar...
Bizler birer atoma benziyoruz ve gün geldiğinde bir ülkeyi dahi yok edebilecek güce sahibiz. Ama gücümüz aklımızın esiri! Bu yüzden Sıyırdınız gene
Table aç ve her şeyi db yap field a verdiğin size dan fazla girilemez zaten. Amerikayı keşfetmek gibi bir şey senin söylediklerinden anladığım
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 !!!
evet kbmmemtable ve sqlmemtablenin text dosya okuma yazma gibi güzellikleri var.. anca velakin illaki text yapıcam diyorsan buda zor değil yani benim anlamadığım senin neyi anlamadığın
ileriyi tıklayınca dosyadan sonraki kaydı oku, readonly editlerde göster, kullanıcıya değiştir butonuna basarsa boşlukları kaldır, kullanıcı tamam deyince yine karakterlerini ekle, satırını kaydet , çok zorlanırsan koduunu yazmaya başla buraya gönder devam ederiz , ama ilk önce başla dimi
dosyaya writeln() yazıp readln() ile okuyacaksın. böylece yazdığın her kayıt bir satıra gelecektir. ve readln ile okuduğunda her satırı tek bir kayıtmış gibi alacaksın.
örn.
1.satır = Ali Veli xxx yyy
2.satır = veli ali yyy xxx gibi bir dosya olsun..
readln(txtfile_degisken, str_degisken);
str_degiskenin degeri Ali Veli xxx yyy olur ve imleç seni veli ile başlayan satırda bekler. readln komutunu bidaha kullanırsan 2. satır str_degisken değişkene aktarılır..
)
