VPF::Как присвоить string -> char array - Форум программистов

Mephisto

Дата 6.12.2006, 18:11 (ссылка)

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

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

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

Есть некая структура:

Код

type
    TrecChildVerb = packed record
      ClassName : array [0..19] of Char;
      Count     : byte;
    end;

    PrecChildVerb = ^TrecChildVerb;

Есть некая функция:

Код

procedure AddChildVerb(DevName: string; Count: Byte);
var
  NewVerb : PrecChildVerb;
begin
  NewVerb := AllocMem(SizeOf(TrecChildVerb));
  //StrPCopy(PChar(ansistring(NewVerb^.ClassName)), PChar(DevName));
  NewVerb^.Count     := Count;
  fVerbList.Add(NewVerb); //fVerbList - Объект типа TList
end;

Как в переменную ClassName присвоить DevName типа string?

Добавлено @ 18:16
Нужно что-то вставить вместо

Цитата

StrPCopy(PChar(ansistring(NewVerb^.ClassName)), PChar(DevName));

Rennigth

Дата 6.12.2006, 19:24 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

Код


procedure AddChildVerb(DevName: string; Count: Byte);
var
  NewVerb : PrecChildVerb;
begin
  NewVerb := AllocMem(SizeOf(TrecChildVerb));
  //StrPCopy(PChar(ansistring(NewVerb^.ClassName)), PChar(DevName));
  NewVerb^.Count     := Count;
  Move(DevName[1], NewVerb^.ClassName[0], 20);
  fVerbList.Add(NewVerb); //fVerbList - Объект типа TList
end;

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

(* Honesta mors turpi vita potior *)

Mephisto

Дата 7.12.2006, 09:57 (ссылка)

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

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

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

Код


Move(DevName[1], NewVerb^.ClassName[0], 20);

Чет я не додумался сразу.

Пасип.

Только я написал:

Код


Move(DevName[1], NewVerb^.ClassName[0], Length(DevName));

Rennigth

Дата 7.12.2006, 15:28 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 49
Всего: 76

Цитата(Mephisto @ 7.12.2006, 09:57

)

Только я написал:

код Pascal/Delphi
1:

Move(DevName[1], NewVerb^.ClassName[0], Length(DevName));

Тогда уж:

Код


  ZeroMemory(NewVerb, SizeOf(TrecChildVerb));
//...
  Move(DevName[1], NewVerb^.ClassName[0], Min(Length(DevName), 20));

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

(* Honesta mors turpi vita potior *)

Mephisto

Дата 7.12.2006, 15:42 (ссылка)

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

Загрузка ...

Волкъ

Профиль
Группа: Завсегдатай
Сообщений: 1818
Регистрация: 27.8.2003
Где: Питер

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

Я понял что имелось в виду, но у меня min не работает. :/

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