Delphi Forum

formunuza bir adet maskedit koyun ve Editmask özelliğini;

!>LLL< >LLL< >LLLL<;1;_

şeklinde ayarlayın. Ek olarak başka bir kontrole gerek yok. Kolay gelsin

hoşgeldiniz, önce forum kurallarını okumanızı tavsiye ederim.

Selam tekrar, Access için herhangi birisi çalışır diye ummuştum. Biraz araştırdım kesin bir şey çıkmadı ama bi yerde şöyle yazıyordu; unfortunately, Microsoft Access does not allow you to select rows at random: you can only select a range of records. ama şu linki bir inceleyin, burada farklı bir yol...

merhaba,

viewtopic.php?t=11753
http://www.petefreitag.com/item/466.cfm

bu sayfaları bir inceler misiniz

güzel bir makale olmuş, ellerinize sağlık.

bir de aynı datasource'a bağlı bir dbmemo ile dener misiniz

forumda tray, systray şeklinde arama yapın. pek çok örnek var.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
  for  i:=1  to length(memo1.Lines.text)  do
  begin
  if memo1.lines.text[i]<>memo2.lines.text[i] then
  Showmessage('Farklı');
  end;
end;

şeklinde yapsanız daha sağlam olur

Öncelikle forum kurallarını okuyup başlığınızı konuyu açıklayıcı bir şekilde düzeltmenizi öneririm. Hangi setup programını kullanıyorsunuz. Veritabanını gösterirken Alias mı kullanıyor musunuz, yoksa direk yol mu belirtiyorsunuz? Veritabanının yoluna dikkat edin bundan olabilir. OnCreate olayında ya...

Anladım o zaman sorunun windows kaynaklı olması yüksek ihtimal. Antivirüs program engelliyor olabilir.

Aklıma gelenleri söyleyim. Belki işe yarar. exe'yi silip Delphi'den yeniden compile ettirerek exe'yi yeniden oluşturup bir deneyin. bir de Project->Options->Directories/Conditionals'dan Output Directory'yi Masaüstü seçip bir de o şekilde compile ettirip deneyin. Project->Options->Compiler sekmesinde...

quickrep in datasetini queryniz olacak şekilde ayarladınız mı?

Fields[1] yerine Fields[0] olmalı. Ayrıca Sql.Clear'den önce query'yi Close yapmanızı öneririm.

Kod: Tümünü seç

if not(dm1.Qsorgu.fields[0].isnull) then
dbedit2.Text := formatfloat('#,###.00', dm1.Qsorgu.fields[0].Value)
else
dbedit2.text:='0';

mege'nin dediği gibi Onchange'de yapabilirsiniz. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls,Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) TrackBar1: TTrackBar; Label1: TLabel; procedure TrackBar1Change(Sender: TObject); private { Pri...

204 uygun sonuç bulundu