Mesaj yazacak function nasıl yaparım.

[Shou]

Merhabalar şöyle bir function yapmak istiyorum yardımcı olursanız sevinirim. anlatayım,

Kod: Tümünü seç

mesajgonder('selam naber.');

gibi misal bunu yazdıgımda,

Kod: Tümünü seç

showmessage('gelenmesaj');

function içinde showmessage olarak bana mesajı söylesin şimdiden teşekkürler..

[coderserdar]

Kod: Tümünü seç

function MesajYazdir(a: string): Integer;
begin
  ShowMessage(a);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  MesajYazdir(btn1.Caption);
end;

butona tıklayınca butonun üzerinde yazan metni yazdıracak şekilde örneklendirmeye çalıştım

[Shou]

çok tşk ederim kardeş.

[Shou]

fakat bir problem var abi

Kod: Tümünü seç

listbox1.items.add('sasasaas');

yapıyorum button'da çalışıyo ama fonksiyon da hata verıor listbox1 neden??

[coderserdar]

yapmaya çalıştığın şey nedir?
ona göre yardımcı olmaya çalışayım

[coderserdar]

Kod: Tümünü seç

function MyFunction(a: string): Integer;
begin
  ShowMessage(a);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  MyFunction(btn1.Caption);
  DateTimePicker1.DateTime := Now;
  lbx1.Items.Add(btn1.Caption);
  MyFunction(lbx1.Items[0]);
end;

burada önce listbox'a (lbx1 ile adlandırılan) değer eklenip sonra da o değer gösteriliyor

[Shou]

ListBox1 hata veriyor bakarmısın ;

Kod: Tümünü seç

function MyFunction(a: string): Integer;
begin
 ListBox1.Items.Add(a);
end;

abi böyle birşey yapmak istiyorum ama olmuyor?

[unicorn64]

@coderserdar ın verdiği örnekte MesajYazdir fonksiyonu form sınıfı içinde tanımlanmadığı için MesajYazdir içinde listbox1 i tanımaz.
tanımlamayı şu şekilde yaparsanız

Kod: Tümünü seç

TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
  public
    function MesajYazdir(a: string): Integer; //MesajYazdir fonksiyonu TForm1 sınıfı içinde tanımlandığından 
                                                           // formdaki nesnelere erişebilir...
  end;

Kod: Tümünü seç

function TForm1.MesajYazdir(a: string): Integer;
begin
    ListBox1.Items.Add(a);
  ShowMessage(a);
end;

[coderserdar]

ben genel amaçlı bir kullanımı olur diye herhangi bir forma bağlamadım ama unicorn64 haklı eğer tek bir formda kullanılacaksa başına form adı da eklenmeli

[Shou]

Kod: Tümünü seç

function MyFunction(a: string): Integer;
begin
  ShowMessage(a);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  MyFunction(btn1.Caption);
  DateTimePicker1.DateTime := Now;
  lbx1.Items.Add(btn1.Caption);
  MyFunction(lbx1.Items[0]);
end;

bu kod nasıl çalışıyor anlamadım abi ya :S

[Shou]

ben 10 ayrı yerde mesaj yazmak için kullanıcam bunu nasıl olucak bunu yapamadım?

[coderserdar]

eğer aynı formun içerisinde farklı yerlerde kullancaksanız

Kod: Tümünü seç

function Form1.MyFunction(a: string): Integer;
begin
  ShowMessage(a);
end;

şeklinde tanımlamalısınız
ve listbox'a eklenen her item'ı yazdırmak istiyorsanız
önce ekleyip sonrasında ise bu fonksiyonu çalıştırmanız gerekir

mesela döngü ile birden ona kadar olan sayıları listbox'A eklemek için şöyle bir kod gerekir

Kod: Tümünü seç

for i := 0 to 10 do
  begin
    lbx1.Items.Add('asdf');
    MyFunction(lbx1.Items[i]);
  end;

burada önce listbox'A ekleme işlemi yapıyor
sonrasında da listbox'a eklenen elemanı fonksiyona parametre olarak göndererek ekrana yazdırıyor

[Shou]

Abi ben aynı form da kullanıcamda mesela ben bunu ayrı ayrı yerlerde kullanıcam misal timer1 de button5 de şöyle örnek veriyim ;

Kod: Tümünü seç

mesajgonder('1');

ve

Kod: Tümünü seç

mesajgonder('3');

1,3 olan yerler ayrı ayrı mesajlar bunu lixtbox eklıcek o toplucak hepsini form kapatırken kaydedıcem.

[unicorn64]

verdiğim örneğe bakarsan zaten işini görüyor... tanımlamayı önceki mesajda verdiğim gibi yaptıktan sonra geriye sadece tanımladığın fonksiyonu istediğin yerde kullanmak kalır...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
   MesajYazdir('1');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  MesajYazdir('3');
end;

[Shou]

çok teşekkür ettim oldu kardeş. ama dll da puplic bunu ekleyince kabul etmiyor bakarmısın?

Kod: Tümünü seç

function GD(log: string): integer;

ne yapmam lazım??