2 Fragen zu Result

[Die Muhkuh]

Huhu

Ich hab mal Fragen zu Result:

• 1. Was ist das überhaupt?
  2. Was kann man damit machen?

Ich hab schon in der OH gelesen aber ich werd echt nicht schlau draus! Kann mir das jemand mal erklären?

[sakura]

Result ist der Rückgabe-Wert einer Funktion...

Delphi-Quellcode:

function AddThem(a, b: Integer): Integer;
begin
  Result := a + b;
end;

...

ShowMessage(IntToStr(AddThem(5, 6)));

......

[Luckie]

Result ist eine interne Variable, die den Rückgabewert einer Funktion beinhaltet und zurück gibt.

Delphi-Quellcode:

function foo: String;
vsr
  s: String;
begin
  s := 'Hello world.'
  result := s;
end;

Ist identisch mit der alten Pascal Schreibweise:

Delphi-Quellcode:

function foo: String;
vsr
  s: String;
begin
  s := 'Hello world.'
  foo := s;
end;

[Florian H]

Result ist der Rückgabewert einer Funktion.
also von irgendeiner funktion, z.B. IntToStr ist das ergebnis dann das Result.
Normalerweise musst du das nicht wissen, wenn du nur benutzt.

Wenn du nun aber eine eigene Funktion schreibst, ist das natürlich von bedeutung
Ich mach mal ein beispiel:

Delphi-Quellcode:

function Verdoppeln(wert : integer) : integer;  // das 2. Integer ist jetzt der Typ von "result"
begin
  result := wert * 2;  // dem Rückgabewert wird ein Wert zugewiesen
end;

Verständlicher?


EDIT: HRMPF, wieder letzter

[MrKnogge]

du kannst allerdings auch den Nahmen der function hinschreiben...

[Die Muhkuh]

d.h. ich könnt was rechnen lassen:

Delphi-Quellcode:

function Rechnen (a,b,c,d, er: Integer): Integer;
begin
  a := 239;
  b := a * 34;
  c := a * b * 23M;
  d := a * 4 - b / c;
  er := a * b - c + d;
  Result := er;
end;

procedure Form.Show;
begin
  showmessage(inttostr(Rechnen(Result));
end;

Oder versteh ich da was falsch???

[Luckie]

Probier es doch einfach mal aus und kuck was passeirt...

[Die Muhkuh]

Zitat von Luckie:

Probier es doch einfach mal aus und kuck was passeirt...

Ich glaub dsa ist die einfachste Lösung

[Die Muhkuh]

So hab es ausprobiert und bin begeistert!

Mein Code den ich ausprobiert hab:

Delphi-Quellcode:

function Rechnen (a,b: Integer): Integer;
begin
  result := a + b;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := inttostr(Rechnen(strtoint(Edit1.text),strtoint(Edit2.text)));
end;

Ist echt nützlich das Result!

Muss man das denn immer angeben wenn man funktionen schreibt (z.b REchenfunktionen)?

[Florian H]

was angeben?
Du musst der Funktion halt nen Namen geben