Unterprogramm mit Stringgrid

[Klaus01]

procedure MinMax(sg: TStringGrid; iCol: Integer; var iMin, iMax: Integer; var iName_max, iVorName_min, iName_min, iVorName_min:String); Der Aufruf sollte dann so aussehen:

min,max : Integer;
NachName_max,VorName_max,NachName_min,VorName_min: String;

MinMax(StringGrid_daten,3,min,max,NachName_max,Vor Name_max,NachName_min,VorName_max);


Das StringGrid mußt Du doch nicht in Deinem Unterprogramm erstellen, sondern nur benutzen.

Wenn Du dann die Prozedure mit Leben füllst
sprichst Du das StringGrid mit sg an.
Also sg.cells[iCol,<Deine Laufvariable>].

Deine gefunden Maximal- und Minimalwerte übergibst
Du iMin und iMax. Diese werden dann nach außen gereicht.

Hoffe es hilft Dir ein wenig weiter.

Grüße
Klaus