Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.14;
Скачать: CL | DM;

Вниз

Помогите перевести из BP7, пожалуйста!   Найти похожие ветки 

 
Sharik_212   (2003-06-30 19:22) [0]

Дано в BP7:
var S:^String;
......
S:=Ptr(PrefixSeg,$80);

Как последнюю строчку перевести в Дельфи?


 
Skier ©   (2003-06-30 19:25) [1]

>Sharik_212 (30.06.03 19:22)
А что в итоге нужно получить ?


 
Sharik_212   (2003-06-30 19:26) [2]

В итоге получается строка


 
Sharik_212   (2003-06-30 19:31) [3]

Спасибо за участие - в итоге получается первые 80h символов командной строки.


 
Skier ©   (2003-06-30 19:32) [4]

S - указатель на строку
S^ - сама строка

например :
S^ := "Hello, world !"; //присвоить строке новое значение
(^ - взятие адреса)

Или что-то другое имелось в виду ?


 
Skier ©   (2003-06-30 19:33) [5]

>Sharik_212 (30.06.03 19:31)
см. ParamStr и ParamCount


 
Poirot ©   (2003-06-30 19:34) [6]

Сдаётся мне это просто строка в смещении... типа на делфях такая байда будут несного интереснее, т.к. в делфи строка по умолчанию уже указатель, ну а там в зависимости что такое Ptr - это что-то типа Поинтре, но что-там за второй параметр я не помню....


 
Serginio   (2003-06-30 19:47) [7]

Дай бог памяти в досовском паскале были ближние near указатели в существующем сегменте, для того что бы получить дальний (Far) указатель нужно было указывать сегментную составляющую (PrefixSeg) и смещение в данном случае $80.
В данном случае тебе в зависимости от реализации нужно использовать String или Pchar или как у тебя ссылка на короткую строку. В виндах нет разделения на сегменты и смещения. Все одним адресом.


 
Anatoly Podgoretsky ©   (2003-06-30 20:14) [8]

S:=Ptr(PrefixSeg,$80);
Это указатель на командную строку в PSP, совместима с Паскалевской строкой.
Для Виндоус не имеет смысла.


 
icWasya ©   (2003-07-01 09:23) [9]

посмотри реализацию
GetParamStr, ParamCount, ParamStr из модуля System



Страницы: 1 вся ветка

Текущий архив: 2003.07.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
1-44626
Пубертанец
2003-06-30 09:37
2003.07.14
Почему не работает код?


14-44802
Zelius
2003-06-25 21:31
2003.07.14
Пропали Хинты в Delphi и во всех моих прогах :(


3-44585
sergt
2003-06-19 13:14
2003.07.14
Переброска данных с таблицы Oracle в DBF


1-44703
Demetrius2003
2003-07-01 01:06
2003.07.14
Invalid Floating operation ???


14-44911
Кен
2003-06-27 06:19
2003.07.14
Какой должен быть код, чтобы вам было легче его понять ?