Forum: Algorithmen, Datenstrukturen und Klassendesign
by Delphi.Narium,
3. Jan 2018
Und hier procedure TForm1.Button3Click(Sender: TObject);
begin
ForLoop(
procedure(i: Integer)
begin
ShowMessage(i.ToString);
end);
end; hast Du innerhalb von ForLoop( ... ); keine Procedure geschrieben?
Es ist demnach also ein wesentlicher Unterschied, ob man obiges schreibt oder sinngemäß
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Delphi.Narium,
2. Jan 2018
Unter Delphi 7 kann man das so machen:
Type
// Einen Typen festlegen, der den Aufrufparametern der zu "verschleifenden" Funktionen entspricht.
tFormel = function(a : Integer; b : Integer) : LongInt;
// Proceduren würden auch gehen.
tProzeduren = Procedure(a : Integer; b : Integer);
function EineFormel(a : Integer; b : Integer) : LongInt;
begin
Result := a * b;