نکات برنامه نویسی در دلفی

[MaRdoNiuS]

اضافه کردن تکست به Log Files
کد:
function AddTextToFile(const aFileName, aText: string; AddCRLF: Boolean): Boolean;var lF: Integer; lS: string;begin Result := False; if FileExists(aFileName) then lF := FileOpen(aFileName, fmOpenWrite + fmShareDenyNone) else lF := FileCreate(aFileName); if (lF >= 0) then try FileSeek(lF, 0, 2); if AddCRLF then lS := aText + #13#10else lS := aText; FileWrite(lF, lS[1], Length(lS)); finally FileClose(lF); end;end;
[/b]

[MaRdoNiuS]

دیالوگ برای Select Directory
کد:
uses FileCtrl; // for SelectDirectoryvar Dir: string; (...) Dir := 'C:\Windows'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then Label1.Caption := Dir;

__________________

[MaRdoNiuS]

روش چرخاندن یک نقطه در فضای دو بعدی حول یک نقطه دوبعدی دیگر:


کد:
const PIDiv180 = 0.017453292519943295769236907684886; procedure Rotate(RotAng: Double; x, y, ox, oy: Double; var Nx, Ny: Double); begin Rotate(RotAng, x - ox, y - oy, Nx, Ny); Nx := Nx + ox; Ny := Ny + oy; end; (* End Of Rotate Cartesian Point About Origin *) procedure Rotate(RotAng: Double; x, y: Double; var Nx, Ny: Double); var SinVal: Double; CosVal: Double; begin RotAng := RotAng * PIDiv180; SinVal := Sin(RotAng); CosVal := Cos(RotAng); Nx := x * CosVal - y * SinVal; Ny := y * CosVal + x * SinVal; end;

[MaRdoNiuS]

Screen Shots
با استفاده از این کد میتوانید تصویر Screen را در یک فایل Bitmap ذخیره نمائید. اگر نمیخواهید از یک برنامه فعال دلفی استفاده کنید میتوانید یک 'Application.Minimize;' در Beginning پروسیجر وارد کنید.

کد:
uses Windows, Graphics, Forms;procedure TForm1.Button1Click(Sender: TObject);var DC: HDC; Canvas: TCanvas; MyBitmap: TBitmap;begin Canvas := TCanvas.Create; MyBitmap := TBitmap.Create; DC := GetDC(0); try Canvas.Handle := DC; with Screen do begin { detect the actual height and with of the screen } MyBitmap.Width := Width; MyBitmap.Height := Height; { copy the screen content to the bitmap } MyBitmap.Canvas.CopyRect(Rect(0, 0, Width, Height), Canvas, Rect(0, 0, Width, Height)); { stream the bitmap to disk } MyBitmap.SaveToFile('c:\windows\desktop\screen.bmp '); end; finally { free memory } ReleaseDC(0, DC); MyBitmap.Free; Canvas.Free end;end;

[arefi]

باسلام و تشکر از اطلاعاتی که در اختیار کاربران همچون من قرارمیدهید.
خیلی جالب بود.
دوتا سوال داشتم اول اینکه در بانکهای اطلاعاتی در دلفی چگونه میتوان در یک ado کل اطلاعات یک بانک را حذف کرد . و دوم اینکه در یک ADO چگونه میتوان اطلاعات کامل یک بانک را در یک بانک دیگر که تمام و یا اکثر فیلدها مشابه هستند کپی کرد.
با تشکر

[AHMAD KALANTAR]

narm afzaresh ra baram beferest

[Silver PC]

سلام
نمیدونم اینو باید کجا میگفتم ولی دیگه همینجا گفتم
کدهایی میگذارید خیلی در هم ، برهمه
لطفا در Tag Codقرار بدید تا معلوم بشه چی به چیه