ja - habs danach auch gesehen
mal was anderes:
Ist das beabsichtigt, dass 3 mal hintereinander die gleiche Zelle gelesen wird:
Delphi-Quellcode:
l:=strtofloatdef(stringgrid1.Cells[2,x],0);
b:=strtofloatdef(stringgrid1.Cells[2,x],0); //müsste das nicht [3,x] heissen?
h:=strtofloatdef(stringgrid1.Cells[2,x],0); //müsste das nicht [4,x] heissen?
[Edit]
Ich hab mal diese Zeile von:
fahrzeuge:=max (ceil (g/mg), ceil (v/mv));
auf
fahrzeuge:=max (ceil (gewicht/mg), ceil (volumen/mv));
geändert. Jetzt kommen die Fahrzeuge - aber ich hab jetzt nicht geprüft ob die Rechnung richtig ist.
[Edit2]
hab dein Button3 OnClick-Ereignis leicht
optimiert:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
z, i:integer;
begin
edit1.clear;
edit2.Clear;
for i := StringGrid1.FixedCols to StringGrid1.ColCount - 1 do
begin
for z := StringGrid1.FixedRows to stringgrid1.rowcount - 1 do //Fixedrows der ordnungsheitshalber ergänzt
stringGrid1.cells[i,z]:=('');
end;
memo1.clear;
stringgrid1.row:=1;
stringgrid1.col:=0;
stringgrid1.setfocus;
end;
Wie du siehst, gibts jetzt eine 2 dimensionale Schleife
die erste schleife (i) läuft über die Spalten - die zweite Schleife (z) über die Zeilen
mfg
Helmi
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<