StoredValue in TAdvDBComboBox

VCL TMS VCL UI Pack
1

Hi,

if using "TAdvDBComboBoxStrings.InsertStored"
there is an error about the Strings and the Values.
Instead of using
"PutStoredStrings" you should make a new Procedure "InsertStoredStrings"
because you "Insert" the String.

Simply change:

procedure TAdvDBComboBoxStrings.InsertStored(Index: Integer; const S: string;
  StoredS: string);
begin
  Insert(Index, S);
  PutStoredStrings(Index, StoredS);
end;



to

procedure TAdvDBComboBoxStrings.InsertStored(Index: Integer; const S: string;
  StoredS: string);
begin
  Insert(Index, S);
  InsertStoredStrings(Index, StoredS);
end;



and instert a new procedure:

procedure TAdvDBComboBoxStrings.InsertStoredStrings(Index: Integer;
  const Value: String);
begin
  CheckStoredStrings;
  FStoredStrings.Insert(Index, Value);
end;



In the old/wrong/current state if yuo use "InsertStored" it changes the FItems.count to +1 and the FStoredStrings.count not.

I hope you see what i mean.

Greetings from Germany
 Peter Nomden

2

Thanks for your feedback.
You're correct about this and it will be adapted in the next update.