Hallo floralis,
Zitat von
floralis:
Nun müssen wir als Beleg daraus ein Unterprogramm machen. ... Wer kann mir da helfen und ggf. ein richtiges Unterprogramm liefern???
gibt es etwas schöneres als den Erfolg aus eigener Kraft? Ich will dich jetzt nicht um dieses Erlebnis bringen, aber ein paar Hinweise sollst du bekommen.
Zuerst musst du dir eine Signatur für dein Unterprogramm überlegen. Da es nicht den einen Rückgabewert gibt, der in einer anderen Funktion weiter verwendet werden soll, schlage ich eine Prozedur vor. Dein Unterprogramm muss informiert werden, wo es den kleinsten und den größten Wert suchen muss und wie es das Ergebnis zurückmelden kann.
procedure MinMax(sg: TStringGrid; iCol: Integer; var iMin, iMax: Integer);
Mit dieser Signatur werden alle nötigen Informationen übergegeben. Das Grid sg, in dessen Spalte iCol die Werte zu suchen sind, und die Variablen iMin und iMax, in denen der Zeilenindex der gefundenen Extrema zurück gemeldet werden kann.
Leg los - du schaffst das.
Grüße vom marabu