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;