Türkçe mIRC indir – Resmi mIRC indirme Sitesi
Türkçe mirc resmi adresi TurkIRC. Mirc indir, mirc sohbet, mirc chat odaları, mirc addonları, IRC Client komutları alanında kaliteli hizmet vermektedir.
MergeStrings(ListBox1.Items, ListBox2.Items); } procedure MergeStrings(Dest, Source: TStrings); var i : integer; begin for i := 0 to -1 + Source.Count do if Dest.IndexOf(Source[i]) = -1 then Dest.Add(Source[i]); end; TurkIRC ©
» Devamını Oku< % Function Kelimebul(Gelen) Gelen=Trim(Gelen) If Gelen="" Then Exit Function KelimeParcala=Split(Gelen," ") Kelimebul=Ubound(KelimeParcala,1)+1 End Function Kelime="merhaba deneme yazisi yazdik kelime sayisini bulacagiz " Saybakalim=Kelimebul(Kelime) Response.Write (Saybakalim) 'Sonuç 7 Kelime %> TurkIRC ©
» Devamını Okuprotected void Button4_Click(object sender, EventArgs e) { OleDbConnection yeni = new OleDbConnection(); OleDbCommand eski = new OleDbCommand(); OleDbDataReader rdr; yeni.ConnectionString = ” Provider = Microsoft.Jet.OleDb.4.0; Data Source = ” + Server.MapPath(“kayit.mdb”); yeni.Open(); eski.Connection = yeni; eski.CommandText = “SELECT * from kayit”; rdr = eski.ExecuteReader(); string KulAd, Sifre; KulAd = TextBox6.Text; Sifre = TextBox7.Text; while (rdr.Read()) { if (KulAd == Convert.ToString(rdr[“KulAd”]) […]
» Devamını OkuCREATE FUNCTION [dbo].[fn_GSM] ( @deger nvarchar(1000) ) RETURNS @RtnValue table ( GSM nvarchar(10), Durum bit ) AS BEGIN SET @deger = LTRIM(RTRIM(@deger)) DECLARE @karakterler NVARCHAR(10) SET @karakterler = ‘0123456789’ DECLARE @deger_ NVARCHAR(1000) SET @deger_ = ” DECLARE @say INT SET @say = 1 DECLARE @harf NVARCHAR(1) WHILE (@say < = LEN(@deger)) BEGIN SET @harf = '' SET @harf = SUBSTRING(@deger, [...]
» Devamını Oku// show 1,2,3,4,5 message boxes var i: integer; begin for i := 1 to 5 do begin ShowMessage(‘Box: ‘+IntToStr(i)); end; end; var i: integer; begin for i := 5 downto 1 do begin ShowMessage(‘T minus ‘ + IntToStr(i) + ‘seconds’); end; ShowMessage(‘For sequence executed!’); end; var i,j: integer; begin //be aware: //this double loop is executed 4×4=16 times for i:= […]
» Devamını Okuvar MyIcon:TIcon; icoHandle: HIcon; begin MyIcon:=TIcon.Create; try icoHandle := ExtractIcon(application.handle,’c:\windows\explorer.exe’, 0); MyIcon.Handle:=icoHandle; Image1.Picture.Icon:=MyIcon; finally MyIcon.free; end; end;
» Devamını Oku(* This File is Part of the AHM Triton Tools for Borland Delphi and C++ Builder. Copyright (c) 1995 – 1998 AHM Alexander H. Mehlhorn For more Information contact AHM at E-Mail : [email protected] ICQ : 176724 or URL http://www.ahm.co.za AHM is copyright by Alexander H. Mehlhorn All Parts of this Collection were developed, designed and implemented by AHM Under […]
» Devamını Oku