ist eigentlich
Zitat:
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
Var i,x,y : integer;
summe1 : double;
begin
Label3.Caption:= '';
Label7.Caption:= '';
begin
for I := 0 to StringGrid1.RowCount - 1 do
if StringGrid1.Cells[i,0] = 'Way' then
for x := 0 to StringGrid1.ColCount -1 do
if StringGrid1.Cells[x,0] = 'ergebnisspalte' then <-----------------------------------------------------
|
Label3.Caption:= FloatToStr(findStrings(StringGrid1.Cols[i],StringGrid1.Cols[x])); |
summe1:= StrToFloat(Label3.caption); |
Label7.Caption:= Format('%.6f',[summe1/(60)])+' <-min. sek.-> '; |
end; |
StringGrid1.RowCount:= StringGrid1.RowCount +1; // hier wird eine hinzugefügt und in die soll der Text von label7 von der spalte
end;
das 'begin' in zeile 7 verrutscht oder ...