С Новым годом! Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/12: Рейтинг темы: голосов - 12, средняя оценка - 4.92
Сам себе *****
31 / 31 / 7
Регистрация: 18.10.2009
Сообщений: 236
1

Перенос программы с Дельфи - неизвестные переменные

17.10.2010, 22:46. Показов 2130. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Переносил программу с Delphi на Lazarus:
lstrlenw
WideCharToMultyBite
CP_ACP
Пишет - не найдены переменные. Код программы:
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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ComCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    UpDown1: TUpDown;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
  var
  DynArr:array of Int64;
procedure TForm1.Button1Click(Sender: TObject);
   procedure CardinalCount(const Arr:array of Int64; var count:integer);
  var
    i:integer;
  begin
  count:=0;
  for i:=Low(Arr) to High(Arr) do
  if (Arr[i]<=High(Cardinal)) and (Arr[i]>=Low(Cardinal)) then
  count:=count+1;
  end;
var
  s1,s2,s3,s4:string;
  i,n:integer;
begin
Memo1.Lines.Clear;
SetLength(DynArr,UpDown1.Position);
for i:=Low(DynArr) to High(DynArr) do
DynArr[i]:=Random(High(Int64));
CardinalCount(DynArr,n);
s1:='Ð&#154;олиÑ&#135;еÑ&#129;Ñ&#130;во пÑ&#128;иводимÑ&#139;Ñ&#133; Ñ&#141;леменÑ&#130;ов: ' + IntToStr(n);
Memo1.Lines.Add(s1);
for i:=Low(DynArr) to High(DynArr) do
s2:=s2+IntToStr(DynArr[i])+'; ';
Memo1.Lines.Add(s2);
SetLength(DynArr,UpDown1.Position+1);
DynArr[High(DynArr)]:=High(Int64);
CardinalCount(DynArr,n);
s3:='Ð&#154;олиÑ&#135;еÑ&#129;Ñ&#130;во пÑ&#128;иводимÑ&#139;Ñ&#133; Ñ&#141;леменÑ&#130;ов: ' + IntToStr(n);
Memo1.Lines.Add(s3);
for i:=Low(DynArr) to High(DynArr) do
s4:=s4+IntToStr(DynArr[i])+'; ';
Memo1.Lines.Add(s4);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
   function PWideToString(pw: PWideChar): string;
  var
    p: PChar;
    iLen: integer;
  begin
  iLen := lstrlenw(pw) + 1;
  GetMem(p, iLen);
  WideCharToMultiByte(CP_ACP, 0, pw, iLen, p, iLen * 2, nil, nil);
  Result := p;
  FreeMem(p, iLen);
  end;
  procedure TakeArray(const Args:array of const);
  var
    i,count,truecount,falsecount:integer;
    s1,s2,s3:string;
  begin
  count:=0;
  truecount:=0;
  falsecount:=0;
  for i:=Low(Args) to High(Args) do
  case Args[i].VType of
    vtBoolean:
      if Args[i].VBoolean=true
      then
        truecount:=truecount+1
      else
        falsecount:=falsecount+1;
    vtAnsiString:
      s1:=string(Args[i].VAnsiString);
    vtPWideChar:
      s2:=PWideToString(Args[i].VPWideChar);
  end;
  Memo1.Lines.Add('Ð*азниÑ&#134;а true и false: ' + IntToStr(abs(falsecount-truecount)));
  for i:=1 to length(s1) do
    begin
    if (i mod 2=0) then s3:=s3+s1[i];
    if (((s1[i]>='A') and (s1[i]<='Z')) or ((s1[i]>='Ð&#144;') and (s1[i]<='Я'))) then count:=count+1;
    end;
  for i:=1 to length(s2) do
    begin
    if (i mod 2=0) then s3:=s3+s2[i];
    if (((s2[i]>='A') and (s2[i]<='Z')) or ((s2[i]>='Ð&#144;') and (s2[i]<='Я'))) then count:=count+1;
    end;
  Memo1.Lines.Add('Ð&#154;олиÑ&#135;еÑ&#129;Ñ&#130;во пÑ&#128;опиÑ&#129;нÑ&#139;Ñ&#133; бÑ&#131;кв: ' + IntToStr(count));
  Memo1.Lines.Add('ЧеÑ&#130;нÑ&#139;е: ' + s3);
  end;
var
  OpnArr:array of TVarRec;
begin
Memo1.Lines.Clear;
SetLength(OpnArr,10);
OpnArr[0].VType:=vtObject;
OpnArr[0].VObject:=TObject.Create;
OpnArr[1].VType:=vtBoolean;
OpnArr[1].VBoolean:=false;
OpnArr[2].VType:=vtBoolean;
OpnArr[2].VBoolean:=false;
OpnArr[3].VType:=vtBoolean;
OpnArr[3].VBoolean:=true;
OpnArr[4].VType:=vtBoolean;
OpnArr[4].VBoolean:=false;
OpnArr[5].VType:=vtBoolean;
OpnArr[5].VBoolean:=true;
OpnArr[6].VType:=vtBoolean;
OpnArr[6].VBoolean:=false;
OpnArr[7].VType:=vtBoolean;
OpnArr[7].VBoolean:=true;
OpnArr[8].VType:=vtAnsiString;
New(OpnArr[8].VAnsiString);
AnsiString(OpnArr[8].VAnsiString):='Ð&#151;дÑ&#128;авÑ&#130;вÑ&#131;йÑ&#130;е';
OpnArr[9].VType:=vtPWideChar;
New(OpnArr[9].VPWideChar);
PWideChar(OpnArr[9].VPWideChar):='Ð&#148;елайÑ&#130;е Ñ&#129;воÑ&#145; дело!';
TakeArray(OpnArr);
end;
initialization
  {$I unit1.lrs}
 
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.10.2010, 22:46
Ответы с готовыми решениями:

Неизвестные переменные в сценарии(учебный пример)
Учебный сценарий l&gt; &lt;head&gt; &lt;title&gt;Котировка акций от NASDAQ&lt;/title&gt; &lt;/head&gt; &lt;body&gt; ...

через рекурсию найти произведение. неизвестные переменные ввести с клавиатуры
через рекурсию найти произведение. неизвестные переменные ввести с клавиатуры. как правильно...

На комп сами по себе устанавливаются неизвестные программы и программы от mail.ru
На комп сами по себе устанавливаются такие программы как Crossbrows,mail.ru, и программы от...

На комп сами по себе устанавливаются неизвестные программы и программы от mail.ru
Второй день подряд на комп сами по себе устанавливаются такие программы как...

2
36 / 36 / 7
Регистрация: 08.01.2011
Сообщений: 137
08.01.2011, 10:02 2
Если программа небольшая, то я просто делаю ее заново, а в процедуры переношу код, который был написан под Delphi. Так быстрее получается, чем искать ошибки.
0
36 / 36 / 7
Регистрация: 08.01.2011
Сообщений: 137
09.01.2011, 20:30 3
Если более понятно изъясняться, то создай в Лазарусе новый проект, сделай форму, накидай на нее свои кнопки, эдит, мемо... Все размести, как было в Delphi.
А всю логику и математику руками переноси (Copy/Past). Если программа работала после компиляции в Делфи, то должна заработать и тут.
0
09.01.2011, 20:30
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.01.2011, 20:30
Помогаю со студенческими работами здесь

Неизвестные программы
Добрый день. Недавно была замечена аномальная активность. С интервалом 20-30 секунд что-то...

Перенос кода на VBS в Дельфи
Здравствуйте! Есть старый код на Delphi 7. Его приходится сопровождать. Понадобилось добавить в...

Неизвестные аргументы программы
Написал код, который выводит список аргументов программы, но не понимаю откуда взялись эти...

В автозагрузке неизвестные программы
Добрый день! Помогите пж разобраться в автозагрузке. Много всякого хлама, не знаю, что можно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru