Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Конвертация строк


Автор: max-anikin 21.10.2005, 17:03
подскажите плиз каким образом можно преобразовать string в array of Byte ...

пытаюсь вот так, но не выходит:

Код


  var
    byteBuffer : array of Byte;
    bufferlength : integer;

    /*******/

      bufferlength := Length(PChar(text));

      GetMem(byteBuffer, bufferlength);

      StrToByteArray(text, byteBuffer, bufferlength);
    
    /*******/


procedure StrToByteArray(textToConvert : string; byteBuffer : array of Byte; bufferlength : integer);
var
    i : integer;
    temp : Char;
begin
      for i:=0 to bufferlength do
      begin
        temp := PChar(textToConvert)[i];
        byteBuffer[i] := Byte(temp);
      end;
end;

Автор: _hunter 21.10.2005, 17:30
в array of Byte можно преобразовать банальным c_str() ( или де data() )

P.S.
а что не выходит то?

Автор: max-anikin 21.10.2005, 17:44
а можно небольшой примерчик плиз ??

А не выходит то, что в массив который я создаю не заносятся данные. То есть он остается таким, как был до выполнения процедуры. При попытке просмотра значений в дебаге пишет, что просмотр невозможен из-за оптимизации ...

возможно проблема в передаче массива в качестве параметра или тут:
Код

byteBuffer[i] := Byte(temp);

Автор: _hunter 21.10.2005, 17:48
примерчик чего? вызвал функцию и получил результат. все.
как передавать массивы в функцию ( и, что главнее, получать оттуда ) подскажет поиск

Автор: max-anikin 21.10.2005, 17:55
примерчик использования c_str или data на Delphi ...

Автор: Girder 21.10.2005, 18:02
Код

procedure TForm1.Button1Click(Sender: TObject);
var t:array of Byte;
    s:string;
begin
 s:='Girder';
 SetLength(t,Length(s));
 StrCopy(PChar(t),PChar(s));
 ...
end;

Автор: max-anikin 21.10.2005, 18:02
а вот бревна то и не заметили smile
надо было просто добавить var когда передавал массив в качестве параметра ...
Код

procedure StrToByteArray(textToConvert : string; VAR byteBuffer : array of Byte; bufferlength : integer);

вот так работает .... smile ... всем спасибо.
Добавлено @ 18:04
и за пример спасибо ... я его и заюзаю - очень уж он мне понравился smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)