Delphi Hakkında Sormak İstedikleriniz

Konyaliyim · 3 Kasım 2007

delphıde ödevım var ve fınallere kadar yetıstırmem gerek bana yardımedersenız sevınırım
benım ödevım hastane kayıt tutma bana yardım edın nezmandan berı ugrasıyom ve bırtulu olmuyorr
sızden yardımlarınızı eklıyorum
bılgı paysalıması superr yaaa buarada arsıv paylasımı yapalım arkadaslar bend esuper arsıvller vaarrr bana yardımedın ıstedıgınız arsv sızın

xthief · 11 Kasım 2007

firatm demiş ki:
Sn ArkadaŞlar
Ben Delpİde YapilmiŞ Bİr Programin Exe Sİnİ AÇmak İstİyorum Yanİ Kodlarini GÖrmek İstİyorum Buna İmkan Varmi
Vİsual Basİcde Varya Vb Decompaİr Gİbİ Bİr Program Varmi LÜtfen Yardim Edİn

sourcleri VB de göremeyeceğiniz gibi delphide de göremezsiniz. Ama kodlar hariç programı Dede ile decompile edebilirsiniz.

webmasterboy · 22 Mart 2008

arkdasım kardesim merhaba nasılsın sana bayadır yzamıyorum senden bi istegim var benim için cok önemli bir proje okulu bitirme projesi delphide mail kırma diye bişey bana yardımcı olursan minnettar kalırım cok tsk ederim simdiden k.ç.b

misafir910 · 23 Mart 2008

Delpide mail kırma

hemde okul bitirme projesi ilginç yaws okullar nezamandan beri illegali destekliyor mail yollama yada server olmasın o

turkish__hacker · 26 Mart 2008

FrantiCorpse kardeşim merhaba.Bizim okulda öğretmenimiz bizden delphide çok basit bir kod yazmamızı istedi.Ama işin açıkçası ben program yazmayı bilmiyorum .program şu

AD:
SOYAD:
TELEFON:
E-Mail:
Ek bilgi:

program bunları kaydedecek yani bi nevi telefon rehberi gibi birşey.Oturduğum yerde perpa iş merkezi var orda bir iki kişiye sordum çok yüksek paralar istediler benden. Benim bunu kaldıracak durumum fazla yok.Lütfen WaRDoM'cular yardım edin bana.

Franticorpse · 27 Mart 2008

turkish__hacker demiş ki:
FrantiCorpse kardeşim merhaba.Bizim okulda öğretmenimiz bizden delphide çok basit bir kod yazmamızı istedi.Ama işin açıkçası ben program yazmayı bilmiyorum .program şu

AD:
SOYAD:
TELEFON:
E-Mail:
Ek bilgi:

program bunları kaydedecek yani bi nevi telefon rehberi gibi birşey.Oturduğum yerde perpa iş merkezi var orda bir iki kişiye sordum çok yüksek paralar istediler benden. Benim bunu kaldıracak durumum fazla yok.Lütfen WaRDoM'cular yardım edin bana.

Kod:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, Buttons;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1NUMARA: TStringField;
    Table1ADI: TStringField;
    Table1SOYADI: TStringField;
    Table1TEL: TStringField;
    Table1CEP: TFloatField;
    Table1ADRES: TStringField;
    BitBtn1: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    procedure BitBtn1Click(******: TObject);
    procedure BitBtn2Click(******: TObject);
    procedure FormCreate(******: TObject);
    procedure BitBtn3Click(******: TObject);
    procedure BitBtn4Click(******: TObject);
    procedure BitBtn5Click(******: TObject);
    procedure BitBtn6Click(******: TObject);
    procedure BitBtn7Click(******: TObject);
    procedure BitBtn8Click(******: TObject);
    procedure BitBtn9Click(******: TObject);
    procedure BitBtn10Click(******: TObject);
    procedure BitBtn11Click(******: TObject);
    procedure BitBtn12Click(******: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(******: TObject);
begin

  Table1NUMARA.Value:=DBEdit1.text;
  Table1ADI.Value:= DBEdit2.Text;
  Table1SOYADI.Value:=DBEdit3.Text;
  Table1TEL.Value:=DBEdit4.text;
  Table1CEP.Value:=strtoint(DBEdit5.Text);
  Table1ADRES.Value:=DBMemo1.Text;
  table1.Post;
   BitBtn1.Enabled:=false;
end;

procedure TForm1.BitBtn2Click(******: TObject);
begin
table1.Insert;
BitBtn1.Enabled:=true;
end;

procedure TForm1.FormCreate(******: TObject);
begin
BitBtn1.Enabled:=false;
end;

procedure TForm1.BitBtn3Click(******: TObject);
begin
table1.IndexName:='NUMARA';
table1.FindNearest([edit1.text]);
end;

procedure TForm1.BitBtn4Click(******: TObject);
var
mesaj:integer;
begin
       mesaj:=Application.MessageBox('silmek istediginizden emin misiniz?','sil',
        MB_YesNo);
        if mesaj=mrYes then
        begin
        Table1.Delete;
        showMessage ('kayıt silindi' );
         end
         else
         showMessage('kayit silme islemi iptal edildi');

end;

procedure TForm1.BitBtn5Click(******: TObject);
begin
table1.Refresh;
end;

procedure TForm1.BitBtn6Click(******: TObject);
begin
table1.First;
end;

procedure TForm1.BitBtn7Click(******: TObject);
begin
if not table1.Bof then
table1.Prior
else
showMessage('Zaten ilk kayittasiniz');
end;

procedure TForm1.BitBtn8Click(******: TObject);
begin
if not table1.Eof then
table1.Next
else
showMessage('Zaten sonraki kayittasiniz');
end;

procedure TForm1.BitBtn9Click(******: TObject);
begin
table1.last;
end;

procedure TForm1.BitBtn10Click(******: TObject);
begin
    table1.Edit;
    
end;

procedure TForm1.BitBtn11Click(******: TObject);
begin
table1.cancel;
end;

procedure TForm1.BitBtn12Click(******: TObject);
begin
  table1.IndexName:='ADI';
table1.FindNearest([edit1.text]);
end;

end.

Kişinin adı soyadı, cep tlf, adres gibi iletişim bilgilerinin bulunduğu bir kod. Üzerinde sil degiştirme iptal etme arama gibi işlemleri de yapabiliyor.

Alıntıdır.

Franticorpse · 27 Mart 2008

firatm demiş ki:
Sn ArkadaŞlar
Ben Delpİde YapilmiŞ Bİr Programin Exe Sİnİ AÇmak İstİyorum Yanİ Kodlarini GÖrmek İstİyorum Buna İmkan Varmi
Vİsual Basİcde Varya Vb Decompaİr Gİbİ Bİr Program Varmi LÜtfen Yardim Edİn

Evet var, Reflector adlı programla yapabilirsin mesela.

Burdan indirebilirsin.

Yapamazsan (biraz karışık) mail&msn adresim, wardombili@hotmail.com

turkish__hacker · 31 Mart 2008

Franticorpse demiş ki:

Kod:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, Buttons;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1NUMARA: TStringField;
    Table1ADI: TStringField;
    Table1SOYADI: TStringField;
    Table1TEL: TStringField;
    Table1CEP: TFloatField;
    Table1ADRES: TStringField;
    BitBtn1: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    procedure BitBtn1Click(******: TObject);
    procedure BitBtn2Click(******: TObject);
    procedure FormCreate(******: TObject);
    procedure BitBtn3Click(******: TObject);
    procedure BitBtn4Click(******: TObject);
    procedure BitBtn5Click(******: TObject);
    procedure BitBtn6Click(******: TObject);
    procedure BitBtn7Click(******: TObject);
    procedure BitBtn8Click(******: TObject);
    procedure BitBtn9Click(******: TObject);
    procedure BitBtn10Click(******: TObject);
    procedure BitBtn11Click(******: TObject);
    procedure BitBtn12Click(******: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(******: TObject);
begin

  Table1NUMARA.Value:=DBEdit1.text;
  Table1ADI.Value:= DBEdit2.Text;
  Table1SOYADI.Value:=DBEdit3.Text;
  Table1TEL.Value:=DBEdit4.text;
  Table1CEP.Value:=strtoint(DBEdit5.Text);
  Table1ADRES.Value:=DBMemo1.Text;
  table1.Post;
   BitBtn1.Enabled:=false;
end;

procedure TForm1.BitBtn2Click(******: TObject);
begin
table1.Insert;
BitBtn1.Enabled:=true;
end;

procedure TForm1.FormCreate(******: TObject);
begin
BitBtn1.Enabled:=false;
end;

procedure TForm1.BitBtn3Click(******: TObject);
begin
table1.IndexName:='NUMARA';
table1.FindNearest([edit1.text]);
end;

procedure TForm1.BitBtn4Click(******: TObject);
var
mesaj:integer;
begin
       mesaj:=Application.MessageBox('silmek istediginizden emin misiniz?','sil',
        MB_YesNo);
        if mesaj=mrYes then
        begin
        Table1.Delete;
        showMessage ('kayıt silindi' );
         end
         else
         showMessage('kayit silme islemi iptal edildi');

end;

procedure TForm1.BitBtn5Click(******: TObject);
begin
table1.Refresh;
end;

procedure TForm1.BitBtn6Click(******: TObject);
begin
table1.First;
end;

procedure TForm1.BitBtn7Click(******: TObject);
begin
if not table1.Bof then
table1.Prior
else
showMessage('Zaten ilk kayittasiniz');
end;

procedure TForm1.BitBtn8Click(******: TObject);
begin
if not table1.Eof then
table1.Next
else
showMessage('Zaten sonraki kayittasiniz');
end;

procedure TForm1.BitBtn9Click(******: TObject);
begin
table1.last;
end;

procedure TForm1.BitBtn10Click(******: TObject);
begin
    table1.Edit;
    
end;

procedure TForm1.BitBtn11Click(******: TObject);
begin
table1.cancel;
end;

procedure TForm1.BitBtn12Click(******: TObject);
begin
  table1.IndexName:='ADI';
table1.FindNearest([edit1.text]);
end;

end.

Kişinin adı soyadı, cep tlf, adres gibi iletişim bilgilerinin bulunduğu bir kod. Üzerinde sil degiştirme iptal etme arama gibi işlemleri de yapabiliyor.

Alıntıdır.

kardeş çok teşekkür ederimde ben bu kodları unit1.pas dosyasının içinemi kopyalıycam bi zahmet yaa

LorD of The Pit10 · 20 Şubat 2009

Delphide form sayfasına nasıl resim ekleyebiliriz.

sizlerden acil yardım istiyorum...

teşekkürler...

trigger · 20 Şubat 2009

LorD of The Pit10 demiş ki:
Delphide form sayfasına nasıl resim ekleyebiliriz.

sizlerden acil yardım istiyorum...

teşekkürler...

image componenti var, onu kullanacaksın

LorD of The Pit10 · 20 Şubat 2009

trigger demiş ki:
image componenti var, onu kullanacaksın

image componenti nerede acaba componeti lerin içerisinde yok???

teşekkürler..

trigger · 20 Şubat 2009

LorD of The Pit10 demiş ki:
image componenti nerede acaba componeti lerin içerisinde yok???

teşekkürler..

Edit: Konu çözüme kavuştu

regedit__1 · 18 Mart 2009

Arkadaşlar veri tabanı sql burda tckimlik diye bir alanımız var biçimi char. uzunluğu 11 karakter. Ben bu alana sadece rakam girilsin istiyorum. Delphide kod yazarak bunu nasıl çözerim??

Char yerine int numeric falanda denedim ama 11 karakter olmuyo. Birde char yaparak programdan kısıtlama yapmayı düşündüm.
Nasıl yapa bilirim?

Frαnticorpse · 30 Mayıs 2009

regedit__1 demiş ki:
Arkadaşlar veri tabanı sql burda tckimlik diye bir alanımız var biçimi char. uzunluğu 11 karakter. Ben bu alana sadece rakam girilsin istiyorum. Delphide kod yazarak bunu nasıl çözerim??

Char yerine int numeric falanda denedim ama 11 karakter olmuyo. Birde char yaparak programdan kısıtlama yapmayı düşündüm.
Nasıl yapa bilirim?

//Bir edit'e sadece istediğiniz karakterlerin girilmesini sağlayabilirsiniz.
//Bunun için Edit'in OnKeyPress olayına aşağıdaki kodu yazın.

if not (key in ['0'..'9',#8]) then
begin Key:=#0; //girilen karakter rakam veya backspace değilse null(#0)'a dönüştür
Beep; //bip sesi ile kullanıcıyı uyar.
end;

djmavi · 30 Mayıs 2009

Darbuka demiş ki:
//Bir edit'e sadece istediğiniz karakterlerin girilmesini sağlayabilirsiniz.
//Bunun için Edit'in OnKeyPress olayına aşağıdaki kodu yazın.

if not (key in ['0'..'9',#8]) then
begin Key:=#0; //girilen karakter rakam veya backspace değilse null(#0)'a dönüştür
Beep; //bip sesi ile kullanıcıyı uyar.
end;

Teşekkürler

Sorun Çözüldü +K

Hanswax · 7 Temmuz 2009

Arkadaslar dbcombobox a bde administratorla yaptıgım veri tabanından veri eklemeye calısıyorum ama veritabanının sadece 1. ögesi gözüküo gerisini yüklemio yardımcı olabilirmisinizzz?

kuhi · 13 Eylül 2009

Arkadaşlar Delphi 7 ile çok döküman var ama delphi 2009 la ilgili döküman yok ve Delphi 2009 dersleri adı altında bi konu açsak iyi olmazmı çünkü Delphi 2009 arayüz felan Delphi 2007 ye göre çok farklı biz acemiler için delphi 7 ile karşılaştırınca çok zorlanıyoruz

bloodmony · 30 Ekim 2009

arkadaslar ben bilgisayar bolumunde okuyorum daha bu sene delphi dersi gormeye baslaadık bana delphiyi bastan cok kolay bırsekılde tam ısıme yarayacak dokuman veya bir site verebilirmisiniz şimdiden teskkur ederim herkese

TurboMan · 20 Kasım 2009

bloodmony demiş ki:
arkadaslar ben bilgisayar bolumunde okuyorum daha bu sene delphi dersi gormeye baslaadık bana delphiyi bastan cok kolay bırsekılde tam ısıme yarayacak dokuman veya bir site verebilirmisiniz şimdiden teskkur ederim herkese

delphi.about.com sitesinde istemediğin kadar bilgi var

eminee · 6 Ocak 2010

slm
benim delphi ile yaptıgım programda editte bulduğum değeri excele aktarmak istiyorum.
genellikle dbgridde elde edilen verinin excelle aktarılması anlatılmış.
editten excele değer aktarması mümmkün müdür ?
teşekkür ederim

Delphi Hakkında Sormak İstedikleriniz

Çırak

Forum Kalfası

Çırak

Forum Kalfası

Forum Ustası

Forum Ustası

Forum Ustası

Forum Ustası

Forum Kalfası

Forum Ustası

Forum Kalfası

Forum Ustası

Forum Kalfası

Hızlı Çırak

Forum Kalfası

Çırak

Çırak

Hızlı Çırak

Cool Üye

Çırak