Сейчас на форуме: Kybyx, Rio (+3 невидимых)

 eXeL@B —› Оффтоп —› сложная конструкция из С в PAS
Посл.ответ Сообщение


Ранг: 156.2 (ветеран), 2thx
Активность: 0.09↘0
Статус: Участник

 Создано: 15 апреля 2009 00:21
· Личное сообщение · #1

Перевожу одну программку с С на паскаль(в делфи пишу).
Есть там такой класс

Code:
  2. class Ellipsoid
  3. {
  4. public:
  5.          Ellipsoid(){};
  6.          Ellipsoid(int Id, char* name, double radius, double ecc)
  7.          {
  8.                  id = Id; ellipsoidName = name;
  9.                  EquatorialRadius = radius; eccentricitySquared = ecc;
  10.          }
  12.          int id;
  13.          char* ellipsoidName;
  14.          double EquatorialRadius;
  15.          double eccentricitySquared;
  17. };


Вроде перевел его так

Code:
  2. type
  3. TEllipsoid = class
  4.  id:integer;
  5.  ellipsoidName:ppchar;
  6.  EquatorialRadius:double;
  7.  eccentricitySquared:double;
  8.  constructor Ellipsoid();overload;
  9.  constructor Ellipsoid(Id:integer; name:ppchar; radius:double ; ecc:double);overload;
  10. end;
  12. constructor TEllipsoid.Ellipsoid();
  13. begin
  14.  inherited Create();
  15. end;
  17. constructor TEllipsoid.Ellipsoid(Id:integer; name:ppchar; radius:double ; ecc:double);
  18. begin
  19.  inherited Create();
  20.  id:=Ellipsoid.id;
  21.  name:=Ellipsoid.ellipsoidName;
  22.  radius:=Ellipsoid.EquatorialRadius;
  23.  ecc:=Ellipsoid.eccentricitySquared;
  24. end;


Но далее мдет статический массив объектов этого класса:

Code:
  2. static Ellipsoid ellipsoid[] = 
  3. {
  4. Ellipsoid( -1, "Placeholder", 0, 0),
  5. Ellipsoid( 1, "Airy", 6377563, 0.00667054),
  6. .....
  7. Ellipsoid( 23, "WGS-84", 6378137, 0.00669438)
  8. }


Пробую так:

Code:
  2. const Static_Ellipsoid:array[1..1] of TEllipsoid=
  3.   TEllipsoid.Ellipsoid( -1, 'Placeholder', 0, 0),


Но ошибка появляется :
This is no overloaded version of Ellipsoid that can be called with this atgument.

Пробовал еще переводить тот класс на паскаль без конструктора, но все равно в этом же месте была ошибка. Но другая:
This form of method call only allowed for class methods.

Я пока что не придумал, как это грамотно обойти.




Ранг: 533.6 (!), 232thx
Активность: 0.45↘0
Статус: Uploader
retired

 Создано: 15 апреля 2009 01:10
· Личное сообщение · #2

во-первых, это твои типы PPChar, это не правильно
Code:
  2. char* - C++
  3. PChar - Delphi


сдедующее, твое:
Code:
  2. id:=Ellipsoid.id;
  3. name:=Ellipsoid.ellipsoidName;
  4. radius:=Ellipsoid.EquatorialRadius;
  5. ecc:=Ellipsoid.eccentricitySquared;

а нужно было так:
Code:
  2. Ellipsoid.id:=id;
  3. Ellipsoid.ellipsoidName:=name;
  4. Ellipsoid.EquatorialRadius:=radius;
  5. Ellipsoid.eccentricitySquared:=ecc;

и всеравно мне кажетсо это все сомнительно, потому как не все можно перевести, си++ беспорно мощнее делфей, потому у него есть свои приколы, не переводимые на другие языки, потому нужно искать другой выход вместо того чтоб слово в слово переводить
Я так понял тебе клас нужен только для хранения тех 4-ех переменых, потому могу предложить свой вариант:
Code:
  2. type
  3.   TEllipsoid = packed record
  4.     id:integer;
  5.     ellipsoidName:pchar;
  6.     EquatorialRadius:double;
  7.     eccentricitySquared:double;
  8.   end;
  9. ...
  10. var
  11.   Static_Ellipsoid: array[1..1] of TEllipsoid;
  12. ...
  13. procedure Init(id: integer; name: pchar; radius: double; ecc: double);
  14. var
  15.   Ellipsoid: TEllipsoid;
  16. begin
  17.   Ellipsoid.id := id;
  18.   Ellipsoid.ellipsoidName := name;
  19.   Ellipsoid.EquatorialRadius := radius;
  20.   Ellipsoid.eccentricitySquared := ecc;
  21.   Static_Ellipsoid[1] := Ellipsoid;
  22. end;


-----
Лучше быть одиноким, но свободным © $me


Ранг: 156.2 (ветеран), 2thx
Активность: 0.09↘0
Статус: Участник

 Создано: 15 апреля 2009 09:18
· Личное сообщение · #3

BoRoV пишет:
Я так понял тебе клас нужен только для хранения тех 4-ех переменых, потому могу предложить свой вариант:
Не только. Там еще процедура есть. Ее бы тоже передать как-то через массив объектов.

Code:
  2. static Ellipsoid ellipsoid[] =  
  3. { 
  4. Ellipsoid( -1, "Placeholder", 0, 0), 
  5. Ellipsoid( 1, "Airy", 6377563, 0.00667054), 
  6. ..... 
  7. Ellipsoid( 23, "WGS-84", 6378137, 0.00669438) 
  8. } 


Собственно, это и есть основная проблема



Ранг: 107.5 (ветеран)
Активность: 0.15↘0
Статус: Участник

 Создано: 16 апреля 2009 17:09
· Личное сообщение · #4

Важное замечание чтобы в будущем проблем не было - как у не грамотных проектов под 2009 делфю.

Code:
  2. char*; //c++
  3. PAnsiChar; //delphi
  4. ---
  5. wchar_t*; // c++
  6. PWideChar; //delphi


-----
Md5 fcbb6c9c9a5029b24d70f2d67c7cca74


Ранг: 756.3 (! !), 113thx
Активность: 0.61↘0.05
Статус: Участник
Student

 Создано: 16 апреля 2009 20:33
· Личное сообщение · #5

BoRoV пишет:
потому у него есть свои приколы, не переводимые на другие языки,
перевести можно всё... только не дословно, а если смысл понял, переписать не сложно
а нужно ли в дельфи default-конструктор вообще? наверное его просто опустить можно, т.к. и там и там у тебя inherited Create(); стоит

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh


Ранг: 156.2 (ветеран), 2thx
Активность: 0.09↘0
Статус: Участник

 Создано: 16 апреля 2009 22:28 · Поправил: Mavlyudov
· Личное сообщение · #6

Isaev
Я не про это спрашиваю.

Code:
  2. type
  3. TEllipsoid = class
  4.  id:integer;
  5.  ellipsoidName:pchar;
  6.  EquatorialRadius:double;
  7.  eccentricitySquared:double;
  8.  constructor Create;
  9.  procedure Ellipsoid();overload;
  10.  procedure Ellipsoid(Id:integer; name:pchar; radius:double ; ecc:double);overload;
  11. end;
  13. const Static_Ellipsoid:array[1..1] of TEllipsoid=
  14.   TEllipsoid( -1, pchar('Placeholder'), 0, 0);


У меня вопрос в том, как объявить массив типа класса, в котором содержатся процедуры этого класса.
Код, приведенный выше не компилируется.

Получилось через переменную, но это не то, что нужно:
Code:
  2. type
  3. TEllipsoid = class
  4. .........................
  5. constructor Create(Id:integer; name:pchar; radius:double; ecc:double);
  6. end;
  8. var Static_Ellipsoid:array[1..1] of TEllipsoid;
  9. ............
  10. begin
  11.   Static_Ellipsoid[1] := TEllipsoid.Create(1,'name',1,0);
  12. ....





Ранг: 756.3 (! !), 113thx
Активность: 0.61↘0.05
Статус: Участник
Student

 Создано: 17 апреля 2009 02:39
· Личное сообщение · #7

Mavlyudov пишет:
Я не про это спрашиваю.
а я и не отвечал... я тоже спросил
Mavlyudov пишет:
Получилось через переменную, но это не то, что нужно:
А по другому вроде нельзя в Delphi присвоить... только так... по одному элементу

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh


Ранг: 156.2 (ветеран), 2thx
Активность: 0.09↘0
Статус: Участник

 Создано: 17 апреля 2009 10:18
· Личное сообщение · #8

Isaev
Можно же написать так:

const
a:array[1..2] of integer=(1,2);



Ранг: 38.6 (посетитель)
Активность: 0.02↘0
Статус: Участник

 Создано: 22 апреля 2009 12:11
· Личное сообщение · #9

Mavlyudov
оффтоп:
Можно ли полностью увидеть сорс? Мне тоже эллипсойды нужны.
В гугле сей код видел, но в довольно неожиданных местах.




Ранг: 156.2 (ветеран), 2thx
Активность: 0.09↘0
Статус: Участник

 Создано: 23 апреля 2009 19:57
· Личное сообщение · #10

bad_boy
кто тебе сказал, что это эллипсоиды? Это программа пересчета
географических координат из формата UTM в Lat/Long и наоборот.


 eXeL@B —› Оффтоп —› сложная конструкция из С в PAS

У вас должно быть 20 пунктов ранга, чтобы оставлять сообщения в этом подфоруме, но у вас только 0

   Для печати Для печати