Delphi Fonksiyonu: gridsil

Bir StringGrid'in tüm hücrelerini silen fonksiyon.

procedure gridsil(Silinecek: TStringGrid; sil:Boolean=True);
var
  i,j: integer;
begin
  with silinecek do
  begin
    for i:=1 to ColCount-1 do
    for j:=1 to RowCount-1  do
    if sil then Cells[i,j]:=''
    else if Cells[i,j]='' then Cells[i,j]:=' ';
  end;
end;

13.11.2008 10:25:10

Yorumlar

Bu yazıya henüz yorum yapılmamış.

Yazı hakkında yorum yapmak için, buraya tıklayın.

Kategoriler :

Arşiv :

Etiketler :

Bağlantılar :