Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

Коротко и быстро   Найти похожие ветки 

 
Каспер   (2002-04-17 07:03) [0]

Всем привет.
Помогите плиз.
Знаю вопрос детский, но...

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;

Может кто знает красивое решение сего вопроса?


 
panov ©   (2002-04-17 07:08) [1]

Move(S[1],Buffer[1],Length(S));


 
Каспер   (2002-04-17 08:29) [2]

Спасибо ...
так и сделал на будущее запомнил
Интересно а кто еще как делал?


 
REA   (2002-04-17 10:13) [3]

Можно еще объявить вариантную запись с короткой строкой и массивом: присваивать строке, доставать из массива (Не забыть про элемент строки 0 - длина).


 
Alx2 ©   (2002-04-17 10:24) [4]


Type
TMyArray = array [1..100] of char;
Var
S : String;
Arr : TMyArray;
begin
Arr := TMyArray((@S[1])^);
end;



 
Donal_Graeme   (2002-04-17 10:36) [5]

если Buffer:array [0..MesMaxLength -1] of Char;
то

StrPCopy (Buffer, String);



Страницы: 1 вся ветка

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
1-94372
Jaxtor
2002-04-17 14:21
2002.04.29
Событие при максимизации главной формы


14-94551
Pat
2002-03-21 17:02
2002.04.29
Проверь свою реакцию


6-94529
fixxxer
2002-02-14 18:28
2002.04.29
Как получить список компьютеров в локальной сети


1-94454
Decoda
2002-04-15 21:38
2002.04.29
А можно не изобретать велосипед ?


1-94488
MVova
2002-04-15 13:57
2002.04.29
Точка входа в функцию