Das große WIE, Chart aktuallisieren, Daten in textfiles

[Stecky2000]

Wie soll ich Dir das denn beweisen, dass die visable - Option auf False gesetzt ist?

Ich will doch hier niemand veräppeln.

Ich habe ein Formular auf das ich rein testweise ein Button gesetzt habe, mit folgendem Inhalt:

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject);
var
i: Integer;

begin
     StringGrid2.Visible := False;

     IBDatabase1.Connected := True;
     IBTable1.TableName := 'B1KUR';
     IBTable1.Active := True;
     IBTable1.First;
     For i := 25 to 288 do
     begin
          IBTable1.Edit;
          IBTable1['AGRPMo']:= StrToFloat(StringGrid2.Cells[1, i]);
          IBTable1['AGRPDi']:= StrToFloat(StringGrid2.Cells[2, i]);
          IBTable1['AGRPMi']:= StrToFloat(StringGrid2.Cells[3, i]);
          IBTable1['AGRPDo']:= StrToFloat(StringGrid2.Cells[4, i]);
          IBTable1['AGRPFr']:= StrToFloat(StringGrid2.Cells[5, i]);
          IBTable1['AGRPSa']:= StrToFloat(StringGrid2.Cells[6, i]);
          IBTable1['AGRPSo']:= StrToFloat(StringGrid2.Cells[7, i]);
          IBTable1['ZGRPMo']:= StrToFloat(StringGrid2.Cells[8, i]);
          IBTable1['ZGRPDi']:= StrToFloat(StringGrid2.Cells[9, i]);
          IBTable1['ZGRPMi']:= StrToFloat(StringGrid2.Cells[10, i]);
          IBTable1['ZGRPDo']:= StrToFloat(StringGrid2.Cells[11, i]);
          IBTable1['ZGRPFr']:= StrToFloat(StringGrid2.Cells[12, i]);
          IBTable1['ZGRPSa']:= StrToFloat(StringGrid2.Cells[13, i]);
          IBTable1['ZGRPSo']:= StrToFloat(StringGrid2.Cells[14, i]);
          IBTable1.Post;
          IBTable1.Next;
     end;

     For i := 1 to 25 do
     begin
          IBTable1.Edit;
          IBTable1['AGRPMo']:= StrToFloat(StringGrid2.Cells[2, i]);
          IBTable1['AGRPDi']:= StrToFloat(StringGrid2.Cells[3, i]);
          IBTable1['AGRPMi']:= StrToFloat(StringGrid2.Cells[4, i]);
          IBTable1['AGRPDo']:= StrToFloat(StringGrid2.Cells[5, i]);
          IBTable1['AGRPFr']:= StrToFloat(StringGrid2.Cells[6, i]);
          IBTable1['AGRPSa']:= StrToFloat(StringGrid2.Cells[7, i]);
          IBTable1['AGRPSo']:= StrToFloat(StringGrid2.Cells[1, i]);

          IBTable1['ZGRPMo']:= StrToFloat(StringGrid2.Cells[9, i]);
          IBTable1['ZGRPDi']:= StrToFloat(StringGrid2.Cells[10, i]);
          IBTable1['ZGRPMi']:= StrToFloat(StringGrid2.Cells[11, i]);
          IBTable1['ZGRPDo']:= StrToFloat(StringGrid2.Cells[12, i]);
          IBTable1['ZGRPFr']:= StrToFloat(StringGrid2.Cells[13, i]);
          IBTable1['ZGRPSa']:= StrToFloat(StringGrid2.Cells[14, i]);
          IBTable1['ZGRPSo']:= StrToFloat(StringGrid2.Cells[15, i]);
          IBTable1.Post;
          IBTable1.Next;
     end;


end;

Extra da mit Du es glaubst habe ich die Zeile: "StringGrid2.Visible := False;" eingebaut.
Es ändert nichts. Ich hatte die Visability bereits im Objektinspektor disabled.

Und genau dieser Buttonclick dauert ca. 10 Sekunden. Nichts mehr.