Перевод чисел из арабских в почтовый индекс

@nikitos10 · Регистрация: 16.01.2012

Студворк — интернет-сервис помощи студентам

Помогите организовать перевод из арабских в цифры как почтовый индекс

@Ice_and_Fire · 16.01.2012, 14:29

Используй шрифт. Был у меня такой. ZIPcode.ttf вроде. Поищи, их полно

@Ales'hon'ne · 16.01.2012, 18:49

Можно нарисовать и на форме (не забудьте подключить модуль Math)

Delphi
1
2
3
4
5
6
7
8
9
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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
function GraphZipCode(canvas:TCanvas;x,y,ZipCode,Width:Integer;nbCount:Integer=8;p:Extended=0.33;w:Extended=2;lw:Integer=3):boolean;
var
  tx,ty,dx,dy,dxw,i,tnb,lenc:Integer;
  tmp:array of integer;
 
  function OneZip(n:Integer):boolean;
  begin
    case n of
    0:with Canvas do
    begin
      MoveTo(tx,ty);
      LineTo(tx+dx,ty);
      LineTo(tx+dx,ty+dy);
      LineTo(tx,ty+dy);
      LineTo(tx,ty);
    end;
    1:with Canvas do
    begin
      MoveTo(tx,ty+(dy div 2));
      LineTo(tx+dx,ty);
      LineTo(tx+dx,ty+dy);
    end;
    2:with Canvas do
    begin
      MoveTo(tx,ty);
      LineTo(tx+dx,ty);
      LineTo(tx+dx,ty+(dy div 2));
      LineTo(tx,ty+dy);
      lineTo(tx+dx,ty+dy);
    end;
    3:with Canvas do
    begin
      MoveTo(tx,ty);
      LineTo(tx+dx,ty);
      LineTo(tx,ty+(dy div 2));
      LineTo(tx+dx,ty+(dy div 2));
      LineTo(tx,ty+dy);
    end;
    4:with Canvas do
    begin
      MoveTo(tx,ty);
      LineTo(tx,ty+(dy div 2));
      LineTo(tx+dx,ty+(dy div 2));
      MoveTo(tx+dx,ty);
      LineTo(tx+dx,ty+dy);
    end;
    5:with Canvas do
    begin
      MoveTo(tx+dx,ty);
      LineTo(tx,ty);
      LineTo(tx,ty+(dy div 2));
      LineTo(tx+dx,ty+(dy div 2));
      LineTo(tx+dx,ty+dy);
      LineTo(tx,ty+dy);
    end;
    6:with Canvas do
    begin
      MoveTo(tx+dx,ty);
      LineTo(tx,ty+(dy div 2));
      LineTo(tx+dx,ty+(dy div 2));
      LineTo(tx+dx,ty+dy);
      LineTo(tx,ty+dy);
      LineTo(tx,ty+(dy div 2));
    end;
    7:with Canvas do
    begin
      MoveTo(tx,ty);
      LineTo(tx+dx,ty);
      LineTo(tx,ty+(dy div 2));
      LineTo(tx,ty+dy);
    end;
    8:with Canvas do
    begin
      MoveTo(tx,ty);
      LineTo(tx,ty+dy);
      LineTo(tx+dx,ty+dy);
      LineTo(tx+dx,ty);
      LineTo(tx,ty);
      MoveTo(tx,ty+(dy div 2));
      LineTo(tx+dx,ty+(dy div 2));
    end;
    9:with Canvas do
    begin
      MoveTo(tx+dx,ty+(dy div 2));
      LineTo(tx,ty+(dy div 2));
      LineTo(tx,ty);
      LineTo(tx+dx,ty);
      LineTo(tx+dx,ty+(dy div 2));
      LineTo(tx,ty+dy);
    end
    else
      Exit(false);
    end;
    Result:=true;
  end;
 
begin
  tx:=x;
  ty:=y;
  dx:=Width;
  dy:=round(Width*w);
  dxw:=round(dx*(1+p));
  if ZipCode<>0 then
    lenc:=round(Log10(Abs(ZipCode)*10))
  else
    lenc:=1;
  if lenc>nbCount then
    Exit(false);
  Canvas.Pen.Width:=lw;
  SetLength(tmp,nbCount);
  tnb:=abs(ZipCode);
  for i:=nbCount-1 downto 0 do
    begin
      tmp[i]:=tnb mod 10;
      tnb:=tnb div 10;
    end;
  for i:=0 to nbCount-1 do
    begin
      if not OneZip(tmp[i]) then
        Exit(false);
      tx:=tx+dxw;
    end;
  Result:=true;
end;

@nikitos10 · 17.01.2012, 10:40 **[ТС]**

Спасибо большое)

Добавлено через 15 часов 11 минут
Наверно глупый вопрос,я ещё учусь)
А как это все запустить?

@Ales'hon'ne · 17.01.2012, 20:55

Во вложении - модуль с функцией. Распаковываете, подключаете к проекту. Далее, в каком-нибудь событии (например - OnButtonClick) пишете:

Delphi
1
2
GraphZipCode(Canvas,5,5,12345678,15);//вывод на форме, начиная с точки (5;5)
GraphZipCode(Image.Canvas,1,1,0987654321,20,10,0.5,1.5);//вывод на компоненте TImage, начиная с точки (1;1)

@nikitos10 · 18.01.2012, 10:28 **[ТС]**

Спасибо))

Новые блоги и статьи Все статьи Все блоги /
Трассировка корутин Kotlin с OpenTelemetry mobDevWorks 14.07.2025 Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .	Облачные приложения на Rust: руководство по архитектуре микросервисов golander 13.07.2025 Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .	Как Node.js выполняет асинхронные операции Reangularity 13.07.2025 Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .	Как писать чистый, тестируемый и качественный код на Python py-thonny 12.07.2025 Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .	Blazor и контроллер сервопривода IoT Meadow Maple Wired 11.07.2025 Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q# EggHead 10.07.2025 Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .	Изучаем новый шаблон ИИ-чата .NET AI Chat Web App stackOverflow 10.07.2025 В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .	Результаты исследования от команды ARP (июль 2025 г.) Programma_Boinc 10.07.2025 Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .	Angular vs Svelte - что лучше? Reangularity 09.07.2025 Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .	Code First и Database First в Entity Framework UnmanagedCoder 09.07.2025 Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .

@nikitos10 0 / 0 / 0 Регистрация: 16.01.2012 Сообщений: 25

	Перевод чисел из арабских в почтовый индекс 16.01.2012, 10:27. Показов 1062. Ответов 5 Метки нет (Все метки) Помогите организовать перевод из арабских в цифры как почтовый индекс Миниатюры 0

@Ice_and_Fire 512 / 298 / 37 Регистрация: 22.06.2011 Сообщений: 929
	16.01.2012, 14:29
	Используй шрифт. Был у меня такой. ZIPcode.ttf вроде. Поищи, их полно 0

@nikitos10 0 / 0 / 0 Регистрация: 16.01.2012 Сообщений: 25
	17.01.2012, 10:40 [ТС]
	Спасибо большое) Добавлено через 15 часов 11 минут Наверно глупый вопрос,я ещё учусь) А как это все запустить? 0

@nikitos10 0 / 0 / 0 Регистрация: 16.01.2012 Сообщений: 25
	18.01.2012, 10:28 [ТС]
	Спасибо)) 0

Опции темы