Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить адресс строкий? 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)


Наверх

Титульная страница Поиск, карта сайта Написать письмо