root/trunk/Forms/frm_bases.pas
Download diff| 463 | 465 | ||
|---|---|---|---|
230 | var | 230 | var |
231 | AFolder: string; | 231 | AFolder: string; |
232 | begin | 232 | begin |
233 | AFolder := edCollectionRoot.Text; | ||
233 | if GetFolderName(Handle, 'Выберите папку для сохранения данных', AFolder) then | 234 | if GetFolderName(Handle, 'Выберите папку для сохранения данных', AFolder) then |
234 | edCollectionRoot.Text := AFolder; | 235 | edCollectionRoot.Text := AFolder; |
235 | end; | 236 | end; |