| Hoşgeldin, Ziyaretçi |
Sitemizden yararlanabilmek için Kayıt olmalısınız.
|
|
|
| İki tabloyu karşılaştırma ve tabloda boşluk doldurma |
|
Yazar: Gumiho309 - Dün, Saat: 12:49 - Forum: Ödev
- Yorumlar (4)
|
 |
Merhabalar, bir uygulama geliştiriyorum delphi 10.3 kullanıyorum verilerimi sqlite kullanarak alıyorum. 2 adet tablom var 1.tablomda 3 sütun var öğrenci numarası, adı ve yaşı. 2.tablomda da 3 sütun var ilk sütun öğrenci numarası ve bu sütun boş 2.sütun öğrenci adı ve ailelerinin iletişim bilgileri yazıyor 3.sütun kardeş bilgisi. Delphiye bu iki tabloyu stringrid üzerine aktarıyorum fakat 2.tablomda öğrenci numarası sütununu doldurmam gerekiyor elle yazmam çok zaman alacağı için bunu kodla yapmak istiyorum. 1.tablomdaki öğrenci ismini 2.tablomda bulduğunda karşısına gelen öğrenci numarası sütununu doldurmasını istiyorum her seferinde bir alt satırda arama yaparak bütün listeyi doldurmak istiyorum. Öğrenci isimelrinde büyük küçük harf farklılığı sorunuda var. Bir döngü oluşturmam gerek sanırım ama delphide çok yeniyim bir türlü yapamadım bu konuda fikir verebilecek yardımcı olabilecek arkadaşlarım varsa şimdiden çok teşekkûr ederim.
|
|
|
| Fiş numaralama (Genel) |
|
Yazar: cinarbil - 22-09-2020, Saat: 10:06 - Forum: Genel Programlama
- Yorumlar (5)
|
 |
Günaydın fiş numaralama için basit fonksiyon yazdım
işine yarayan geliştirmek isteyen olabilir düşüncesi ile buradan paylaşayım.
Kullanımı
edit_fis_no.Text:=fisnouret(edit1_no.Text);
// veya
edit_fis_no.Text:=fisnouret('SVK.0025418');
Şeklinde kullanılınca gönderilen degeri bir artırarak geri gönderiyor.
function fisnouret(gecici_no: AnsiString): AnsiString;
var
i,sayi:Integer;
harfler,numaralar:Ansistring;
nokta_yeri:word;
begin
i:=Length(gecici_no); // gelen son numaranın uzunluğunu al
numaralar:=''; // gelen bilgi içinde sayı olanlar için gecici alan
harfler:=''; // gelen bilgi içinde harf ve ayraç karakterinin gecici tutulduğu alan
nokta_yeri:= AnsiPos('.' ,gecici_no); // ayraç karakterinin yerini bul.
if nokta_yeri=0 then // Ayraç karakteri yoksa uyarı ver ve çık.
begin
showmessage('Fiş numarasında . Karakteri olmak zorundadır.');
Exit;
end;
harfler:= AnsiLeftStr(gecici_no , nokta_yeri); // Noktadan öncesini harf olrak algıla ve al
numaralar := AnsiMidStr(gecici_no , nokta_yeri+1 , Length(gecici_no)+nokta_yeri); // Noktadan sonrasını numara olarak al
sayi:=strtoint(trim(numaralar)); // alınan numaralar string de boşlukları sil ve tam sayıya çevir.
sayi:=sayi+1; // sayıyı 1 Artır
Result:=harfler+inttostr(sayi); // hazırlanan harf ve sayıları birleştir gönder.
end;
|
|
|
|
|
ben bunu kullandım. siz nette aratarak veya kendiniz yaparak farklı görseller yükleyebilirsiniz.
