var
S: String;
A: array[0..1000] of Char;
begin
S := Memo1.Text;
SetLength(S, Length(A));
Move(S[1], A[0], Length(A));
end;
Array of char
Здравствуйте. Есть массив s:array [0..1000] of char;
Есть Memo, в нём строки
Подскажите пожалуйста как все строки из Memo перенести в array?
грубо говоря нужно чтобы в массиве было тоже что и в Memo
Спасибо
Есть Memo, в нём строки
Подскажите пожалуйста как все строки из Memo перенести в array?
грубо говоря нужно чтобы в массиве было тоже что и в Memo
Спасибо
У TMemo кроме свойства Lines есть ещё Text, он вам подходит больше.
Вопрос правда ещё в том, зачем вам массив Char, если String фактически он же и есть.
Код:
Вопрос правда ещё в том, зачем вам массив Char, если String фактически он же и есть.