--- /dev/null
+unit pbkedit2;\r
+\r
+interface\r
+\r
+uses\r
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
+ Dialogs, StdCtrls, MainUnit, GnokiiAPI;\r
+\r
+type\r
+ TPBKEditForm = class(TForm)\r
+ GroupBox1: TGroupBox;\r
+ Label1: TLabel;\r
+ Edit1: TEdit;\r
+ ComboBox1: TComboBox;\r
+ ComboBox2: TComboBox;\r
+ ComboBox3: TComboBox;\r
+ ComboBox4: TComboBox;\r
+ ComboBox5: TComboBox;\r
+ ComboBox6: TComboBox;\r
+ ComboBox7: TComboBox;\r
+ Edit2: TEdit;\r
+ Edit3: TEdit;\r
+ Edit4: TEdit;\r
+ Edit5: TEdit;\r
+ Edit6: TEdit;\r
+ Edit7: TEdit;\r
+ Edit8: TEdit;\r
+ Button1: TButton;\r
+ Button2: TButton;\r
+ Label2: TLabel;\r
+ ComboBox8: TComboBox;\r
+ procedure Button2Click(Sender: TObject);\r
+ procedure Button1Click(Sender: TObject);\r
+ private\r
+ { Private declarations }\r
+ public\r
+ { Public declarations }\r
+ end;\r
+\r
+var\r
+ PBKEditForm: TPBKEditForm;\r
+\r
+implementation\r
+\r
+{$R *.dfm}\r
+\r
+procedure TPBKEditForm.Button2Click(Sender: TObject);\r
+begin\r
+ PBKEditForm.Close;\r
+end;\r
+\r
+procedure AddOneNumber(Edit: TEdit; ComboBox:TComboBox);\r
+var i:integer;\r
+begin\r
+ if Edit.Text<>'' then\r
+ begin\r
+ if not ComboBox.Enabled then\r
+ begin\r
+ for i:=1 to 49 do\r
+ pbk.Number[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit.text)) do\r
+ pbk.Number[i]:=Edit.Text[i];\r
+ end else\r
+ begin\r
+ pbk.SubEntriesCount:=pbk.SubEntriesCount+1;\r
+ case combobox.ItemIndex of\r
+ 0:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Fax;\r
+ 1:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_General;\r
+ 2:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Home;\r
+ 3:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Mobile;\r
+ 4:pbk.SubEntries[pbk.SubEntriesCount].NumberType:=GSM_Work;\r
+ end;\r
+ pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Number;\r
+ for i:=1 to 61 do\r
+ pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit.text)) do\r
+ pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=Edit.Text[i];\r
+ end;\r
+ end;\r
+end;\r
+\r
+procedure AddOneText(Edit: TEdit; ComboBox:TComboBox);\r
+var i:integer;\r
+begin\r
+ if Edit.Text<>'' then\r
+ begin\r
+ pbk.SubEntriesCount:=pbk.SubEntriesCount+1;\r
+ case combobox.ItemIndex of\r
+ 0:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Email;\r
+ 1:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Note;\r
+ 2:pbk.SubEntries[pbk.SubEntriesCount].EntryType:=GSM_Postal;\r
+ end;\r
+ for i:=1 to 61 do\r
+ pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit.text)) do\r
+ pbk.SubEntries[pbk.SubEntriesCount].Number[i]:=Edit.Text[i];\r
+ end;\r
+end;\r
+\r
+procedure TPBKEditForm.Button1Click(Sender: TObject);\r
+var i:integer;\r
+begin\r
+\r
+ pbk.SubEntriesCount:=0;\r
+\r
+ for i:=1 to 51 do\r
+ pbk.Name[i]:=chr(0);\r
+ for i:=1 to strlen(pchar(Edit1.text)) do\r
+ pbk.Name[i]:=Edit1.Text[i];\r
+\r
+ pbk.Number[1]:=chr(0);\r
+ AddOneNumber(Edit2,ComboBox1);\r
+ AddOneNumber(Edit3,ComboBox2);\r
+ AddOneNumber(Edit4,ComboBox3);\r
+ AddOneNumber(Edit5,ComboBox4);\r
+ AddOneNumber(Edit6,ComboBox5);\r
+\r
+ AddOneText(Edit7,ComboBox6);\r
+ AddOneText(Edit8,ComboBox7);\r
+\r
+ if (ComboBox8.ItemIndex=0) then\r
+ begin\r
+ pbk.Group:=5;\r
+ end else\r
+ begin\r
+ pbk.Group:=ComboBox8.ItemIndex-1;\r
+ end;\r
+\r
+ MainForm.Timer2.Enabled:=false;\r
+ GSM_WritePhonebookLocation(@pbk);\r
+ MainForm.Timer2.Enabled:=true;\r
+\r
+ MainForm.ComboBox1Change(nil);\r
+\r
+ PBKEditForm.Close;\r
+end;\r
+\r
+end.\r