#AsuultSambar :

dotor ni yamar function baiga ni medegdej baina. harin ooroor yu ch medegdehgvi l baina. Oor arga baina uu..

ZA neg yum hiih gesen chine ih onovchtoi shiddeggvi ee. Ene tal deer tuslaach.

A[0..N] хэмжээст массивт N тооны тэмдэгт давхардахгүйгээр байрлана. B[0..2,0..N] массивт A[0..N] массив дахь И тэмдэгтийг B массивийн 3 мөрөнд тэмдэгт давхардуулахгүйгээр байрлуулах код хэрэгтэй байна.

Баахан давталт ашиглаад болож л байна л да. Гэхдээ хурдан хийх код хэрэгтэй байгаан энэ нь form ийн show үзэгдэлдээр хийгдэх юм байгаан. Энүүндээр та нар яаж шийдэх вэ саналаа нэмэрлээрээ.

for j:=0 to n do
begin
а[0,j]:=0; а[1,j]:=0; а[2,j]:=0;
end;

for i:=0 to 2 do
for J := 0 to n do
begin
value:=true;
while value=true do
begin
randomize;
k:=random(n);
if b[i,k]=0 then
begin
b[i,k]:=j; value:=false;
end
else value:=true;
end;
end;

би энгэж хйисэн юм. Ачаалахдаа удаад байгаан.

n тооны тэмдэгт чинь өгөгдөх юм уу зүгээр л N тооноос санамсаргүйгээр сонгож байрлуулах юм уу.

Яг шулуундаа шууд N тоотой массив үүсгээд элемэнтүүдээ байрлуулчих.

тэгээд шууд массиваасаа санамсаргүй сонгоод массиваа хасаад яваад байна.
Ингэвэл илүү хурдан болох боломжтой юм шиг санагдлаа.

чиний кодын гол удааж байгаа хэсэг for биш тэр random.
Энэ функц ойролцоо утга маш их гаргадаг.
Жишээ: n=10 гээд өглөө гэхэд эхлээд 2 гарна дараа нь ахиад 2 гарна гэх мэт магадлал нь маш их(функц маань өөрөө ийм. Бага тоотой бол үрч их).
Тиймээс ахиж 2 гаргахгй байхын тулд дээрх зөвлөмжийг туршиж үзэх хэрэгтэй.

_________________
http://www.sanakae.com/

Sain baina uu.

Findwindow functs tntform -toi tohirj ajillahgui yum yahuu??

jishee ni handle := FindWindowW('TTntForm1', nil); geheer handle-g avahgui baina.

Please.

чи минь юу хийх гээд энд тэнд янз янзын юм асуугаад яваад байгаам дээ

Spy++ билүү чиний нээсэн бүх цонхны handle-үүдийг нэртэй нь гаргадаг tool байдаг. тэрүүгээр яг формынх нь нэрийг мэдээд авчих.

spy++ gej yu yum function yumuu yaj ajilluulah ve

n тооны text database-c авах юм байгаан.
массиваасаа санамсаргүй сонгоод массиваа хасаад яваад байна. гэхээр чинэ массиваа яаж ахсна гэсэн үг вэ. Жишээ жижигхэн юм бичэж өгч тус болооч.

http://www.windows-spy.com/files/Winspector_setupU.exe

Ene spy uneheer heregtei program baina. mash ih bayarlalaa.

yamar negen unegui delphi 7-n skin baina uu zalusa. HELP

http://share.gogo.mn/f7ANaY2wxJ54641256 ... CLSkin.rar

Zluusa mini form 4 timer zereg ajillah heregtei bolood baina l da. tegeed ter timer olon baiga bolood ch teruu CPU 10-50 iin hoorond helbelzvvled baina l da. Yamar arga baina ve.
Deer haana ch bilee timer ashiglahgvigeer orond ni CPU baga achaallahaar codloj boldog gesen baisan sanagdahin haigaad oldoggvi ee.

za tegeed 2 dahi asuudal / DLL - d yamar negen file hadgalah gesiin yaaj hadgaldag yum be. Jishee ni zurag ch yumu oor yamar neg yumnuud

hi TemkaaZ,
http://share.gogo.mn/f7ANaY2wxJ54641256 ... CLSkin.rar ene neg l boldgu yaj hih talaar zuvluguu baina u.

delphi 7 deer ene skin suuhgui baina

Sain baina uu.

IdTcpServer, IdTcpClient componentiig ashiglaad yaj file soliltsoh ve. bolj ugvul jishee code tavij tuslaarai. neg l boldgu.

Sain baina uu.

IdTcpServer, IdTcpClient componentiig ashiglaad yaj file soliltsoh ve. bolj ugvul jishee code tavij tuslaarai. neg l boldgu.

procedure TForm1.Button1Click(Sender: TObject);
var
xfile : TFileStream;
begin
IdTCPClient1.Host := Edit1.Text;
idTCPClient1.Connect(1000);

if OpenDialog1.Execute then
begin
ser.fname := ExtractFileName(OpenDialog1.FileName);
xfile := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
end;

FreeAndNil(xfile);
IdTCPClient1.WriteFile(OpenDialog1.FileName);
IdTCPClient1.Disconnect;
end;

ene code file yavuulahaar gatsaad baihiin gatsahguigeeer idTcpClient -g ashiglaad yaj file soliltsoh ve.
PLEASE

bi delphi surahaas argagui bolchloo... beginner level-iin sain ebook bval link ene ter taviach, bas Delphi 2009 ch crack-tai esvel serial, er ni full bval download link tavij tuslaach plz

_________________
I know that I don't know...

Энэ Marco Cantu-гийн маш сайн ном эхлэгчдэд.
http://www.megaupload.com/?d=Z84RLLOK
эндээс татаж аваарай

өөр бас номнууд

Mastering for Delphi 6
http://rapidshare.com/files/128913025/M ... LPHI_6.rar

SAM Developer Guide for Delphi 6
http://rapidshare.com/files/129655395/S ... _Guide.rar


Borland Delphi Developer Guide 6
http://rapidshare.com/files/128911737/O ... oper_6.rar


Marco Cantu's Essential_Delphi_PDF
http://rapidshare.com/files/128911924/E ... hi_103.pdf


Tomes of Delphi - Algorithms and Data Structures.
http://rapidshare.com/files/128910392/T ... ctures.rar


Tomes of Delphi - Basic 32-bit Communications Programming (2003).
http://rapidshare.com/files/128910083/T ... _2003_.rar


Tomes of Delphi - Developer's Guide to Troubleshooting
http://rapidshare.com/files/128909723/T ... ooting.rar


Tomes of Delphi - Win32 Database Developer's Guide
http://rapidshare.com/files/128909548/T ... _Guide.rar


Borland® Delphi 8 for .NET
http://rapidshare.com/files/128910890/B ... r_.NET.rar


Migrating Borland Delphi applications to the Microsoft .NET Framework with Delphi 8
http://rapidshare.com/files/128910521/M ... lphi_8.rar

delphi 2009 heregledeg humuus bna u? Unicode demjihgu ih zovlon boloh yum. Delphi 7g shinchleh sanaatai.
Yur ni ene delphi deer mongoliin tom tom programuud bichigdsen jishee ni EBS bna 10n jiliin buh surguuli hergeldeg

_________________
Мөрөөдлийн зүг...

procedure TForm1.Button1Click(Sender: TObject);
var
xfile : TFileStream;
begin
IdTCPClient1.Host := Edit1.Text;
idTCPClient1.Connect(1000);

if OpenDialog1.Execute then
begin
xfile := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
end;

FreeAndNil(xfile);
IdTCPClient1.WriteFile(OpenDialog1.FileName);
IdTCPClient1.Disconnect;
end;

ene code gatsaad baina yaj saijruulah ve help me.

Би delphi 2009, 2010 г суулгаад програм бичиж байна. unicode ямарч асуудалгүй дэмжиж байгаа

delphi дээр эхний шатанад F1 гэж гайхалтай ebook байдгийн.
Хамгийн эхний хийх ажил тооны машин.
Тэгээд л явж өгнө шүү дээ

_________________
http://www.sanakae.com/

сайн уу надад өөрөөс тань лавлах юм байна тэр cd-ний хамгаалалтын талаар бичсэн дипломны талаар