Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как присвоить string -> char array

Автор: Mephisto 6.12.2006, 18:11

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

Код

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

Код


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;

Автор: Mephisto 7.12.2006, 09:57

Код


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

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

Пасип.

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

Код


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

Автор: Rennigth 7.12.2006, 15:28

Цитата(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));

Автор: Mephisto 7.12.2006, 15:42

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