Консультация № 97531
06.08.2007, 18:40
0.00 руб.
0 4 4
Здравствуйте эксперты! Скажите, почему у меня этот код не запускается – постоянно выделяется Result.


Приложение:
Function ReversStr( s: string) : string;Vari: integer;begin Result:=‘; If Trim(s) <> ‘ Then For i:= Length (s) downto 1 Result:= Result + s[i];end;

Обсуждение

Неизвестный
06.08.2007, 18:55
общий
это ответ
Здравствуйте, Алена!
в конце строки
For i:= Length (s) downto 1
не хватает оператора do
т.е. надо вот так:
For i:= Length (s) downto 1 do

кстати внимательней смотрите за сообщениями об ошибках - Дельфи Вам выдало ответ на Ваш вопрос сразу:
[Error] ... : ‘DO‘ expected but identifier ‘Result‘ found
Неизвестный
06.08.2007, 19:12
общий
это ответ
Здравствуйте, Алена!

Вы пропустили оператор do

<i>For i:= Length (s) downto 1 </i> <b>do</b>
<i>Result:= Result + s[i];</i>
Неизвестный
06.08.2007, 23:21
общий
это ответ
Здравствуйте, Алена!
допущена ошибка в описании цикла for



Приложение:
Function ReversStr( s: string) : string;Vari: integer;begin Result:=‘‘; If Trim(s) <> ‘‘ Then For i:= Length (s) downto 1 do Result:= Result + s[i];end;
Неизвестный
07.08.2007, 14:22
общий
это ответ
Здравствуйте, Алена!
В приведённом Вами листинге не хватало "do" в цикле FOR. Исправленный код в приложении.

Приложение:
Function ReversStr( s: string) : string;Vari: integer;begin Result:=‘‘; If Trim(s) <> ‘‘ Then For i:= Length(s) downto 1 do Result:= Result + s[i];end;
Форма ответа