Arama sonuçlarınız

Access tablonuzu ms jet ile programa bağlıyorsanız aşağıdaki bilgiler faydalı olabilir. tarih metni Önünde ve arkasında rakam işaretleri (#) bulunan geçerli biçimdeki herhangi bir karakter dizisidir. Geçerli biçimler, kodlarınızın yerel ayarlarında belirlenmiş olan tarih biçimi ya da evrensel...

Advantage database ile hazırlanan bir kodebank kullandığımız halde advantage ile ilgili yazı yazmamasına şaşırdım. öncü olması amacıyla advantage databasede kullanılan bir sql komutu gönderiyorum... delphi içinde paradox kullanırken yazdığımız tek tırnak kulanarak yapılan şu işlem; select *...

{ sql server a dbexpress ile baglanirken database in verdigi identity yi dbx cekemiyor. dolayisi ile siz hangi kayda insert yaptiginizi bilemiyorsunuz.. ado hangi kayda insert yapildigini bildigi icin bunu dbx ya da midas vb.. yontemleri kullananlar icin yazdim buraya.. oncelikle asagidaki...

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; const InputBoxMessage = WM_USER + 200; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private procedure InputBoxSetPasswordChar(var Msg...

Procedure changeLang(LangCode : LongWord); Begin ActivateKeyBoardLayOut(KLF_ACTIVATE, LangCode); End; //Bazı Dil Kodları; // 00000402 = "Bulgarian" // 0000041a = "Croatian" // 00000405 = "Czech" // 00000406 = "Danish" // 00000813 = "Dutch (Belgian)" // 00000413 = "Dutch (Standard)" //...

procedure TForm1.FormCreate(Sender: TObject); begin timer1.interval:=250; caption:='deneme'+' ***... burası boşluk uzunluğu bunu kendiniz ayarlaya bilirsiniz ...*** '; end; procedure tform1.timer1timer(sender: tobject); begin caption:=copy(caption,2,length(caption)-1)+ caption[1]; end;

function xFormatByteSize(const bytes: Longint): string; const B = 1; //byte KB = 1024 * B; //kilobyte MB = 1024 * KB; //megabyte GB = 1024 * MB; //gigabyte begin if bytes > GB then result := FormatFloat('#.## GB', bytes / GB) else if bytes > MB then result :=...

procedure LoadFromFile(sg: TStringGrid; csv: TFileName); var sRows, sCols: TStrings; i: Integer; begin sRows := TStringList.Create; sRows.LoadFromFile(csv); sCols := TStringList.Create; sCols.CommaText := sRows[0]; sG.ColCount := sCols.Count; sCols.Free; SG.RowCount :=...

const Codes64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/'; function Encode64(S: string): string; var i: Integer; a: Integer; x: Integer; b: Integer; begin Result := ''; a := 0; b := 0; for i := 1 to Length(s) do begin x := Ord(s[i]); b :=...

function KurlariCek(XMLDosyasi: TXML********;Kayitlar: TStringList):Boolean; var iNode: IXMLNode; c, r: integer; begin XMLDosyasi.FileName := 'http://www.tcmb.gov.tr/kurlar/today.xml'; XMLDosyasi.Active := True; r := 1; iNode := XMLDosyasi.********Element.ChildNodes.First...

// Başlangıçta başlatmak için Registry'e yazar procedure RunOnStartup(value:string); var R:Tregistry; begin R:=TRegistry.Create; R.RootKey:=HKEY_LOCAL_MACHINE; R.OpenKey('\\Software\\Microsoft' + '\\Windows\\CurrentVersion\\Run',false); R.WriteString(value,application.exename)...

Add edit WebBrowser1.OleObject.********.GetElementByID('sf_url').Value := Edit1.Text; Post WebBrowser1.OleObject.********.GetElementByID('sf_form').Submit; WebBrowser1.OleObject.********.F1.onSubmit; Show Url Webbrowser1.OleObject.********.Url; Show Title...

procedure TMain.TimerTimer(Sender: TObject); var I: Integer; begin I := 125 - Length(Trim(Message.Text)); Max.Text := IntToStr(I); end;

var TP : TPoint; begin TP := Image1.ClientToScreen(Point(0,0)); PopupMenu1.Popup(TP.X, (TP.y + Image1.Height +1)); end;

uses Math; function YilAyGun (Index: Integer): Integer; var Yil, Ay, Gun: Word; begin DecodeDate(Date, Yil, Ay, Gun); case Index of 1: Result := Yil; 2: Result := Ay; 3: Result := Gun; end; end; function IntPart(FloatNum: Double): Double; begin if FloatNum < - 0.0000001 then...

function FilterMemo(S: string): string; var TagBegin, TagEnd, TagLength: integer; begin TagBegin := Pos( '<', S); while (TagBegin > 0) do begin TagEnd := Pos('>', S); TagLength := TagEnd - TagBegin + 1; Delete(S, TagBegin, TagLength); TagBegin:= Pos( '<', S); end...

procedure TForm1.Button1Click(Sender: TObject); var I: Integer; R: TRect; begin I := R.Top - Height; while Top > I do begin Top := Top - 2; Repaint; IdAntiFreeze1.Sleep(10); IdAntiFreeze1.Process; end; IdAntiFreeze1.Sleep(1); I := Screen.Width - 20; while...

SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); HWND_BOTTOM yap en alta gecer. HWND_NOTOPMOST yaparsan herzaman ustte

Delphi programlama dilinin, temeli Pascal dilidir. Özellikle nesne yönelimli programlama anlayışıyla yapılandırılmış Turbo Pascal dilinin görsel sürümü denilebilir. Nesne, sınıf, kalıtım, fonksiyon aşırıyükleme (overloading) gibi temel NYP tekniklerini ve daha fazlasını içeren ve C++ den aşağı...

Delphi'ye Giriş Bu bölümde Delphi hakkında genel bir bilgi sahibi olup, Delphi IDE'yi (Integrated Development Environment – Entegre Uygulama Geliştirme Ortamını) tanıyacağız. RAD Nedir? RAD (Rapid Application Development) Hızlı Uygulama Geliştirme demektir. Delphi'de RAD'dır ve bu ismi...