Вниз
Скачать: CL | DM;

Есть ли в КОЛ аналог StrPas и StrPCopy кроме как в KOLSysUtils?   Найти похожие ветки 

 
nester ©   (2004-04-09 21:55) [0]

Есть ли в КОЛ аналог StrPas и StrPCopy кроме как в KOLSysUtils?
Или другой механизм, который будет реальизовывать это, а то KOLSysUtils добавляет лишнии килобайты


 
Avenger[NhT] ©   (2004-04-10 00:45) [1]

А сам пробовал смотреть? Есть же исходник ;)
StrPas насколько мне известно нету, да и не нужен он особо...
но можешь рипануть из VCL:

function StrPas(const Str: PChar): string;
begin
 Result := Str;
end;


StrPCopy есть, еслибы ты посмотрел, то обязательно заметил ее ;)
тоже не особо понимаю зачем ее использовать...

можно ведь так делать:

var
 s: String;
 C: PChar;
begin
 с := PChar(S);
end;


 
Avenger[NhT] ©   (2004-04-10 00:46) [2]

А сам пробовал смотреть? Есть же исходник ;)
StrPas насколько мне известно нету, да и не нужен он особо...
но можешь рипануть из VCL:

function StrPas(const Str: PChar): string;
begin
 Result := Str;
end;


StrPCopy есть, еслибы ты посмотрел, то обязательно заметил ее ;)
тоже не особо понимаю зачем ее использовать...

можно ведь так делать:

var
 s: String;
 C: PChar;
begin
 с := PChar(S);
end;


 
SPeller ©   (2004-04-10 08:04) [3]

Я ошибаюсь или нет: если делать с := PChar(S), то переменная С будет иметь смысл до тех пор, пока живет переменная S, так как С будет указывать на первый символ строки S ?


 
nester ©   (2004-04-10 12:11) [4]

Понятно, спасибо:))
А зачем два раза одно и то же? для лучшей усвояемости:)))?


 
Avenger[NhT] ©   (2004-04-10 17:36) [5]

SPeller, ты не прав имхо...

var
 s: String;
 C: PChar;
begin
 s:="test";
 c := PChar(S);
 s := "";
 ShowMessage(c);
end;

этот код выведет test все равно ;)


 
Gandalf ©   (2004-04-10 20:04) [6]

Оно и так ясно - стринги нулем не заканчиваются...


 
Владимир Кладов   (2004-04-10 20:26) [7]

Просто c продолжает показывать на мусор. Пройдет немного еще операций с кучей, и там будет лежать что попало.



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.042 c
14-1095878044
Sheng
2004-09-22 22:34
2004.10.17
Любителям комьютерной 3d графики


14-1096077246
niknikn
2004-09-25 05:54
2004.10.17
winapi b .net


1-1096401448
Dot
2004-09-28 23:57
2004.10.17
Double To String


6-1092108374
Ден
2004-08-10 07:26
2004.10.17
поиск по сети


14-1096365905
PVOzerski
2004-09-28 14:05
2004.10.17
USB с NT4 - кто-нибудь экспериментировал?




   Наверх