Hex -> Decimal, Decimal -> Hex çevrimi

// Hex -> Decimal
function ConvertToDecimal(const hexValue: Integer): string;
begin
Result := Format(‘%d’, [hexValue]);
end;

// Decimal -> Hex
function ConvertTohex(const DecimalValue: Integer): string;
begin
Result := Format(‘%x’, [DecimalValue]);
end;

46 views

Program içerisinden standart (Paradox, Dbase) alias yaratmak, silmek

// Paradox icin (Tsession Data Access paletinde bulunabilir)
Session1.AddStandardAlias(‘ALIAS_ADI’, ‘c:\data’, ‘paradox’);

// Dbase icin
Session1.AddStandardAlias(‘ALIAS_ADI’, ‘c:\data’, ‘dbase’);

{
Bu islemlerden sonra SaveConfigFile metodunu cagirip
yarattiginiz alias’i kaydetmelisiniz.
}
Session1.SaveConfigFile;

// Alias silmek icin
Session.DeleteAlias(‘ALIAS_ADI’);

6 views

StringGrid’de elemanları istenilen yöne dayanmış ÅŸekilde yazdırmak

{
Bu islemle ilgili bir ornek program Programlar bolumunde
bulunmaktadir
}

procedure DrawCell(const Value: String; const Rect: TRect;
vCanvas: TCanvas; vFont: TFont; vAlignment: TAlignment);
VAR X : Integer;
BEGIN
vCanvas.Font := vFont;
CASE vAlignment OF
taRightJustify : BEGIN
SetTextAlign(vCanvas.Handle, TA_RIGHT);
X := Rect.Right-2;
END;

73 views

Sistemdeki tarih ayracını almak

uses IniFiles;

function GetDateSeperator: string;
var
IniFile: TIniFile;
begin
IniFile := TIniFile.Create(‘win.ini’);
try
Result := IniFile.ReadString(‘intl’, ‘sDate’, ‘.’);
finally
IniFile.Free;
end;
end;

4 views

Ekran koruyucuyu program içerisinden cağırmak ve ekran koruyucu devreye girdiğinde haberdar olmak

{
Bazi durumlarda programiniz calisirken ekran koruyucunun devreye
girmesini istemeyebilirsiniz ekran koruyucunun islemci kullanimini
artirmasindan dolayi. Özellikle kullanicinin islem yapmadigi
fakat programin devamli isler yaptigi (Seri Porttan veri transferi vb)
durumlarda faydali olabilir.
}

uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;

type

0 views

Programda menünün aktif olup olmadığını anlamak

const
WM_EXITMENULOOP = $212;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Test1: TMenuItem;
ItemA1: TMenuItem;
ItemB1: TMenuItem;
ItemC1: TMenuItem;
private
{ Private declarations }

2 views

Ä°bni Haldun

Ä°bni Haldun

Ä°BNÄ° HALDUN KÄ°MDÄ°R?
Ãœlker Nihal Manaz – Dr Abdullah Manaz

Ünlü İslam Bilgini İbni Haldun, 1332 yılında Tunusta doğdu. Geçmişte birçok önemli devlet ve bilim adamı yetiştirmiş bir aileye mensuptu.

12 views

Paradox veya DBase tablosunu Pack etmek (Daha etkili ve güvenli bir yol)

{
Bu ornegi Borland’in Online BDE Reference Yardim dosyasinda
buldum. Gerek Paradox, gerekse Dbase icin problemsiz calisiyor.
Oncelikle tablonun exclusive (sadece bir kisinin acma izninin olmasi) sekilde acilmasi gerekli. Programlar bolumunde
bununla ilgili bir ornek program da bulabilirsiniz.
}

uses BDE;

5 views

Text’i saga, sola ve ortaya gelecek ÅŸekilde formatlı ÅŸekilde yazmak

{
Bit metin dosyasina verileri yazarken bu verileri formatlamak gerekir. Ornegin bir alan icin 10 karakterlik yer ayrilmissa ve bu alanda bulunan veri 3 karakterse kalanlari bosluk karakteri ile doldurmak gerekir. Ayrica verinin uzunlugu max karakterden fazla ise belli bir yerden sonra kesmek dogru olacaktir. Asagidaki fonksiyonu bu amac icin kullanabilirsiniz.
Ornegi inceleyiniz.
}

1 views

Aktif İnternet Explorer penceresindeki adres bilgisinin alınması

function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));

33 views