VPF::массив String'о - Форум программистов

Бегемот

Дата 15.6.2005, 10:00 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 26.1.2005
Где: На границе Европы и Азии

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

Привет!

Код


.....
var
  Form1: TForm1;
  a:array[0..2,0..2] of String;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a[0,0]:='Строка 1';
a[0,1]:='Строка 2';
a[0,2]:='Строка 3';
a[1,0]:='Строка 4';
a[1,1]:='Строка 5';
a[1,2]:='Строка 6';
a[2,0]:='Строка 7';
a[2,1]:='Строка 8';
a[2,2]:='Строка 9';
end;

Как инициализировать массив String'ов? Мой код работает, но можно ли как-нибудь покороче? smile

Girder

Дата 15.6.2005, 11:17 (ссылка)

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

Загрузка ...

Лентяй 2

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

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

Код


for i:=0 to 2 do
 for j:=0 to 2 do
  a[i,j]:='XXX '+IntToStr(i*3+j+1);

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

Как слышим, так и пишим.
Истина где-то там...

p0s0l

Дата 15.6.2005, 11:26 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Код

var
   a:array[0..2,0..2] of String =
     (('asdasdf', 'asdfasd', 'zzxcvzxcv'),
      ('asdfasd', 'asdfasdf', 'xcxcvxcvx'),
      ('zxcvzxcvc', 'zxzzz', '1242134'));

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

С уважением, г-н Посол.

Свои

Дата 15.6.2005, 11:36 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

rewerew
что имел в виду? с твоим кодом можно поступить так:

Код


var
  Form1: TForm1;
  a:array[0..2,0..2] of String;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,n:integer;
begin
n:=0;
for i:=0 to 2 do
 for j:=0 to 2 do
 begin
 inc(n);
 a[i,j]:='Строка '+inttostr(n);
end;

Бегемот

Дата 15.6.2005, 15:32 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 219
Регистрация: 26.1.2005
Где: На границе Европы и Азии

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

Цитата

что имел в виду?

Неудачный я пример привёл...извиняюсь... smile

Правильно меня понял p0s0l.
Мне нужно было инициализировать массив разными строками (например, массив вопросов для тестирования).
Спасибо за помощь.

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