Programim 1 defa calissin!!!

[sertkayasalih]

Merhaba degerli kardeslerim;

Delphi'de acemiyim.
XP Pro, Delphi 6 ile calisiyorum.

Forumumuzun ipuçlari bolumunde bulunan kodlari aynen tarif edildigi gibi
yapmama ragmen, formun OnCreate olayinda;

if GlobalFindAtom('PROGRAM_RUNNING') = 0 then
ATOM := GlobalAddAtom('PROGRAM_RUNNING')
else
begin
MessageDlg('Program zaten çalışıyor!', mtWarning, [mbOK], 0);
Halt;
end;
------------------
ATOM dan sonra gelen := isaretinde derleme hatasi aliyorum.

Yardimci olan herkese tesekkürler.

Saygi ve sevgiyle kolay gelsin.

[Berdem]

Merhaba,
Sanırım atom'u variant olarak tanıtmamışsın.Kolay gelsin.

[husonet]

Günaydın

variant Olarak tanıtma işlemi nasıl oluyor.
Cahilliğim için kusura bakmayın.


İyi Çalışmalar.

[mussimsek]

http://www.delphiturkiye.com/ipdiger.htm#sadece_bir_kez

Kolay gelsin.

[mpolat]

Sevgili husonet variant olarak tanıtma begin kısmından önce
var yazıp altına değişkenin adını yazmak ve tipini belirtmek şeklinde oluyor mesela tipi integer olan aratoplam adında bir değişken:

Kod: Tümünü seç

var
aratoplam:integer;
begin
kodlar...
end;

şeklinde tanımlanır

[husonet]

Bu tip şeylere değişken tanımlama dememiz daha açıklayıcı olmazmı. Delphi de yeni başlayan birinin kafasını daha çok karıştırmazmı?

Kod: Tümünü seç

var
     cozum:KarmasikOlma;

[mpolat]

bilmem haklı olabilirsin
sevgiler...

[sertkayasalih]

Merhaba degerli kardeslerim;

Öncelikle ilginiz için tesekkür ederim.
Bu kod örnegini aynen oldugu gibi Formumuzun ipuçlari bölümünden aldim. Fakat benim atladigim bir sey den dolayi calistiramadim.Atom 'u kod blogunun disinda nasil bir degisken olarak tanimlarsam calistirabilirim Integer mi? byte mi? string mi? gibi veya baska bir degisken tanimi mi
Yardimci olursaniz sevinirim

Saygi ve sevgiyle kolay gelsin.

[Berdem]

Kod: Tümünü seç

var
  Form1: TForm1;
  excel:variant;
  atom:variant;
implementation
uses COMObj,unit1, DBTables, DateUtils;
{$R *.dfm}

Merhaba Atom adlı değişkeni yukardaki gibi variant olarak atıyorsunuz.Sonra aşağıdaki kodda from create giriyorsunuz.

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
if GlobalFindAtom('PROGRAM_RUNNING') = 0 then 
ATOM := GlobalAddAtom('PROGRAM_RUNNING') 
else 
begin 
MessageDlg('Program zaten çalışıyor!', mtWarning, [mbOK], 0); 
Halt; 
end; 

Benim gibi yeni öğrenen arkadaşıma kolay gelsin.Husonet arkadaşım gerçektende haklısın anlattıklarımız ayrıntılı ve açıklayıcı olmalı.
Benim anladığım kadarı ile bazı işlevsel olabilecek degişkenler var.Mesela excel ile çalışman gerekiyor o zaman onu tanımlaman gerekiyor.excel adında bir variant(Değişken) olarak ataman gerekiyor.Buna benzer kullanım alanlarında String(Dizi,Karakter) ,İnteger(Sayısal) gibi tanımlayıcıları kullanıyorsun.Benimde aklıma takılan bir soru var neden bu tanımlamalrı atom , excel gibi implementation üstüne yazıyoruz.Onu bilmiyorum .
En İçten Saygılarımla...

[sertkayasalih]

Merhaba,

Atom'u variant olarak tanimladiktan sonra, sorun halledildi.
Yardimlariniz için çok tesekkür ederim.

Saygi ve sevgiyle kolay gelsin.