Mehrfacher Prozeduraufruf in for-Schleife

[Union]

Delphi-Quellcode:

procedure myproc(var a:integer; var b:string; const Start, i, Ende : integer)

begin

if i = Start then 
begin
   //diese Anweisungen sollen nur einmal am Anfang ausgeführt werden
end
else
if i = Ende then
begin
   //diese Anweisungen sollen nur am Ende ausgeführt werden
end
else
begin
   //diese Anweisungen sollen immer ausgeführt werden
end;


end;

Der Aufruf der Prozedur in der for-Schleife sieht dann so aus:

Delphi-Quellcode:

for i := 0 to anzahl-1 do 
begin
 myproc(x,item[i],0,i,Anzahl-1);
end;