View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0004031 | JEDI VCL | 00 JVCL Components | public | 2007-01-04 11:06 | 2007-01-15 08:46 |
| Reporter | Salvatore Besso | Assigned To | jfudickar | ||
| Priority | normal | Severity | block | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | 3.20 | ||||
| Target Version | Fixed in Version | 3.30 | |||
| Summary | 0004031: TJvAppRegistryStorage.ValueStored doesn't work | ||||
| Description | TJvAppRegistryStorage.ValueStored doesn't work and returns False even if the value exists in one of the storages. Please use the attached test case. | ||||
| Tags | No tags attached. | ||||
|
2007-01-04 11:06
|
Test case.zip (12,975 bytes) |
|
|
I forgot to mention that the JVCL version is 3.30 and the snapshot I'm currently using is about of the beginning of november 2006. JvAppRegistryStorage.pas file date is 1-Nov-2006 |
|
|
Hi, it's not a problem of the component, it's more a problem of your usage :-) The AppStorage Component is not connected to any of your formstorage components (the formstorage components are connected to the appstorage) and so the appstorage didn't know the formstorages. Change your code to: procedure TForm1.Button1Click(Sender: TObject); var Path, S: string; begin // The value used for testing is in InternetStore, and is number 6 Path := 'Internet\LogDeliveryAddress'; S := 'TJvAppRegistryStorage.ValueStored method returned:'0000013#10#13#10; if RegistryStorage.ValueStored(Path) then S := S + 'True' else S := S + 'False'; ShowMessage(S) end; This will work. Greetings Jens |
|
|
> it's not a problem of the component, it's more a problem of your usage :-) whooops :-) I'll try. Sorry to answer so late, I have monitored this issue but never received the notification of your reply... Mmmhhh... |
|
|
ok, it works :-) You can close this issue, thanks. |
|
|
As per OP's indications |
| Date Modified | Username | Field | Change |
|---|---|---|---|
| 2007-01-04 11:06 | Salvatore Besso | New Issue | |
| 2007-01-04 11:06 | Salvatore Besso | File Added: Test case.zip | |
| 2007-01-04 11:20 | Salvatore Besso | Note Added: 0010542 | |
| 2007-01-07 07:04 | jfudickar | Status | new => assigned |
| 2007-01-07 07:04 | jfudickar | Assigned To | => jfudickar |
| 2007-01-07 07:07 | jfudickar | Note Added: 0010553 | |
| 2007-01-07 07:07 | jfudickar | Status | assigned => feedback |
| 2007-01-11 04:07 | Salvatore Besso | Note Added: 0010558 | |
| 2007-01-15 08:26 | Salvatore Besso | Note Added: 0010562 | |
| 2007-01-15 08:45 | obones | Status | feedback => resolved |
| 2007-01-15 08:45 | obones | Fixed in Version | => 3.30 |
| 2007-01-15 08:45 | obones | Resolution | open => fixed |
| 2007-01-15 08:45 | obones | Note Added: 0010564 |
