Skip to content

Commit 0b1eb6b

Browse files
committed
Improvement in Repository sample
1 parent 3db8ec4 commit 0b1eb6b

File tree

2 files changed

+1
-3
lines changed

2 files changed

+1
-3
lines changed

samples/repository_showcase/MainFormU.dfm

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -28,8 +28,6 @@ object MainForm: TMainForm
2828
ReadOnly = True
2929
ScrollBars = ssBoth
3030
TabOrder = 0
31-
ExplicitLeft = 0
32-
ExplicitWidth = 884
3331
end
3432
object Panel1: TPanel
3533
Left = 0

samples/repository_showcase/MainFormU.pas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -130,7 +130,7 @@ procedure TMainForm.LoadSampleData;
130130
lCustomer.City := Cities[Random(Length(Cities))];
131131
lCustomer.Rating := Random(5) + 1;
132132
lCustomer.Note := 'Sample customer ' + I.ToString;
133-
lCustomer.Insert;
133+
lRepo.Insert(lCustomer);
134134
finally
135135
lCustomer.Free;
136136
end;

0 commit comments

Comments
 (0)