Kurulumu ise aşağıda ki program ile gayet basit bir hale geliyor..

[button size=”large” type=”link” value=”İNDİR” href=”http://www.dijitalturk.com/prog/DxAutoInstaller.v1.81.rar”]

 http://www.delphifans.com adresinden de güncel olan Devexpress componentini indirin,orada yapılacak olan iş şu rar lı olan dosyayı gösteri execute etmek sadece bu, eğer componentler gelmezse Delphi uygulamasından Dexexpress kurulu path tanıtımını yapmak. Kolay gelsin!

The post DevExpress komponenet seti kurulumu , DxAutoInstaller appeared first on DijitalTurk.

Şiddetle tavsiye ederim

[button size=”large” type=”link” value=”İNDİR” href=”http://www.dijitalturk.com/prog/CnWizards_1.0.0.638.exe”]

CnPack Nedir?

CnPack çinli bir grup geliştiricinin Borland geliştirme araçlarını kullanan yazılımcılar için hazırladığı açık kaynak kodlu bir geliştirme yardımcısı(expert)dır. Delphi kullanıcılarının çoğunluğunun yakından bildiğiGExpert ve Castalia eklentilerinin muadili olan program bu iki eklentinin birçok özellğini bünyesinde bulundurmakla birlikte aklımıza gelmeyen daha birsürü özelliği içeriyor. Eklenti Delphi 5/6/7/8 BDS2005 ve BDS2006′da sorunsuz bir şekilde kullanılabiliyor. Peki bu eklenti geliştiricilere neler sunuyor;

• Code Input Helper
• Enhanced Units/Forms List
• TabOrder Wizard
• Flat Toolbar in Form Designer with full customized
• MSDN Help Integrated
• Toolbar in Editor with full customized
• Project Extension Tools
• Multi-line Component Palette
• Roll Windows and Set to Topmost
• Source Codes Statistics
• Lots of Other Improvements

Bunların dışında geliştiriciler için kurtarıcı denilebilecek birkaç araçta yazılımla birlikte geliyor;

• CnWizards Configuration Import&Export
• DFM File Convertor
• IDE Config Backup/Restore Tool, including IDE History Cleaner
• Debug Output Unit & Viewer
• ASCII Chart

The post Delphi için harika bir eklenti, CnPack appeared first on DijitalTurk.

butonumuz’un içeriği

procedure TAnaForm.cxButton1Click(Sender: TObject);
var
    book:variant;
    excel,sheet:variant;
    satir, sutun,i,RehID,d:integer;
    DbS,ExcelS:string;

    function excelsonsatir(AColumn: Integer): Integer;
    const
    xlUp = 3;
    begin
     Result := excel.Range[Char(96 + AColumn) + IntToStr(65536)].end[xlUp].Rows.Row;
    end;
begin

  excel := CreateOleObject('Excel.Application');
  OpenDialog1.Title := 'Excel Dosyasını Aç';
  OpenDialog1.Filter := 'Excel Dosyaları *.xls';

//  if OpenDialog1.Execute then begin
    book := Excel.WorkBooks.Open(cxTextEdit1.text);

    try
    Screen.Cursor := crHourGlass;
    sheet := book.worksheets[1];
    cxLabel1.Caption := 'Excelden veriler aktarılıyor.Bekleyiniz...';
    cxProgressBar1.Properties.Max := excelsonsatir(1)+1;

      for satir := 2 to excelsonsatir(1)+1 do begin

        cxProgressBar1.Position := satir;
        cxProgressBar1.Refresh;

          if VarToStr(sheet.cells[satir,2]) <> '' then
          begin
            tablo.ADOQuery1.Close;
            tablo.ADOQuery1.SQL.Text:='select * from ILSEMT where SEMTADI='''+trim( VarToStr(sheet.cells[satir,2]) )+'''';
            tablo.ADOQuery1.Open;

                  DbS:=trim(Tablo.ADOQuery1.FieldByName('SEMTADI').AsString);
                  ExcelS:=trim(VarToStr(sheet.cells[satir,2]));

                  if DbS=ExcelS then
                  begin
                     //showmessage(Tablo.ADOQuery1.FieldByName('SEMTADI').AsString+'-'+VarToStr(sheet.cells[satir,2])+' AYNI eklenmeyecek');
                  end else
                  begin
//                    showmessage('insert into ILSEMT(ILNO,SEMTADI,UZAKLIK)  values('''+trim( VarToStr(sheet.cells[satir,1]) ) +''','''+trim( VarToStr(sheet.cells[satir,2]) )+''','''+trim( VarToStr(sheet.cells[satir,3]) )+''')  ');
                      cxMemo1.Lines.Add(VarToStr(sheet.cells[satir,2]));
                      tablo.ADOQuery1.Close;
                      tablo.ADOQuery1.SQL.Text:='insert into ILSEMT(ILNO,SEMTADI,UZAKLIK)  values('+trim( VarToStr(sheet.cells[satir,1]) ) +','''+trim( VarToStr(sheet.cells[satir,2]) )+''','''+StringReplace(trim( VarToStr(sheet.cells[satir,3]) ),',','.',[rfReplaceAll])+'''); select scope_identity() as deger;  ';
                      tablo.ADOQuery1.open;
                  end;

//            showmessage('diğer kayda geçiyor');
          end;

         if tablo.ADOQuery1.fields[0].asinteger>0 then  d:=tablo.ADOQuery1.fields[0].AsInteger;

       //nakliye ye giriş
//         tablo.ADOQuery1.Close;
//         tablo.ADOQuery1.SQL.Text:='insert into NAKLIYE(SEMTNO,TUTAR,ALT,UST)  values('+trim( inttostr(d) ) +','+trim( VarToStr(sheet.cells[satir,6]) ) +','''+trim( VarToStr(sheet.cells[satir,4]) ) +''','''+trim( VarToStr(sheet.cells[satir,5]) ) +''')  ';
//         tablo.ADOQuery1.execsql;
        //nakliyeye giriş

      end;
      excel.DisplayAlerts := False;
      excel.quit;
      excel := Unassigned;
      Application.Messagebox(PChar('Veriler kaydedilmiştir.'),Pchar('uyarı'),MB_OK);
    finally
      Screen.Cursor:=crDefault;
    end;
//  end;
end;

The post Excell ‘den ole ile veri çekme appeared first on DijitalTurk.

Delphi String İşlemleriFillChar ( str, adet, karakter ) : str parametresi ile verilen stringi adet kadar karakter ile doldurulur.

StringOfChar ( karakter, adet ) : Bu fonksiyon da adet kadar karakterden oluşan stringi oluşturur.

ReverseString ( string ) : Verilen stringi ters çevirir. Bu fonksiyonu kullanabilmek için uses satırına strutils eklememiz gerekir.

Delete ( str, başlangıç, adet) : Str stringinden başlangıç parametresi ile belirlenen karakterden adet kadarını siler.

Insert ( str1, str2, başlangıç ) : str1 stringini, başlangıç ile belirlenen yerden str2 stringine ekler.

Pos ( str1, str2) : str2 stringi içinde str1 stringi içinde arar. Bulursa bulduğu konumu bulamazsa 0 değerini gönderir.

Uppercase ( string ) : Verilen string ifadedeki harfleri büyük harfe çevirir.

Lowercase ( string ) : Verilen string ifadedeki harfleri küçük harfe çevirir.

Length ( str ) : str stringinin uzunluğunu geri gönderir.

Copy ( str, başlangıç, adet ) : str stringinden başlangıç parametresiyle belirlenen karakterden adet kadarı geri gönderir.

The post Bazı Delphi String Kodları appeared first on DijitalTurk.

yazılması yeterlidir.

The post Nesneyi taşınabilir yapmak appeared first on DijitalTurk.