Einzelnen Beitrag anzeigen

JoKi07

Registriert seit: 18. Jan 2024
1 Beiträge
 
#1

Function die mit einem Array rechnet in einer porcedure aufrufen

  Alt 18. Jan 2024, 19:57
Hallo an alle,
dies ist der Code einer Hausaufgabe die ich in Delphi für die Schule erledigen muss.
Meine Aufgabe ist es die Summe eines Arrays ausgeben zu lassen.
Meine folgende Frage ist nun warum der code nicht so funktioniert, der Fehler ist bei "L_Summe.Caption:=floattostr(summeArray(zahl): array of integer);" da wird mir der Doppelpunkt makiert.
Mit den jeweiligen auskommentierten, funktioniert es so wie es soll aber wieso nicht mit dem nicht auskommentierten?
Währe cool wenn mir jemand erklären könnte wo mein Problem dabei liegt oder geht es so gar nicht?
Vielen Dank im Vorraus.
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    B_ArraySumClick: TButton;
    B_Zufallszahlen: TButton;
    B_Speichern: TButton;
    SG_Tab1: TStringGrid;
    L_Summe: TLabel;
    procedure B_ZufallszahlenClick(Sender: TObject);
    procedure B_SpeichernClick(Sender: TObject);
    procedure B_ArraySumClickClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    zahl:array[1..5] of integer;
    function summeArray (zahl: array of Integer) :integer;
    //function summeArray :integer;
end;
 type
  zahl = array of string;
var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.summeArray(zahl:array of Integer): integer;
//function TForm1.summeArray :integer;
var
i,sum:integer;
  begin
    sum:=0;
   for i := 1 to 5 do
      begin
      sum:=sum+zahl[i]
      end;
      result:=sum;
  end;

procedure TForm1.B_ArraySumClickClick(Sender: TObject);
begin
L_Summe.Caption:=floattostr(summeArray(zahl): array of integer);
//L_Summe.Caption:=floattostr(summeArray);
end;

procedure TForm1.B_SpeichernClick(Sender: TObject);
var
i: integer;
begin
  for i := 1 to 5 do
    begin
      zahl[i]:=Strtoint(SG_Tab1.Cells[i-1,0]);
    end;
end;

procedure TForm1.B_ZufallszahlenClick(Sender: TObject);
var
i:integer;
begin
randomize;
 for i := 1 to 5 do
  begin
    SG_Tab1.Cells[i-1,0]:=inttostr(random(50));
  end;
end;

end.
  Mit Zitat antworten Zitat