st: string;
ch: Pchar;

st = '12345'+#0+#0+'....';

Как прочитать st в ch полностью, не ограничиваясь #0 ???
И наоборот из ch в st ???

Из string в PChar - StrPCopy
Из PChar в string:
var s: string;
.......
PChar(s) - s преобразуется в PChar.
.......

strpcopy прочитатет до #0

Цитата

Как прочитать st в ch полностью, не ограничиваясь #0 ???

По идее, тип string - динамический, т.е. если присвоить переменной типа string другую строку (более длинную), то переменная будет занимать больше места и не факт, что она будет расположена по тому же адресу. В смысле не понятно, что значит полностью?

полностью - значит с нулевыми символами и после них, вот !!!!

А чем вы вообще сдесь пишите. И ТО И ДРУГОЕ ЭТО УКАЗАТЕЛИ!

Но:
а)St:String;
-Это указатель на следующий тип
-1)@St-указывает на 1 символ
-2)(@St-X)-размер строки
-3)Полный размер St равен X+[@St-X]+1
б)Ch:PChar;
-Это указатель на ячейку памяти в которой может находится все что угодно и любого типа. И по этому: нам надо знать его длину.

Вопрос задан конкретный: как скопировать?

Как два байта переслать... даже не используя на прямую API

Код

procedure TForm1.Button1Click(Sender: TObject); type TArrB=array of byte; var s,s2:string;    p:PChar;    i:integer; begin s:='Girder'+#0+#0+'Girder'; i:=Length(s); p:=PChar(Copy(TArrB(s),0,i)); //string->PChar SetLength(s2,i); s2:=String(Copy(TArrB(p),0,i)); //PChar->string ... end;

Ну а если тебе надо в какую - то кучу это скопировать... в какую либо позицию этой кучи, то для этого есть API. К примеру WriteProcessMemory, ReadProcessMemory ну и т.д. При этом надо знать формат того чего ты копируеш и формат который готова принять обратная сторона

Это сообщение отредактировал(а) Girder - 31.8.2004, 16:33

из стринг в пичар - LPCTSTR

Это сообщение отредактировал(а) decoder - 27.8.2004, 14:49

decoder енто все хорошо когда текст(или что там) на ходится в закрытой памяти. Компилятор, тогда сам разберется и не даст тебе использовать один и тот же указатель.

А иначе....

Как тебе вот такой пример:

Код

procedure decoder(P:PChar); begin asm  push eax  mov eax,p  mov byte ptr [eax],41h  pop eax end end; procedure TForm1.Button1Click(Sender: TObject); var s:string;    p:LPCTSTR; begin s:='   decoder'; SetLength(s,Length(s)+1); s[Length(s)]:='!'; p:=PAnsiChar(s); decoder(PChar(s)); caption:=p; end;

Что ты увидеш на экране?

PS: В Delphi аналог для LPCTSTR - это PAnsiChar

decoder тут на днях Kesh вспомнил бородатый анекдот... Про то, что компилятор Delphi не даст себе ногу от стрелить. Но поверь это не так! Как и любой другой компилятор при кривых ручках... он и голову позволит...

Удачи.

Это сообщение отредактировал(а) Girder - 27.8.2004, 15:30

2Girder
Проверить не решился, на слово верю...

звЫняюсь за дезинформацию