Ardakaşlar sabahdan beri bununla uğraşıyorum birtürlü yapamadım eminim çok kolay birşeydirde ben bilmiyorum
Aslında bundan önceki konu içersinde bu sorunumu en alt kısımda belirtmiştim fazla boşa konu açılmasın diye ama oraya bakılmadı bende yeni konu açtım .
Bir stringgridde seçili olan satırı silmeyi yaptım. Şimdi yapmam gereken
eğer stringgridde seçili olan satırın içi boşsa (yani satırdaki her alanın içi boşsa) bu satırı silmeyecek bunu nasıl yapabilirim bir türlü olmadı denemediğim şey kalmadı..
TStringGrid
->RowCount -> Satır sayısını verir
->ColCount -> Sütun (kolon) sayısını verir
->Row -> Seçili olan satır no
->Col -> Seçili olan sütun (kolon) no
->Cell[ColNo,RowNo] -> verilen kolonun, satırına denk gelen string bilgiyi verir.
procedure TForm1.BitBtn1Click(Sender: TObject);
var i:Integer; HepsiBosmu:Boolean;
begin
HepsiBosmu:=True;
i:=0;
while HepsiBosmu and (i<StringGrid1.ColCount) do begin
HepsiBosmu:=HepsiBosmu and (StringGrid1.Cells[i,StringGrid1.Row]='');
{veya HepsiBosmu:=HepsiBosmu and (StringGrid1.Rows[StringGrid1.Row][i]='');
şeklinde de olabilir, ikisi de aynı anlamdadır}
Inc(i); //->i:=i+1; gibi i'yi bir arttırır.
end;
if HepsiBosmu then begin
//satır silme kodlarını da burada yazabilirsin
end;
end;
Şaban Şahin AKMAN
_________________ Derin olan kuyu değil kısa olan iptir. - .
Dalgamı geçiyorsunuz yoksa beni yeriyormusunuz bu tutum nedir anlayamadım.Daha programlama dilinde 1. senem daha 5-6 ay oldu. Lise 3 öğrencisiyim.Burda deil orda deil sormayacaksam nasıl öğreneyim.Sorma bölümü değilmi yoksa burası.. napıyım yani bi çıkar yol söyleyin ozaman !!
Bilmediğim bir şeyi sorabilirim herhal ? vede bundan hiç utanmıyorum utanılcak bir yanıda yok.Daha önce hiç stringgrid kullanmadım.Bir abinin tavsiyesi üzerine bazı işlemleri stringgridde yapıyorum.Hiç kullanmamanın acemiliği..(Ticari Program yazmaya çalışıyorum ) . Burda birşeylere gayret ediyoruz sabahdan beri Delphi'nin F1 yardım kısmıda dahil her yerden mantık deniyorum,kod deniyorum. Siz beni bu işten soğutmayamı çalışıyorsunuz Tamam bir daha asla soru sormayacağım İYİ GÜNLER !
Dipnot: Bu arada Battosai bey merak etmeyin o bildiğiniz beleşçilerden değilim o yüzden merak etmeyin bir daha bu siteye girmeyeceğim kuşkunuz olmasın o konuda !!
En son tugsat tarafından 11 May 2009 04:24 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
var
[b] b : Boolean;
i := StringGrid1.Row; // silinecek satır indisi
b := False;
for j := 0 to stringgrid1.ColCount-1 do
if StringGrid1.Cells[j, i] <> '' then b := True;
if b = True then // yani en az bir hücrede veri varsa
// silmeislemiYAPILSIN;
with StringGrid1 do
begin
for i := Row to RowCount-2 do
for j := 0 to ColCount-1 do
Cells[j, i] := Cells[j, i+1];
StringGrid1.Cells[2,StringGrid1.RowCount-1] := '0';
RowCount := RowCount - 1 ;[/b]
O kadar kızmana gerek yoktu tugsat, ben öyle gördüm. Konular tarif edilirken herhalde araştıran şahıs sıkılmasın diye düşünmüş olacaklar ki, konu anlatımları standart tek düzen anlatımlarının dışına çıktığı oluyordu. Haliyle aynı üslup bize de bulaştı. Hem o zamanlar ne bir forum sitesi, ne bir bilen arkadaş ne de yol gösterecek hoca olmadığından bir çoğumuz için hep iş başa düştüğünden işi bilenin yol göstermesiyle 5-10 dk. alınacak yolu bir haftada aldığımız oluyordu. Şu zamanın öğrenicileri o zamandakilere göre çok daha şanslılar.
tugsat yazdı:Bu arada sorunumu deneye deneye sonunda çözdüm.
Demişsin ve ne olursa olsun öğrenmenin en makbul olanı da budur zaten.
Şaban Şahin AKMAN
_________________ Derin olan kuyu değil kısa olan iptir. - .
Daha programlama dilinde 1. senem daha 5-6 ay oldu. Lise 3 öğrencisiyim.
3 seneyi geçti bu sitedeyim hiç bu kadar aşırı tepki görmemiştim. Üzüldüm...
bunu @tugsat'ın yaşına veriyorum.
Şimdiki kaynaklar 3-5 yıl öncekilerden o kadar farklı o kadar yakınki.
Sen şimdi
Tamam bir daha asla soru sormayacağım İYİ GÜNLER !
İyide conari (abimi diyim amcamı bilmiyorum) bey;
Battasoi isimli bey;
"Beleş helva daha tatlı olduğu içindir heral yapılamaması... "
Bu lafın üzerine ne diyebilirim ki ?
Size deseler sizin cevabınız ne olurdu ??
"Abi" de daha o kadar yaşlanmadık
@Battasoi'yi savunmuyorum. (onun bu şekilde çıkışları var mesajlarına bakarsan görürsün)
Bu sözler bence, senin kısa sürede yıldığını gösterir ona üzülüyorum.
Eğer bu işi meslek edeniceksen bunları okadar kafana takma.
bence @battosai ara gazı vermiş.
@tugsat kardeşimizde gazı alıp problemini çözmüş. Bu çözümü bi daa unutmaz...
sanal ortamlarda bazen yanlış anlaşılmalar olabiliyor. Fazla takılmamak lazım.
ayrıca @tugsat çözümünü burda bizlerle paylaştığın için teşekkür ederim.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
