Einzelnen Beitrag anzeigen

Benutzerbild von leddl
leddl

Registriert seit: 13. Okt 2003
Ort: Künzelsau
1.613 Beiträge
 
Delphi 2006 Professional
 
#21

Re: Procedure, Array als Rückgabewert?

  Alt 12. Jul 2005, 17:48
Falls es dir darum geht das übergene Array umzuwandeln (Das wird mir aus deiner Prozedur nicht ganz klar, da das Array aWert dort nicht benutzt wird), dann übergib doch einfach genau dieses Array als Var-Parameter.

//Edit:
Sprich, es könnte so aussehen:
Delphi-Quellcode:
procedure TForm1.EinWert(aStart,aEnd:Integer;Var Wertigkeit:TIntArray);
Var y :Integer ;
begin
  for y := aStart to aEnd do
  Wertigkeit[y]:=0;
end;

//Aufruf:
  EinWert(0,11,Wertigkeit);
//Edit2:
SetLength aus dem Code entfernt. Das hat da jetzt wirklich nix mehr zu suchen
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;
  Mit Zitat antworten Zitat