Örnek Kullanımlı Kodlar

[dakrass]

Merhaba, Arkadaşlar Benim Aklıma Bir Fikir Geldi ve Bu fikrimi Sizlerle paylaşmaktan çok mutlu olacağım düşüncem tutar inşallah...

Program Yazarken, bizler en çok hangi kodları kullanıyoruz ve onları buraya güzel bir açık dilde anlatalım kodları koyalım işine yarayan arkadaşlar kullansın. Bu şekilde bir düşüncem idi iyi veya kötü bilemiyeceğim... amaç yardım. ben başlıyayım gerisiniz siler getirirsiniz... şimdiden kolay gelsin çok teşekkürler...

Kod: Tümünü seç

var
Bul:Boolean;
begin
bul:=Query1.Locate('quarydb ismi',neyde yazilirsa o kıyaslanır@rnek:Edit1.text gibi,[locaseinsensitive]);
if Bul then
...
...
...
...
end;

{bu kadar}

///////////////////////////////////////////////////////////////

Kod: Tümünü seç

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  i, cavb : 0..255;
begin

  if AlphaBlend=False then
  begin
    AlphaBlendValue:=255;
    AlphaBlend:=True;
  end;
 cavb:=AlphaBlendValue;
  for i := cavb downto 0 do
  begin
    AlphaBlendValue := i;
    Application.ProcessMessages;
    Sleep(4);{saniyesi ne kadar çok olursa yavaş kapanması okadar çok olur}
  end
end;

///////////////////////////////////////////////////////////////

Kod: Tümünü seç

procedure TForm2.DBGrid1TitleClick(Column: TColumn);
var
toplam:integer;
begin
if column.FieldName='Stop' then
begin
toplam:=dbgrid1.Fields[3].AsInteger+dbgrid1.Fields[4].AsInteger+dbgrid1.Fields[5].AsInteger+dbgrid1.Fields[6].AsInteger+dbgrid1.Fields[7].AsInteger+dbgrid1.Fields[8].AsInteger+dbgrid1.Fields[9].AsInteger+dbgrid1.Fields[10].AsInteger+dbgrid1.Fields[11].AsInteger+dbgrid1.Fields[12].AsInteger+dbgrid1.Fields[13].AsInteger+dbgrid1.Fields[14].AsInteger+dbgrid1.Fields[15].AsInteger+dbgrid1.Fields[16].AsInteger+dbgrid1.Fields[17].AsInteger+dbgrid1.Fields[18].AsInteger;
toplam:=toplam+dbgrid1.Fields[19].AsInteger+dbgrid1.Fields[20].AsInteger+dbgrid1.Fields[21].AsInteger+dbgrid1.Fields[22].AsInteger+dbgrid1.Fields[23].AsInteger+dbgrid1.Fields[24].AsInteger+dbgrid1.Fields[25].AsInteger+dbgrid1.Fields[26].AsInteger+dbgrid1.Fields[27].AsInteger+dbgrid1.Fields[28].AsInteger+dbgrid1.Fields[29].AsInteger+dbgrid1.Fields[30].AsInteger+dbgrid1.Fields[31].AsInteger+dbgrid1.Fields[32].AsInteger+dbgrid1.Fields[33].AsInteger+dbgrid1.Fields[34].AsInteger;
toplam:=toplam+dbgrid1.Fields[35].AsInteger+dbgrid1.Fields[36].AsInteger+dbgrid1.Fields[37].AsInteger+dbgrid1.Fields[38].AsInteger+dbgrid1.Fields[39].AsInteger+dbgrid1.Fields[40].AsInteger+dbgrid1.Fields[41].AsInteger+dbgrid1.Fields[42].AsInteger;
showmessage('Puan Durumu:'+dbgrid1.Fields[1].AsString+'='+inttostr(toplam));
table1.Edit;
dbgrid1.Fields[2].AsInteger:=toplam;

///////////////////////////////////////////////////////////////

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender TObject);
var mTMEMORYSTATUS;
begin
GlobalMemoryStatus(m);
Label1.caption=' %' + IntToStr(m.dwMemoryLoad );
Label2.caption= + FloatToStr(m.dwTotalPhys 1024.01024.0) +' MB';
Label3.caption=+FloatToStr (m.dwAvailPhys 1024.01024.0)+' MB';
end;

/////////////////////////////////////////////////////////////

Kullanıcının yanlış veri girişine son :

Kod: Tümünü seç

procedure MyException(Sender:TObject; E:Exception);

interface
...
...
procedure TForm1.MyException(Sender:TObject; E:Exception);
begin
  if (E.ClassType.ClassName='EConvertError') then
  begin
    { buraya yapmak istediklerinizi yazabilirsiniz }
  end
  else Application.ShowException(E);
end;
...
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException := MyException;
end;

///////////////////////////////////////////////////////////////

edit nesnesine yanıp sönme efeckti verme...

Kod: Tümünü seç

var
cTColor;
begin
    c=Edit1.Color;
    Edit1.Color=Edit1.Font.Color;
    Edit1.Font.Color=c;
end;

Tşkler Sevgiler Saygılar ,...

[tsamim]

Merhabalar ;

Aslında bu tür fonksiyon niteliğinde olacak kodları paylaşmak bir çok arkadaşın işini kolaylaştırabilir ve iyi bir örnek kütüphaneside oluşturabilir.

Bu kodlardaki bir komutun kullanımı bile referans olabilir bir çok arkadaşa düşüncenizi destekliyorum.

Ancak kodların altına ne yaptığını biraz daha ayrıntılı yazarsak daha yararlı olur sanırım.

çalışmalarınızda başarılar dilerim.

Bende çalışmalarım sırasında burdaki arkadaşların işine yarayabilecek genel amaçlı kodlarla uğraştığımda buraya ekleyeceğim.

[vedatkaba]

bunları Makale ve İpucu Kısmına yzamış olsaydınız Çok daha güzel olurdu.Kolay gelsin.

[eyalin]

Vedat kabaya katılıyorum.Dakrass'ada katılıyorum bir kodbank çok işimize yarardı.