Variable über funktionsnamen zurückgeben

[Thorben86]

Hi, ich möchte bei einer selbst definierten Funktion das ergebnis über den Procedurenamen zurückgeben. Kann mir einer sagen, wie ich das mache? :wiejetzt:

Beispiel:

Delphi-Quellcode:

procedure Tf_raten.raten(eingabe,schluessel:string);
begin
...
end;

Hierbei werden eingabe und schluessel beim aufrufen übergeben
Es soll ein String übergeben werden.

[SleepyMaster]

Delphi-Quellcode:

procedure Tf_raten.raten([b]var[/b] eingabe,schluessel:string);
begin
eingabe:='xyz';
end;

[edit=Admin]Delphi-Tags eingefügt. Künftig bitte selber machen. ;-) Mfg, Daniel[/edit]

[Thorben86]

das ist ne möglichkeit

[SleepyMaster]

Joahr! Söllte ed sein! ;)

[Stanlay Hanks]

Hi. Solche Prozeduren nennt man auch Funktionen. :wink: Funktionen geben ihren Rückgabewert im Funktionsnamen (oder in Funktionsinternen Variable "Result", läuft aber glaub ich aufs gleiche raus) zurück.

Bsp:

Delphi-Quellcode:

function Raten(Eingabe, Schlüssel : String) : Boolean; //Rückgabewert angeben, sonst meckert der Compiler (verständlicherweise)
begin
IF
.
.
. //Wenn die Entschlüsselung stimmt
THEN
Raten := true
end;

Aufrufen kannst du das dann mit:

Delphi-Quellcode:

Form1.Visible := Raten('Hallo Welt','Hallo DP'); //Wenn Raten = true dann Form sichtbar.

Man liest sich, Stanlay :hi:

[SleepyMaster]

Bei Functionen kann man aber nur einen Wert zurückgeben, wobei man bei proceduren/functionen bei denen die Werte als Variablen übergeben werden, man beliebig viele übergeben kann.

(Wenn man nur einen Rückgabewert benötigt, dann sind die functionen natürlich wesentlich besser)

[Luckie]

Das ist aber noch die alte Pascal schreibweise. In Delphi sollte man die interne Variable result für die Rückgabe des Fuznktionswertes nutzen.

Delphi-Quellcode:

function: foo: Integer;
begin
  result := 123;
end;

[Stanlay Hanks]

Zitat:

Zitat von Thorben86

Hi, ich möchte bei einer selbst definierten Funktion das ergebnis über den Procedurenamen zurückgeben. Kann mir einer sagen, wie ich das mache? :wiejetzt:
...
Hierbei werden eingabe und schluessel beim aufrufen übergeben
Es soll ein String übergeben werden.

Er will aber einen String zurückgeben, da biete sich doch eine Funktion geradezu an...

@Luckie wusste gar nicht, dass das alte schreibweise ist...tja man lernt nie aus (ich schon gar nicht :wink:) Aber ich hab ja extra in Klammern geschrieben, dass es noch Result gibt.

Man liest sich, Stanlay :hi:

[SleepyMaster]

[EDIT]

[Stanlay Hanks]

Ebenfalls Edit...hat sich geklährt :wink:

[Blechwolf]

Salut,

Ich finde VAR nicht unbedingt ne geschickte Variante um Ergebnisse einer Prozedur etc. zurück zu geben, da dann der vorherige Wert überschrieben wird. Will man den vorherigen Wert behalten, und mehrere Ergebnisse zurück geben, empfiehlt sich die Verwendung von OUT.

Beispiel ? - OK...

Delphi-Quellcode:

procedure CalcLinearRegression(XVals, YVals : array of double; out a,b : double);
// Calculate Linear Regression for the XVals and YVals
// ax + b = y
// a = (n*SumXY-SumX*SumY)/(n*SumXX-SumX^2)
// b = (SumY*SumXX-SumX*SumXY)/(n*SumXX-SumX^2)
var
  PointNb   : Integer;
  Nominator : double;
  SumX      : Double;
  SumXX     : Double;
  SumY    : Double;
  SumXY   : Double;
  i       : integer;
begin
  SumX := 0;
  SumXX := 0;
  SumY := 0;
  SumXY := 0;
  PointNb := Length(XVals);
  for i := 0 to PointNb-1 do
    begin
   SumX := SumX+XVals[i];
      SumY := SumY+YVals[i];
      SumXX := SumXX+XVals[i]*XVals[i];
      SumXY := SumXY+XVals[i]*YVals[i];
    end;

  Nominator := (PointNb*SumXX-SumX*SumX);

  a := (PointNb*SumXY-SumX*SumY)/Nominator;
  b := (SumY*SumXX-SumX*SumXY)/Nominator;
end;

Grüße

Wolf http://www-users.rwth-aachen.de/wolf...tballSmile.gif

P.S.: Eigentlich wollte ich noch nen Kommentar zum Thema Besserwisser schreiben, aber der wurde mir schonmal weg zensiert...