Перевод из TextBox.Text в Real - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Всем здравствуйте. Итак, дан массив TextBox-ов. В нём хранится текст. Необходимо перевести этот массив в другой (такой же по размерности) массив типа Real. Вот программа:
, где W[i1,i2] - массив TextBox-ов, а Wch[i1,i2] - массив типа Real. Сразу скажу, что так программа не работает. Пишет "Нельзя преобразовать тип char к string", хотя если добавить пробелы вот так
, то программа работает, но выводит только нули, если вывести Wch. В массиве W[i1,i2] записаны только такие символы : 1, 2, 3, 4, 5, 6, 7, 8, 9, 1/2, 1/3, 1/4, 1/5, 1/6, 1/7, 1/8, 1/9.

Решение задачи: «Перевод из TextBox.Text в Real»

textual
Листинг программы
    Case W[i1,i2].Text of
      ''+'1',''+'2',''+'3',''+'4',''+'5',''+'6',''+'7',''+'8',''+'9' : Val(W[i1,i2].Text, Wch[i1,i2], Err);
      '1/2' : Wch[i1,i2] := 1/2;
      '1/3' : Wch[i1,i2] := 1/3;
      '1/4' : Wch[i1,i2] := 1/4;
      '1/5' : Wch[i1,i2] := 1/5;
      '1/6' : Wch[i1,i2] := 1/6;
      '1/7' : Wch[i1,i2] := 1/7;
      '1/8' : Wch[i1,i2] := 1/8;
      '1/9' : Wch[i1,i2] := 1/9;
    End;

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы