VPF::Строки и массивы - Форум программистов

Felt

Дата 12.2.2005, 14:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 76
Регистрация: 14.6.2004

Репутация: нет
Всего: нет

Код


procedure MyProc;
var
Buf: array[0..511] of Char;
begin
Buf:='MyText: '+ParamStr(0)+#13#10;
Buf:='MyText: '+ParamStr(0)+#13#10;
end;

Как добавить к массиву строку?

Alex

Дата 12.2.2005, 21:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код


var
   Buf: array[0..511] of Char;
   s: String;
   i: Integer;
begin
   s:= 'MyText: '+ParamStr(0)+#13#10;
   for i:= 1 to Length(s) do
     Buf[i-1]:= s[i];
   ShowMessage(Buf);  
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

<Spawn>

Дата 13.2.2005, 07:32 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

Альтернативный вариант:

Код


procedure TForm1.Button5Click(Sender: TObject);
var
  Buf: array[0..511] of Char;
  s: string;
begin
  ZeroMemory(@Buf, 512);
  s := 'MyText: ' + ParamStr(0) + #13#10;
  CopyMemory(@Buf, PAnsiChar(s), 10 + Length(ParamStr(0)));
  ShowMessage(Buf);
end;

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »