Hallo! (Delphi2005 Prof)
ich möchte ein Unterprogramm "minimum" in einer Prozedur "Berechne" aufrufen und den Wert über ein Edit-Feld aufrufen.
Die Ausgabe klappt leider nicht. Kann mir jemand bei der Fehlersuche helfen und diesen bitte kurz erklären.
Ich übe noch.
Delphi-Quellcode:
...
type
Tfeld= array[1..10000]of integer;
function minimum(n:integer;x:Tfeld):integer;
var
i,min:integer;
begin
min:=x[1];
for i:=2 to n do
if x[i]< min then
min:=x[i];
minimum:= min
end;
procedure TForm1.Button4_Berechne_MinClick(Sender: TObject);
var
n,i,min: integer;
x:Tfeld;
begin
x[i]:=StrToInt(StringGrid1.Cells[1,i]);
n:= StrToInt (Edit1_eingabe_n.Text);
minimum(n,x);
Edit2_ergebnis.Text:=IntToStr (x[i]);
end;
...
Ich danke euch im voraus
Technikus