@ Hansa
zu deiner Frage: Wieso ist da kein Rückgabewert.
Eine Funktion liefert einen Rückgabewert
Delphi-Quellcode:
function Test : integer;
begin
result := 5;
end;
Diese Funktion hat einen Rückgabewert vom Typ Integer mit dem Wert 5.
Eine Prozedur hat keinen Rückgabewert
Delphi-Quellcode:
procedure Test (VAR i : integer);
begin
i := 5;
end;
Diese Prozedur hat keinen Rückgabewert, sondern sie pinselt hier nur den Wert 5 in die Adresse der Variable die du ihr Übergibst.
Deshalb kannst du auch nicht das machen:
Delphi-Quellcode:
begin
showmessage (IntToStr (Test (8));
end;
Das würde funktionieren:
Delphi-Quellcode:
var i : integer;
begin
i := 2;
Test (i);
showmessage (IntToStr (i);
end;
In der Messagebox würde eine 5 stehen.
Alles klar?
mfg Daniel