| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Коротко и быстро [D5, Win95/98, WinME, NT4, Win2k, WinXP]
Каспер © (2002-04-17 07:03:00)Всем привет.
Помогите плиз.
Знаю вопрос детский, но...
var
Buffer:array [1..MesMaxLength] of Char;
I,N:Integer;
S:String;
begin
N:=.....
....
S:=String(Buffer); //это работает массив в строку красиво затаскивается
For I:=1 To N Do Buffer[I]:=S[I]; // это работает но некрасиво строка в массив а хотелось бы что то типа string(Buffer):=s;
Может кто знает красивое решение сего вопроса?
Donal_Graeme (2002-04-17 10:36:00) [1]если Buffer:array [0..MesMaxLength -1] of Char;
то
StrPCopy (Buffer, String);
Alx2 (2002-04-17 10:24:00) [2]
Type
TMyArray = array [1..100] of char;
Var
S : String;
Arr : TMyArray;
begin
Arr := TMyArray((@S[1])^);
end;
REA (2002-04-17 10:13:00) [3]Можно еще объявить вариантную запись с короткой строкой и массивом: присваивать строке, доставать из массива (Не забыть про элемент строки 0 - длина).
Каспер (2002-04-17 08:29:00) [4]Спасибо ...
так и сделал на будущее запомнил
Интересно а кто еще как делал?
panov (2002-04-17 07:08:00) [5]Move(S[1],Buffer[1],Length(S));
| |
