| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Строка из массива символов [D7, WinXP]

VasRog ©   (2004-07-02 18:13:00) 

Подскажите, пожалуйста, с таким вопросом.
Имеется динамический массив символов. Как мне взяв некоторые элементы данного массива соединить их в строку.

---

VasRog   (2004-07-03 00:33:00) [1]

Всем спасибо.

---

Igorek   (2004-07-02 19:30:00) [2]

procedure TForm1.Button2Click(Sender: TObject);
var
 S: String;
 MyArray: array [0..1] of Char;
begin
 MyArray[0] := 'A';
 MyArray[1] := 'B';
 SetString(S, MyArray, Length(MyArray));
end;


---

Тимохов   (2004-07-02 18:40:00) [3]

> TUser ©   (02.07.04 18:35) [5]

лучше move - он быстрее.

---

TUser   (2004-07-02 18:35:00) [4]

[4] - это я на [2] отвечал.
А лучше, действитедьно, Copymemory ect

---

TUser   (2004-07-02 18:34:00) [5]

Зачем?
s:='';
for i:=low to high do s:=s+CH[i];

---

Тимохов   (2004-07-02 18:31:00) [6]

>  то стоит еще сперва сделать

ну и заполнять иначе: s[0] := a[0]; s[1] := a[1]; ....

а если они подряд, то можно вообще через move, т.е. область памяти копировать.

---

Amoeba   (2004-07-02 18:25:00) [7]

Если количество выбираемых элеменов массива известно, то стоит еще сперва сделать

SetLenghth(S, N);

---

begin...end   (2004-07-02 18:17:00) [8]

var
 S: String;
 MyArray: array of Char;

begin
 S := MyArray[0] + MyArray[1] + ...
end.

---

Наверх