Rev 232 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 232 | Rev 233 | ||
---|---|---|---|
Line 224... | Line 224... | ||
224 | Edit13.Text := ini.ReadString(Edit9.Text, 'phone', ''); |
224 | Edit13.Text := ini.ReadString(Edit9.Text, 'phone', ''); |
225 | Edit14.Text := ini.ReadString(Edit9.Text, 'updatedate', ''); |
225 | Edit14.Text := ini.ReadString(Edit9.Text, 'updatedate', ''); |
226 | finally |
226 | finally |
227 | ini.Free; |
227 | ini.Free; |
228 | end; |
228 | end; |
- | 229 | Edit1.Text := ''; |
|
- | 230 | end; |
|
- | 231 | if TreeView1.Selected.Text = TITLE_OID then |
|
- | 232 | begin |
|
- | 233 | PageControl1.ActivePage := TabSheet3; |
|
- | 234 | Edit2.Text := ''; |
|
- | 235 | end; |
|
- | 236 | if TreeView1.Selected.Text = TITLE_RA then |
|
- | 237 | begin |
|
- | 238 | PageControl1.ActivePage := TabSheet4; |
|
- | 239 | Edit8.Text := ''; |
|
229 | end; |
240 | end; |
230 | if TreeView1.Selected.Text = TITLE_OID then PageControl1.ActivePage := TabSheet3; |
- | |
231 | if TreeView1.Selected.Text = TITLE_RA then PageControl1.ActivePage := TabSheet4; |
- | |
232 | end; |
241 | end; |
233 | 242 | ||
234 | procedure TForm1.FormShow(Sender: TObject); |
243 | procedure TForm1.FormShow(Sender: TObject); |
235 | var |
244 | var |
236 | nod, raroot: TTreeNode; |
245 | nod, raroot: TTreeNode; |