- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
ListBox1: TListBox;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
a,b:string;
i:integer;
begin
a := Edit1.Text;
b := Edit2.Text;
for i := 0 to 9 do
begin
ListBox1.Items.Add('BEGIN:VCARD');
ListBox1.Items.Add('VERSION:2.1');
ListBox1.Items.Add('N:' + '000' + IntToStr(i) + ';' + '000' + IntToStr(i) + ';;;');
ListBox1.Items.Add('FN:' + '000' + IntToStr(i) + ' ' + '000' + IntToStr(i));
ListBox1.Items.Add('TEL;CELL:' + a + '000' + IntToStr(i) + b);
ListBox1.Items.Add('END:VCARD');
end;
for i := 10 to 99 do
begin
ListBox1.Items.Add('BEGIN:VCARD');
ListBox1.Items.Add('VERSION:2.1');
ListBox1.Items.Add('N:' + '00' + IntToStr(i) + ';' + '00' + IntToStr(i) + ';;;');
ListBox1.Items.Add('FN:' + '00' + IntToStr(i) + ' ' + '00' + IntToStr(i));
ListBox1.Items.Add('TEL;CELL:' + a + '00' + IntToStr(i) + b);
ListBox1.Items.Add('END:VCARD');
end;
for i := 100 to 999 do
begin
ListBox1.Items.Add('BEGIN:VCARD');
ListBox1.Items.Add('VERSION:2.1');
ListBox1.Items.Add('N:' + '0' + IntToStr(i) + ';' + '0' + IntToStr(i) + ';;;');
ListBox1.Items.Add('FN:' + '0' + IntToStr(i) + ' ' + '0' + IntToStr(i));
ListBox1.Items.Add('TEL;CELL:' + a + '0' + IntToStr(i) + b);
ListBox1.Items.Add('END:VCARD');
end;
for i := 1000 to 9999 do
begin
ListBox1.Items.Add('BEGIN:VCARD');
ListBox1.Items.Add('VERSION:2.1');
ListBox1.Items.Add('N:' + IntToStr(i) + ';' + IntToStr(i) + ';;;');
ListBox1.Items.Add('FN:' + IntToStr(i) + ' ' + IntToStr(i));
ListBox1.Items.Add('TEL;CELL:' + a + IntToStr(i) + b);
ListBox1.Items.Add('END:VCARD');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Items.SaveToFile('C:\Users\Admin\Desktop\import_tel.vcf');
end;
end.
Follow us!