[Kaktuz]

Я вот как-то не могу понять одной истины. Как правильно работать с переменными? Справку листал, но что-то как-то не помогло. Пытался реализовать простейший пример, но ни как...
В сообщении должен был отобразится текст переменной, номер которой указан пользователем.

Код:

var
  Form1: TForm1;
  var new : array [1..3] of string;
  var a : string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
a:=Edit1.Text;
ShowMessage(new[a]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
new[1]:='1';
new[2]:='2';
new[3]:='3';
end;

[U.B.M.]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(new[IntToStr(Edit1.Text)]);
end;

a - текст в твоем примере, а не число.

[Pit-bull85]

Наверное

Код:

ShowMessage(new[StrToInt(Edit1.Text)])

[U.B.M.]

Сообщение от Pit-bull85

Наверное

Код:

ShowMessage(new[StrToInt(Edit1.Text)])

совсем я с головой дружить перестал) в отпуск пора. действительно strtoint

[Kaktuz]

Хорошо. А как быть если используешь обычную переменную?
var a : string;

[Nikitiy_II]

тип String - это простая строка, и если даже там записано только число - для компьютера это остается все равно строкой. И если надо использовать это число для каких-то расчетов - пользуйтесь функцией конвертации строкового типа в числовой
StrToInt(<переменная>) для целых чисел
StrToFloat(<переменная>) для дробных

В вашем случаи:

Код:

ShowMessage(new[StrToInt(a)]);

[Kaktuz]

Нет. Я о том что если будет другой тип переменных?

Код:

var
  Form1: TForm1;
  var x,a1,a2,a3 : string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:=Edit1.Text;
ShowMessage(a[x]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a1:='1';
a2:='2';
a3:='3';
end;

[angvelem]

Неужели так тяжело прочитать справку или книгу? Эти вопросы от великой лени?

[Kaktuz]

Сообщение от angvelem

Эти вопросы от великой лени?

От недопонимания....
(если есть толковый справочник, подкиньте)

[angvelem]

Встроенная справка Дельфи + Google(Yandex). Мне для начала хватало первого.

[Kaktuz]

Сообщение от angvelem

Встроенная справка Дельфи + Google(Yandex). Мне для начала хватало первого.

Я английский плохо знаю и толку от стандартной справки нету. Поисковики это ясное дело, но каждый по своему выражает мысли и найти то не зная что практически невозможно. Для этого вообще-то и создали форумы.

[angvelem]

Сообщение от Kaktuz

...Для этого вообще-то и создали форумы.

Ты уверен, что форумы существуют для того, чтобы отвечать на вопросы ответы на которые есть в справке? Кажется ты очень сильно заблуждаешься.

[Kaktuz]

Сообщение от angvelem

Ты уверен, что форумы существуют для того, чтобы отвечать на вопросы ответы на которые есть в справке? Кажется ты очень сильно заблуждаешься.

Если так рассуждать, то в справке есть ответы на все вопросы.

[PhoeniX]

Сообщение от Kaktuz

Если так рассуждать, то в справке есть ответы на все вопросы.

Ты крайне прав Учи английский, поможет.

[Pit-bull85]

Сообщение от Kaktuz

Если так рассуждать, то в справке есть ответы на все вопросы.

Каждая программа посвоему уникальна и просто не возможно в справке всё эти тонкости поместить. Твои же вопросы общего плана и они хорошо описанны как в книгах так и в справке. Найти себе книгу сейчас не представляет труда. Так что дерзай Программист:-)