Hallo Technikus,
sprechende Namen solltest du dir angewöhnen. Ich habe dir eine Prüfung in deine Funktion Minimum() eingebaut und die Aktion hinter dem Button4 etwas berichtigt und kommentiert.
Delphi-Quellcode:
...
type
TFeld =
array [1..10000]
of integer;
function Minimum(n: integer;
const x: TFeld): integer;
var
i: integer;
begin
if n < 1
then
raise Exception.Create('
');
Result := x[1];
for i := 2
to n
do
if x[i] < Result
then
Result := x[i];
end;
procedure TForm1.Button4_Berechne_MinClick(Sender: TObject);
var
i: integer;
x: TFeld;
begin
// hier wolltest du bestimmt dein array initialisieren?
// ich übertrage mal alle Werte aus der ersten Datenspalte
for i := 1
to StringGrid1.RowCount - 1
do
x[i] := StrToInt(StringGrid1.Cells[1,i]);
// über Edit1_eingabe_n stellst du die Zeilen in deinem StringGrid ein?
// i enthält jetzt aber schon den richtigen Wert durch das Hochzählen
// i := StrToInt(Edit1_eingabe_n.Text);
// Minimum() ist eine Funktion. Wenn du das Ergebnis nicht verwendest, verfällt es.
Edit2_ergebnis.Text := IntToStr(Minimum(i, x));
end;
...
Grüße vom marabu