Задача на строки Опции

[Vardes]

Если задать текст таким образом:

Код

var
txt: array[1..3] of string;
i:byte;
begin
for i:= 1 to 3 do
readln(txt[i]);   {Ввод текста,состоящего из 3-х строк}

Каким же образом проверить каждый элемент на условие.Например,если один из элементов строки :='A', то этот элемент примет значение :='..--'.
Данная задача связана с азбукой МОРЗЕ.
И ещё есть вопрос
КАК элементу строки присвоить сразу несколько элементов из кодовой таблицы ASII.

Код

txt[i]:=chr(16);{Надо, чтоб он также принимал chr(17),получится как бы chr(16,17),но это неправильно.}

КАК это можно осуществить.

Сообщение отредактировано: Vardes - 28.11.2005 11:29

[volvo]

Vardes?

КАК элементу строки присвоить сразу несколько элементов из кодовой таблицы ASII.

Никак. Забудь об этом, это невозможно... "Элемент строки" - это символ, а символ может принимать только одно значение из таблицы ASCII... Лучше скажи, ЗАЧЕМ тебе это понадобилось, может быть найдем более подходящее решение?

Каким же образом проверить каждый элемент на условие.

Я не понял, ты хочешь в каждой строке проверять ВСЕ вхождения "A" и заменять их на аналог из азбуки Морзе? Тогда так:

For i := 1 To 3 {число строк} Do Begin
  Repeat
    p := Pos('A', txt[i]);
    if p <> 0 Then Begin
      Delete(txt[i], p, 1);
      Insert('..--', txt[i], p);
    End;
  Until p = 0;
End;

Только учитывай, что длина строки ограничена 255 символами...