Уважаемые гуру!
Есть трабла - помогите разобраться!
При создании модуля (имя.tpu) используется блок, где есть string.


При нажатии Make (F9) выдается сообщение:

- Error 121: Invalid qualifier. -

Как её объявить правильно в этой строке (или ещё где?):

Задача такого типа
С целью формирования модуля XXX составить следующие блоки-утилиты:
1)функцию aaa
2)функцию bbb
3)процедуру ссс
Испытайте эти блоки в составе модуля XXX, также сохраните эти блоки в одноименных файлах.

Щас создаю блок ааа.

Так как S1 у тебя строка так её нужно и описывать как строку:

Shults99, можно вопрос?
Что вообще должна делать функция RightBlank, и что возвращать?

а зачем спрашивать пользователя о длине строки ?
и зачем передавать в функцию значение S1 если оно все равно изменится сразу же после входа в нее (остальных параметров это, кстати, тоже касается)

2 kent
) Эт понятно.., но ошибка как раз и выдается тогда, когда я вписываю описание string... Паскаль вообще эти символы выделяет другим цветом и потом просит запятую после S1 и перед String, а не двоеточие, как будто это перечисление переменных. В том то и проблема, что в function при создании модуля *.tpu я не могу дать описание типа String - вот и хочу узнать - можь строки как то в function и в модулях *.tpu как-то по-другому описываются?

2 volvo
Прога не в unite работает нормально (ниже). А когда хочешь её запихать в модуль ввиде function - выдает ошибку (см. выше).

Задание
С целью формирования модуля XXX составить следующие блоки-утилиты:
а) Функцию RightBlank(S,L), возвращающую строку длины L, началом которой является строка S, а далее пробелы.
б)
в)
...
Испытайте эти блоки в составе модуля XXX, также сохраните эти блоки в одноименных файлах.

то-есть rightBlank нечто вроде trim - только пробелы не отрезаются, а возвращается номер буквы, после которой идут _только_ пробелы ?


а разве можно одинаково называть модуль и фнкцию внутри него

А я понял, что так нужно:

function RightBlank(var S:string):integer;
var
S1 :string[20];
i :integer;
begin
  Writeln('Vvedite stroku S1'); readln(S1);
  Writeln('Vvedite dlinu stroki L ( chislo do 20)'); readln(L);

  if length(S1)>=L then S:=copy(S1,1,L)
  else
    begin
      S:=S1;
      for i:=1 to L-length(S1) do S:=S+' ';
    end;

  RightBlank:=L;
end;

Т.е. если обрезка большая, то мы добавляем пробелы к S1 справа, чтоб все строки были под одну гребенку (одной длины)

GoodWind
Чет не нашел в Паскале trim..

Модуль и функцию я одинаково не называю :o

Я могу предположить только одно- ты используешь запрещенные символы в назв переменной( [ ] ^ @ . )
А вообще скажи че-нить поконкретнее, а то приводишь рабочие коды и говоришь, что нечто измененное не работает...

Но все равно бы сделал так:

function RightBlank(S:string; L:integer):string;
var
S1 :string;
i :integer;
begin
  if length(S)>=L then S1:=copy(S,1,L)
  else
    begin
      S1:=S;
      for i:=1 to L-length(S) do S1:=S1+' ';
    end;

  RightBlank:=S1;
end;

это не Паскалевая функция... даже не помню в каких языках она есть... кажется в FoxPro
trim это обрезка ведущих пробелов. бывают TrimRight, TrimLeft, TrimAll

Ответы, кому интересно было



модуль

Shults99, ну и как это связано с заданием?

Ты же хотя бы свои-то посты читай !!!

volvo
Не понял что-то... Да все равно, как она называется, эта функция! Она использует строку (S1 или S - без разницы) и использует переменную L - все больше ничего не надо. То, что там ещё процедура Beep - это из той части задания, которую я сделал сам до этого.
Или я не так понял?

Кстати, всем спасибо за участие.

hiv
thnks, но я все же использовал свой вариант.

Объясняю: ты привел задание, в котором говорится, что функция должна получать 2 (два) параметра - строку и число. Внимание, вопрос: Что принимает твоя функция из поста №12?

Ответ:
1) Строку

Writeln('Vvedite stroku S1');
readln(S1);

2) Число

Writeln('Vvedite dlinu stroki L ( chislo do 20)');
readln(L);

.. извините, если тупой, но что значит "функция должна получать 2 (два) параметра"? Возвращать 2 параметра?

.."С целью формирования модуля XXX составить следующие блоки-утилиты:
а) Функцию RightBlank(S,L), возвращающую строку длины L, началом которой является строка S, а далее пробелы...." - Вроде все сходиться.

Смутно начинаю предполагать, что RightBlank(S,L) и RightBlank(S) - разные вещи, но что тогда надо сделать для RightBlank(S,L) не понимаю..

Да пойми, что твоя функция должна получать ОДНОВРЕМЕННО и строку, и число, иначе в ней смысла-то нету... Вот таким должно быть определение функции:

Function RightBlank(s1: string; L: integer): string;

А у тебя она как описана? Принимает один параметр, ТОЛЬКО строку:

function RightBlank(S1:string):integer;

Нестыковка... А где число? Оно должно передаваться, а не запрашиваться у пользователя внутри функции...


См. пост №10 - hiv уже все сделал...

Дошло. Прикреплю вариант hiva к ответу просто текстовым файлом,
но переделывать не буду. Вот убивайте меня - не буду. У нас 12 часов ночи, у меня радость победы - а препады пусть идут в пень.
Всё.