![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить адресс строкий? Const MyStr:String = 'Hello!'; [D6, WinXP]
NikNet © (2005-05-29 09:35:00)Вообщем есть типа токого кода
Const
MyStr:String = 'Hello!';
Begin
Writeln(chr(dword(ptr(mystr))));
end;
Вот только не получается получить эту букву "H"? :(
Пробывал и добовлять ImageBase тоже не получается :(
NikNet (2005-05-29 11:24:00) [1]А как вычесть весь мой код со всеми моими модулями и т.д.?
Начало
Program Test;
...
...
...
Begin
end.
Конец
Как мне это узнать?
Anatoly Podgoretsky (2005-05-29 10:45:00) [2]NikNet © (29.05.05 09:35)
Begin
Writeln(chr(dword(ptr(mystr))));
end;
Вот только не получается получить эту букву "H"? :(
Для получения буквы Н, надо быть проще
Writeln(mystr[1]);
app (2005-05-29 10:45:00) [3]Сообщение не соответствует теме конференции.
Marser (2005-05-29 10:42:00) [4]
Const
MyStr:String = 'Hello!';
var c:char;
p:pchar;
begin
p:=@MyStr[1];
c:=char(p^);
NikNet (2005-05-29 10:23:00) [5]Так тоже не идет... :(
Marser (2005-05-29 09:56:00) [6]@MyStr[1]
VMcL (2005-05-29 09:47:00) [7]
Pointer(MyStr)