FMXでTStringGrid処理が遅い (ID：48591)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

あと、

> DELPHI XE6

と、少し古いのが、気になったのですが、

私がテストしたのは、以下のコードですが、これ動かしたら、表示後の動作は、どうなりますか？

const
    TEST_ROW = 1000;
    TEST_COL = 200;

procedure TForm1.Button1Click(Sender: TObject);
var
    sCol: TStringColumn;
    c, r: Integer;
    t: TDateTime;
begin
    t := Time();
    for c := 1 to TEST_COL do
    begin
        sCol := TStringColumn.Create(StringGrid1);
        sCol.Name := 'col' + IntToStr(c);
        sCol.Header := 'テスト' + IntToStr(c);
        sCol.Width := 60;
        StringGrid1.AddObject(sCol);
    end;

with StringGrid1 do
    begin
        RowCount := TEST_ROW;

for r := 0 to RowCount - 1 do
            for c := 0 to ColumnCount - 1 do
                Cells[c, r] := Format('[%d, %d]', [c, r]);
    end;
    Label1.Text := TimeToStr(Time() - t);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
    sCol: TStringColumn;
    c: Integer;
    t: TDateTime;
begin
    t := Time();
    for c := 1 to TEST_COL do
    begin
        sCol := TStringColumn.Create(Grid1);
        sCol.Name := 'col' + IntToStr(c);
        sCol.Header := 'テスト' + IntToStr(c);
        sCol.Width := 60;
        Grid1.AddObject(sCol);
    end;
    Grid1.RowCount := TEST_ROW;

Label1.Text := TimeToStr(Time() - t);
end;

procedure TForm1.Grid1GetValue(Sender: TObject; const ACol, ARow: Integer;
  var Value: TValue);
begin
    Value := Format('[%d, %d]', [ACol, ARow]);
end;

←解決時は質問者本人がここをチェックしてください。

戻る