Hallo!
Ich komme heute erst dazu, mir das gesagte anzuschauen...
Wenn ich die String-Variablen weglassen, würde es wie folgt aussehen und hätte einen wesentlichen Fehler:
Delphi-Quellcode:
procedure MinMax (sg:TStringgrid; iCol:integer ;
var iGRoesse_min,iGroesse_max: integer);
var x: integer;
var iGRoesse: integer;
begin
x :=1;
iCol:=1;
iGroesse:=StrToInt(sg.Cells[iCol+2,x]);
iGroesse_min:=iGroesse;
iGroesse_max:=iGroesse;
iCol:=1;
while iGRoesse <> '' do
begin
iGroesse :=StrToInt(sg.Cells[iCol+2,x+1]);
if iGroesse >= iGroesse_max then
begin
iGroesse_max :=iGroesse;
end;
if iGroesse < iGroesse_min then
begin
iGroesse_min :=iGroesse;
end;
x :=x+1;
end;
end;
Es kommt dann eine Fehlermeldung: Inkombatible Typen String - Integer. Da wird die while-SCheilfe angemeckert, weil der Leerstring als String gelesen wird. Ich wüsste nicht, wie ich es schreiben sollte, dass die Schleife solange gehen soll, bis die Zeile leer ist?
Mit der Bemerkung: "in der Prozedur überschreibst du den Wert zweimal unnötigerweise..." kann ich erstmal nichts anfgangen?
Danke schon mal im Voraus!