Minimum Suche im StringGrid

[Technikus]

Guten Morgen,

ich habe -dank euch- eine Lösung gefunden.
diese hat auch funktioniert.

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;

var
n,i,min: integer;
x:Tfeld;
procedure TForm1.Button4_Berechne_MinClick(Sender: TObject);
begin
   n:= StrToInt (Edit1_eingabe_n.Text);
   for i:=1 to n do
    x[i]:=StrToInt(StringGrid1.Cells[1,i]);
    minimum(n,x);
  Edit2_ergebnis.Text:=IntToStr (minimum(n, x))
end;

nochmal Dank an Euch, bis zum nächsten Problem,
Technikus