Einzelnen Beitrag anzeigen

michael.cohrs

Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
 
#8

AW: Checkboxen in Stringgrid

  Alt 16. Mai 2016, 19:25
Hallo,
so schreibe ich die Werte in das Grid:

Delphi-Quellcode:

procedure TFAuftragsDruckliste.BuildCheckListView;
Var
    oPrintOBJ : TPrintObj;
    i : Integer;
    sTemp : String;
begin

  Dbg_Auftragsauswahl_new.RowCount := FPrint_lst.Count + 1;
  for I := 0 to FPrint_lst.Count - 1 do
  Begin
    oPrintOBJ := FPrint_lst[i] As TPrintObj;
    if oPrintOBJ <> nil then
    Begin
      if oPrintOBJ.APASW then
        sTemp := '1'
      else
        sTemp := '0';

      with Dbg_Auftragsauswahl_new do
      Begin
        Objects[8,i+1] := oPrintOBJ;
        Cells[0, i+1] := sTemp;
      end;
    end;
  end;
end;
Michael Cohrs
  Mit Zitat antworten Zitat