Hallo Leute,
habe wieder mal ein kleines Problem...
Ich habe hier 2 Proceduren.
Nun möchte ich den Wert a an die Procedure test liefern und möchte dann den Wert b zurückgeliefert bekommen...
Das klappt aber irgendwie nicht
Kann mir jemand helfen?

zusammenfalten · markieren

Delphi-Quellcode:

procedure test (a :integer; var b,c : integer);
begin
b := a div 2;
c := a mod 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
a := 5;
edit2.Text:= inttostr (test (a,b)); //daran ist was falsch :)
end;

test hat 3 Paramter, du übergibst aber nur 2.

b & c sollen ja auch ausgerechtnet werden....

was du willst ist wohl eine function
EDIT:
edit2.Text:= inttostr (test (a,b)); //daran ist was falsch :) kann ja net gehen wenn dann so etwa:

markieren

Delphi-Quellcode:

test (a,b,c)
edit2.Text:= inttostr (a)+' - '+inttostr (b);

nein ich möchte c später zurück geliefert bekommen

z.b. in edit3...

Es gibt einen Unterschied zwischen Funktionen und Prozeduren. Erstere liefern einen Wert zurück, zweitere erhalten nur Werte (können aber über die Parameter auch Variablen verändern - Betonung auf "verändern").
Du mixt jetzt irgendwie (warum auch immer) beides durcheinander: Du deklarierst eine Prozedur mit 2 Var-Parametern, erwartest aber plötzlich einen Rückgabewert. Das kann einfach nicht funktionieren, da du ja schließlich eine Prozedur, und keine Funktion hast. Daher mußt du eben den fehlenden Parameter noch mit übergeben und diesen dann gesondert auswerten.
Du mußt ja schließlich deine Parametervorgaben auch einhalten, wo kämen wir denn sonst hin?

@TeronG
Eine Funktion kann aber nur ein wert zurückgeben.

@netscanner
Du mußt trotzdem alle def. Paramter angeben. Woher soll er den a sonst wissen?

siehe oben ^^

Zitat von TeronG:

EDIT:
edit2.Text:= inttostr (test (a,b)); //daran ist was falsch :) kann ja net gehen wenn dann so etwa:

markieren

Delphi-Quellcode:

test (a,b,c) ;
edit2.Text:= inttostr (a)+' - '+inttostr (b);

Noch n EDIT:

Zitat von mkinzler:

@TeronG
Eine Funktion kann aber nur ein wert zurückgeben.

dann bau ich mir n Type die aus 2 Integern besteht ^^

//EDIT: roter Kasten, wo bist du???
// Erklärungen: s. Leddl's Post
Versuchs mal so (ungetestet):

zusammenfalten · markieren

Delphi-Quellcode:

procedure test (a :integer; var b,c : integer);
begin
b := a div 2;
c := a mod 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a : integer;
begin
  a := 5;
  test(a,b,c);
  edit2.Text := inttostr(a);
  edit3.Text := inttostr(b);
  edit4.Text := inttostr(c);
end;

Zitat:

nein ich möchte c später zurück geliefert bekommen

Dann kannst du div und mod gleich direkt aufrufen