Arama sonuçlarınız

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...

Liza_Rümeysa hoşgeldiniz, keyifli forumlar :)

Emre Esmer teşekkür ederim sağolunuz :)

Linux SiyahLi teşekkürler beğenmenize sevindim :)

Evde canım sıkıldı biraz bende amatörce biraz uğraşayım dedim paylaşmak istedim umarım az da olsa hoşunuza gider :))

sinemersoy hoşgeldiniz keyifli forumlar.