VPF::Массиву присвоить сразу все значения

ama_kid

Дата 18.2.2008, 19:39 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 9
Всего: 95

Цитата(pavelv @ 17.2.2008, 16:59

)

"собственно как?"

Почему-то мне кажется, что "никак".

Цитата

Assignment-compatibility is not a symmetric relation. An expression of type T2 can be assigned to a variable of type T1 if the value of the expression falls in the range of T1 and at least one of the following conditions is satisfied.

T1 and T2 are of the same type, and it is not a file type or structured type that contains a file type at any level.
T1 and T2 are compatible ordinal types.
T1 and T2 are both real types.
T1 is a real type and T2 is an integer type.
T1 is PChar, PWideChar or any string type and the expression is a string constant.
T1 and T2 are both string types.
T1 is a string type and T2 is a Char or packed-string type.
T1 is a long string and T2 is PChar or PWideChar.
T1 and T2 are compatible packed-string types.
T1 and T2 are compatible set types.
T1 and T2 are compatible pointer types.
T1 and T2 are both class, class-reference, or interface types and T2 is a derived from T1.
T1 is an interface type and T2 is a class type that implements T1.
T1 is PChar or PWideChar and T2 is a zero-based character array of the form array[0..n] of Char (when T1 is PChar) or of WideChar (when T1 is PWideChar).
T1 and T2 are compatible procedural types. (A function or procedure identifier is treated, in certain assignment statements, as an expression of a procedural type. See "Procedural types in statements and expressions" on page 5-30.)
T1 is Variant and T2 is an integer, real, string, character, Boolean, interface type or OleVariant type.
T1 is an OleVariant and T2 is an integer, real, string, character, Boolean, interface, or Variant type.
T1 is an integer, real, string, character, or Boolean type and T2 is Variant or OleVariant.
T1 is the IUnknown or IDispatch interface type and T2 is Variant or OleVariant. (The variant's type code must be varEmpty, varUnknown, or varDispatch if T1 is IUnknown, and varEmpty or varDispatch if T1 is IDispatch.)

Как видим, из массивов тут упоминаются только массивы символов (строки)...

P.S. Может в более поздних, чем моя D7, что-то придумали в этом плане?

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

самурай без меча подобен самураю с мечом, но только без меча

pavelv

Дата 19.2.2008, 16:57 (ссылка)

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

Загрузка ...

Бывалый

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

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

VICTAR наверное лучше меня пояснил одной фразой, действительно был вопрос как именно задачу решить не перегонкой. Всем спасибо за помощь, сделал посимвольным присваиванием.

Bug_Hunter

Дата 20.2.2008, 00:29 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 19.2.2008
Где: Бл. Подмосковье

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

А вот такой вариант не подойдет?

Код


program init_array;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure InitIntArray(var a: array of integer; const b: array of integer);
  var
    na, nb, i: cardinal;
  begin
    na:=high(a);
    nb:=high(b);
    if nb>na then nb:=na; for i:=0 to nb do a[i]:=b[i];
    if nb<na then for i:=succ(nb) to na do a[i]:=0;
  end;

var
  a: array[1..5] of integer;
  b: array[1..3] of integer;
  i: integer;

begin
  InitIntArray(a, [1,2,3,4,5]);
  InitIntArray(b, [6,7,8]);

  write('a:');
  for i:=1 to 5 do write(' ', a[i]);
  writeln;

  write('b:');
  for i:=1 to 3 do write(' ', b[i]);
  writeln;

  readln;
end.

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