Minimum Suche im StringGrid

[marabu]

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