VPF::Конвертация строк - Форум программистов

max-anikin

Дата 21.10.2005, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 23.11.2004

Репутация: нет
Всего: 1

подскажите плиз каким образом можно преобразовать 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;

Это сообщение отредактировал(а) Girder - 21.10.2005, 17:59

_hunter

Дата 21.10.2005, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

в array of Byte можно преобразовать банальным c_str() ( или де data() )

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

--------------------

Tempora mutantur, et nos mutamur in illis...

max-anikin

Дата 21.10.2005, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 23.11.2004

Репутация: нет
Всего: 1

а можно небольшой примерчик плиз ??

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

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

Код


byteBuffer[i] := Byte(temp);

_hunter

Дата 21.10.2005, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

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

--------------------

Tempora mutantur, et nos mutamur in illis...

max-anikin

Дата 21.10.2005, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 23.11.2004

Репутация: нет
Всего: 1

примерчик использования c_str или data на Delphi ...

Girder

Дата 21.10.2005, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 31
Всего: 155

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 23.11.2004

Репутация: нет
Всего: 1

а вот бревна то и не заметили smile

надо было просто добавить var когда передавал массив в качестве параметра ...

Код


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

вот так работает .... smile

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »