Changeset 138 for trunk/Modules/ZdechovNET/UPlansPage.pas
- Timestamp:
- Sep 9, 2022, 8:20:25 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Modules/ZdechovNET/UPlansPage.pas
r135 r138 39 39 with TWebSession(HandlerData) do begin 40 40 ModuleUser.LoadUserInfo; 41 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create))do begin41 with HtmlDocument.Body, SubItems.AddString do begin 42 42 Text := '<table>'; 43 43 try … … 47 47 Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NULL) AND (`Public`=1) ORDER BY `TimeCreate`'); 48 48 for I := 0 to DbRows.Count - 1 do begin 49 Text := Text + '<li>' + DbRows[I]. Values['Description'] + '</li>';49 Text := Text + '<li>' + DbRows[I].Items['Description'] + '</li>'; 50 50 end; 51 51 Text := Text + '</ul></div><br/>'; … … 55 55 Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NOT NULL) AND (`Public`=1) ORDER BY `TimeCreate`'); 56 56 for I := 0 to DbRows.Count - 1 do begin 57 Text := Text + '<li>' + DbRows[I]. Values['Description'] + '<br/>' +58 '<i style="padding-left: 30px;">' + DbRows[I]. Values['Conclusion'] + '</i></li>';57 Text := Text + '<li>' + DbRows[I].Items['Description'] + '<br/>' + 58 '<i style="padding-left: 30px;">' + DbRows[I].Items['Conclusion'] + '</i></li>'; 59 59 end; 60 60 Text := Text + '</ul></div><br/>';
Note:
See TracChangeset
for help on using the changeset viewer.