Tipp zu TMS FMX

[arnof]

Hallo,

ich kaufe fast alles von www.tmssoftware.com ,da das i.d.R. ganz gut ist. Leider hat der Programmierer immer mal so seine Probleme mit Arrays

Wer das TTMSFMXGrid einsetzt unter FMX wird dies auch erleben, wenn man die letzte eingefügte Zeile löschen will

Für alle, die diese Komponente auch benutzten mal der von mir geänderte Code:

Code:

unit FMX.TMSGridData;

.....

procedure TTMSFMXGridData.DeleteRows(Row, Count: integer);
var
  i: integer;
  ri: TRowInfo;
begin
  BeginUpdate;
  try
  for i := 1 to Count do
  begin
    if Assigned(FRowList.Items[Row]) then
    begin
      ri := TRowInfo(FRowList.Items[Row]);
      ri.Free;
    end;

    if Row<FRowList.Count then
     FRowList.Delete(Row);
    if Row<FRowDisplayList.Count then
     FRowDisplayList.Delete(Row);
    FRowCount := FRowCount - 1;
  end;

  for i := Row to FRowDisplayList.Count - 1 do
  begin
    FRowDisplayList.Items[i] := FRowDisplayList.Items[i] - Count;
  end;

  finally
   EndUpdate;
  end;
end;