Помогите перевести из 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 или как у тебя ссылка на короткую строку. В виндах нет разделения на сегменты и смещения. Все одним адресом.

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

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

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