Subversion Repositories oidplus

Rev

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;