Function içinde birden fazla parametre result etmek

[delphist]

S.a. Arkadaşlar normal function lar yazabiliyorum ancak sadece tek bir parametre result edebiliyorum ve functionlarımın çoğunu ortak kullanım amacından dolayı dll içerisinde tutuyorum...Birden fazla parametre geri döndüner function nasıl yaparım. Örnekle açıklayabilirseniz çok memnun olurum. Teşekkür ederim.

[unicorn64]

iki farklı yöntem kullanabilirsin.birincisi record tanımlama yaparsın ve record içinde geri değer döndüreceğin tipleri belirtirsin. fonksiyon içinde bu record tipinden bi değişkene dönecek değerleri atar ve o değişkeni gönderirsin.
ikincisi fonksiyon tanımında parametreleri yazarken başlarına var yazarsın. fonksiyona gönderdiğin parametrelerin değerini fonksiyon içinde değiştirdiğinde geriye dönüşte gönderdiğin parametrenin de değeri değişmiş olur.
biraz karmaşık oldu sanırım. örnek vermeye çalışayım.

Kod: Tümünü seç

type 
donecekdegerler=record
 karesi:double;
 kubu:double;
end;


function kare_kup_al (sayi:double):donecekdegerler;
var deger:donecekdegerler;
begin

deger.karesi:=sayi*sayi;
deger.kubu:=sayi*sayi*sayi;

result:=deger;
end;

yada

Kod: Tümünü seç

procedure kare_kup_al(sayi:double,var kare:double,var kup:double);
begin
   kare:=sayi*sayi;
   kup:=sayi*sayi*sayi;
end;

sonrada mesela buton1 in click olayında

Kod: Tümünü seç

kare_kup_al(3.0,karesi,kubu); //karesi ve kubu yerel değişken mesela

label1.caption:=floattostr(karesi);
label2.caption:=floattostr(kubu);

[mkysoft]

Teşekkürler, bende bu "var" ne işe yarıyor diye düşünüyordum. Bu arada sizde şimdilik konya yazmışsınız

[fduman]

out ile de sadece veri döndürürsünüz. Parametre değeri geçemezsiniz.

Kod: Tümünü seç

procedure Test(out p1, p2: string);
begin
  p1:= 'Test1';
  p2:= 'Test2';
end;

var
  t1, t2: string;
begin
   Test(t1, t2);
end;

[delphist]

S.a. Arkadaşlar verdiğiniz bilgiler için teşekkür ederim. Ama ben hala dll de yazdığım bir function geriye birden fazla nasıl değer döndüreceğini ve benim nasıl alacağımı anlayamadım. Belkide hiç yapmadığımdandır...Vaktiniz varsa açıklayabilirsiniz sevinirim. Teşekkürler

[delphist]

S.a. Arkadaşlar...Bu konuya açıklık getirecek arkadaş varsa çok memnun olacağım...Teşekkür ederim.

[unicorn64]

ben de zaten out daha doğrusu var la parametre aktarırız dememiştim. prosedür e gönderilen değişkene prosedür içinde değer aktarılarak bu değişken üzerinden değer döndürülmüş olur demiştim.

evet @mkysoft şimdilik konya. selçuk üniversitesi bilgisayar mühendisliği son sınıf. nasipse bu sene biticek.

[mrmarman]

@delphist

Açıklamalar oldukça açık aslında...

Örnek :

project2.dll içeriği

Kod: Tümünü seç

Function Islem( a,b : Integer;Var c,d:Integer):Integer;
begin
  c := a+b;
  d := a*b;
  result := c+d;
end;

  Exports Islem;

- Ana programımızda kullanımı ise şöyle..

Kod: Tümünü seç

Function Islem( a,b : Integer;Var c,d:Integer):Integer;
  External 'Project2.dll';

procedure TForm1.Button1Click(Sender: TObject);
Var
  a,b,c,d,e : Integer;
begin
  a := 2;
  b := 3;
  c := 0;
  d := 0;
  e := 0;

  e := Islem(a,b,c,d);
  ShowMessageFmt('%d, %d, %d', [c, d, e])
end;

[delphist]

@mrman abi...gayet iyi anladım şimdi...Teşekkür ederim açıklamandan dolayı...Eyvallah...