Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

[String] and [array of char] [D7]

срочно © (2004-12-22 23:02:00)
Есть тип такого вида:
const
TYPE_LEN = 5; // ну к примеру 5 символов

type
TAnyType = array[1..TYPE_LEN] of Char;

Нужно скопировать данные из этого массива в строку.
Подскажите какие варианты из ниже приведеных верны.
Точно знаю что третий верен.

// 1 вариант --------------------
var
a: string;
b: TAnyType;
begin
b := 'AType';
a := b;
end;

// 2 вариант --------------------
var
a: string;
b: TAnyType;
begin
b := 'AType';
SetLength(a, TYPE_LEN);
a := b;
end;

// 3 вариант --------------------
var
a: string;
b: TAnyType;
begin
b := 'AType';
SetLength(a, TYPE_LEN);
Move(b, a[1], TYPE_LEN);
end;

icWasya (2004-12-23 12:15:00) [1]
есть еще вариант

var a: string; b: TAnyType; ... SetString(a,b,Type_Len);

Fay (2004-12-23 08:08:00) [2]
2 Fedia © (23.12.04 7:18) [6]
Это не совсем 1-й вариант. IMHO 8)

Fedia (2004-12-23 07:18:00) [3]
>Fay © (23.12.04 05:52) [5]
Приведенный вами код вполне рабочий.
Если применить
var
a: string;
b: TAnyType;
begin
b := 'AType';
SetLength(a, TYPE_LEN);
b[1] := #0;
Move(b, a[1], TYPE_LEN);
end;
то произойдет тоже самое. Или я чего-то не понимаю.

Fay (2004-12-23 05:52:00) [4]
2 Fedia © (23.12.04 5:03) [4]
var
a: string;
b: TAnyType;
begin
b := 'AType';
SetLength(a, TYPE_LEN);
b[1] := #0;
a := b;
end;

Fedia (2004-12-23 05:03:00) [5]
To Fay © (23.12.04 04:19) [3]
>Все верны только в данном виде, а не в общем.
Нельзя ли привести случай, в котором первый вариант не будет работать. Честно говоря, не могу понять, почему верен только третий вариант.

Fay (2004-12-23 04:19:00) [6]
Johnmen © (23.12.04 0:29) [2]
Все верны только в данном виде, а не в общем.

Johnmen (2004-12-23 00:29:00) [7]
Не знаю, что ты имеешь в виду под словом "верны", но верны они все.
Во втором варианте SetLength бессмысленно.

Fay (2004-12-22 23:09:00) [8]
только 3-й

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »